guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

07/30: gnu: cedille: Install the info pages.


From: guix-commits
Subject: 07/30: gnu: cedille: Install the info pages.
Date: Thu, 2 Apr 2020 14:55:44 -0400 (EDT)

mbakke pushed a commit to branch master
in repository guix.

commit be41d7d91df123a454e871190f1bb2711409bfa8
Author: John Soo <address@hidden>
AuthorDate: Sat Mar 28 10:30:48 2020 -0700

    gnu: cedille: Install the info pages.
    
    * gnu/packages/cedille.scm (cedille)[arguments]: Rename phase
    'patch-cedille-path-el' to 'patch-cedille-paths' and add substitution for 
the
    info page location.   In the 'copy-cedille-mode' phase, install the info 
page.
    
    Signed-off-by: Marius Bakke <address@hidden>
---
 gnu/packages/cedille.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/cedille.scm b/gnu/packages/cedille.scm
index 9f6c01e..d3dd576 100644
--- a/gnu/packages/cedille.scm
+++ b/gnu/packages/cedille.scm
@@ -51,15 +51,19 @@
     (arguments
      `(#:phases
        (modify-phases %standard-phases
-         (add-after 'unpack 'patch-cedille-path-el
+         (add-after 'unpack 'patch-cedille-paths
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))
                (substitute* "cedille-mode.el"
                  (("/usr/share/emacs/site-lisp/cedille-mode")
                   (string-append
                    out "/share/emacs/site-lisp/cedille")))
+               (substitute* "cedille-mode/cedille-mode-info.el"
+                 (("\\(concat cedille-path-el \"cedille-info-main.info\"\\)")
+                  (string-append
+                   "\"" out "/share/info/cedille-info-main.info.gz\"")))
                #t)))
-         (add-after 'unpack 'copy-cedille-mode
+         (add-after 'patch-cedille-paths 'copy-cedille-mode
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
                     (lisp
@@ -107,6 +111,8 @@
                (install-file "cedille" (string-append out "/bin"))
                (install-file "core/cedille-core"
                              (string-append out "/bin"))
+               (install-file "docs/info/cedille-info-main.info"
+                             (string-append out "/share/info"))
                #t))))))
     (home-page "https://cedille.github.io/";)
     (synopsis



reply via email to

[Prev in Thread] Current Thread [Next in Thread]