[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] gnu: geiser: Symlink Guile modules to the right 'guilesitedir'.
From: |
宋文武 |
Subject: |
[PATCH] gnu: geiser: Symlink Guile modules to the right 'guilesitedir'. |
Date: |
Sun, 21 Jun 2015 20:32:45 +0800 |
* gnu/packages/emacs.scm (geiser)[arguments]: Symlink Guile modules
to the right 'guilesitedir' in the 'post-install' phase.
---
gnu/packages/emacs.scm | 15 +++++++++++----
1 file changed, 11 insertions(+), 4 deletions(-)
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 2502f29..337d00d 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -196,10 +196,17 @@ editor (without an X toolkit)" )
'(#:phases (alist-cons-after
'install 'post-install
(lambda* (#:key outputs #:allow-other-keys)
- (symlink "geiser-install.el"
- (string-append (assoc-ref outputs "out")
- "/share/emacs/site-lisp/"
- "geiser-autoloads.el")))
+ (let* ((out (assoc-ref outputs "out"))
+ (guilesitedir (string-append
+ out "/share/guile/site/2.0")))
+ (symlink "geiser-install.el"
+ (string-append out
+ "/share/emacs/site-lisp/"
+ "geiser-autoloads.el"))
+ ;; Symlink Guile modules to the right 'guilesitedir'.
+ (mkdir-p guilesitedir)
+ (symlink (string-append out "/share/geiser/guile/geiser")
+ (string-append guilesitedir "/geiser"))))
%standard-phases)))
(inputs `(("guile" ,guile-2.0)
("emacs" ,emacs-no-x)))
--
2.2.1
- [PATCH] gnu: geiser: Symlink Guile modules to the right 'guilesitedir'.,
宋文武 <=