Re: Emacs and Geiser: Completion for Guix specific code?

[Mekeor Melire <mekeor@posteo.de>]

[-- Attachment #1: Type: text/plain, Size: 89 bytes --]

Sorry, I think the attached files were not separated well. Maybe it's
better this time!


[-- Attachment #2: mre.el --]
[-- Type: text/plain, Size: 327 bytes --]

(require 'corfu)
(setq
  corfu-auto t
  corfu-auto-prefix 0
  corfu-quit-no-match t)
(global-corfu-mode)

;; optional:
(require 'corfu-doc)
(add-to-list 'corfu-mode-hook #'corfu-doc-mode)

(require 'geiser-guile)
(with-eval-after-load 'geiser-guile
  (add-to-list 'geiser-guile-load-path "/home/user/path/to/guix/repository"))

[-- Attachment #3: mre.scm --]
[-- Type: text/plain, Size: 55 bytes --]

(use-modules
 (gnu)
 (gnu system)
 (guix utils))

(ope

[-- Attachment #4: Type: text/plain, Size: 1683 bytes --]


2022-11-16 / 11:07 / mekeor@posteo.de:

> Hello,
>
> when editing a Guix system declaration (system.scm) with GNU Emacs and
> Geiser (and corfu.el), can I get completion for Guix specific code?
> Right now, I only get completion suggestions based on generic Guile
> modules. E.g. completing "(ope" (by pressing C-M-i) does not offer
> "(operating-system", but only "(open" etc. from module (guile). Is there
> any way to get completion for the Guix-specific code?
>
> You can reproduce the reported behaviour as follows.
>
> 1. Save the attached mre.el and mre.scm files somewhere.
> 2. Modify the path to the Guix repository inside mre.el.
> 3. Make sure you have these packages installed, e.g. with a guix-shell:
>
>    guix shell emacs emacs-corfu emacs-corfu-doc emacs-geiser \
>      emacs-geiser-guile guile
>
> 4. Open that directory in a shell, navigate to the saved files, and
>    launch Emacs:
>
>    emacs -Q -l mre.el
>
> 5. In Emacs, open mre.scm, start Geiser with M-x geiser RET, navigate
>    the cursor to "(opeHERE", and press C-M-i (which runs
>    completion-at-point). You'll see that it does not suggest
>    "operating-system". (Even if you have compiled all Guix inside your
>    local clone of its repository.)
>
> Kindly
> Mekeor
>
>
> (require 'corfu)
> (setq
>   corfu-auto t
>   corfu-auto-prefix 0
>   corfu-quit-no-match t)
> (global-corfu-mode)
>
> ;; optional:
> (require 'corfu-doc)
> (add-to-list 'corfu-mode-hook #'corfu-doc-mode)
>
> (require 'geiser-guile)
> (with-eval-after-load 'geiser-guile
>   (add-to-list 'geiser-guile-load-path "/home/user/path/to/guix/repository"))
>
> (use-modules
>  (gnu)
>  (gnu system)
>  (guix utils))
>
> (ope