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

[宋文武 <iyzsong@gmail.com>]

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

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!):


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-system-emacs-site-file-Use-geiser-install-to-load-ge.patch --]
[-- Type: text/x-patch, Size: 1301 bytes --]

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."
-- 
2.2.1