Re: [PATCH] gnu: geiser: Symlink Guile modules to the right 'guilesitedir'.

[Alex Kost <alezost@gmail.com>]

宋文武 (2015-06-21 16:21 +0300) wrote:

> The previous patch was intend to fix a issue that manually spawned Guile
> doesn't know the geiser module.
>
> When discuss this issue in IRC with alezost, I suddenly notice that add
> a simple '(require 'geiser-install)' to my init.el make it work.
>
> Here is the new patch for '/etc/emacs/site-start.el' (not tested yet!):
>
>
> From d26e6299c9d468ff4a745a7efe9ea4f1a5d7c63a Mon Sep 17 00:00:00 2001
> From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@gmail.com>
> Date: Sun, 21 Jun 2015 21:09:42 +0800
> Subject: [PATCH] system: emacs-site-file: Use 'geiser-install to load geiser.
>
> Suggested by Alex Kost <alezost@gmail.com>.
>
> * gnu/system.scm (emacs-site-file): Use 'geiser-install to load geiser
>   instead of setting 'geiser-guile-load-path' manually.
> ---
>  gnu/system.scm | 8 ++------
>  1 file changed, 2 insertions(+), 6 deletions(-)
>
> diff --git a/gnu/system.scm b/gnu/system.scm
> index 565d6c1..82b7fbc 100644
> --- a/gnu/system.scm
> +++ b/gnu/system.scm
> @@ -391,12 +391,8 @@ settings for 'guix.el' to work out-of-the-box."
>                   ;; Attempt to load guix.el.
>                   (require 'guix-init nil t)
>  
> -                 (when (require 'geiser-guile nil t)
> -                   ;; Make sure Geiser's Scheme modules are in Guile's search
> -                   ;; path.
> -                   (add-to-list
> -                    'geiser-guile-load-path
> -                    "/run/current-system/profile/share/geiser/guile")))))
> +                 ;; Attempt to load geiser.
> +                 (require 'geiser-install nil t))))
>  
>  (define (emacs-site-directory)
>    "Return the Emacs site directory, aka. /etc/emacs."

I didn't test it but I think it should work, as according to the geiser
manual (info "(geiser) From the source's mouth"), requiring
'geiser-install' is the proper way to set up Geiser (that's why we
symlink "geiser-install.el" by "geiser-autoloads.el" in a geiser package
recipe).

-- 
Alex