From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Subject: [PATCH] gnu: geiser: Symlink Guile modules to the right 'guilesitedir'. Date: Sun, 21 Jun 2015 20:32:45 +0800 Message-ID: <1434889965-10697-1-git-send-email-iyzsong@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:47879) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z6eQK-0005J4-Nb for guix-devel@gnu.org; Sun, 21 Jun 2015 08:32:33 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Z6eQD-0008K2-K4 for guix-devel@gnu.org; Sun, 21 Jun 2015 08:32:32 -0400 Received: from mail-pd0-x229.google.com ([2607:f8b0:400e:c02::229]:36857) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Z6eQD-0008Jn-Cy for guix-devel@gnu.org; Sun, 21 Jun 2015 08:32:25 -0400 Received: by pdjm12 with SMTP id m12so120357129pdj.3 for ; Sun, 21 Jun 2015 05:32:24 -0700 (PDT) List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * 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