summary refs log tree commit diff
path: root/gnu/packages/skribilo.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-09-18 11:22:01 +0200
committerLudovic Courtès <ludo@gnu.org>2014-09-18 11:22:01 +0200
commit2f7a10db6d9507cf0b4f7a965e13c59ea682ad68 (patch)
tree0d98422a2ee63d8e9f9ed61e7ebfcd7309d98b95 /gnu/packages/skribilo.scm
parentc8bf8b2f8811625d0de49b3f8a787771c1bc5dd3 (diff)
downloadguix-2f7a10db6d9507cf0b4f7a965e13c59ea682ad68.tar.gz
gnu: skribilo: Make sure Guile-Reader is in the search path.
Reported by Luis Souto Graña <luissoutobueu@gmail.com>.

* gnu/packages/skribilo.scm (skribilo)[arguments]: Add #:phases.
Diffstat (limited to 'gnu/packages/skribilo.scm')
-rw-r--r--gnu/packages/skribilo.scm16
1 files changed, 16 insertions, 0 deletions
diff --git a/gnu/packages/skribilo.scm b/gnu/packages/skribilo.scm
index e9c213cbb2..6971e792d0 100644
--- a/gnu/packages/skribilo.scm
+++ b/gnu/packages/skribilo.scm
@@ -43,6 +43,22 @@
      '(#:configure-flags (list (string-append "--with-guilemoduledir="
                                               (assoc-ref %outputs "out")
                                               "/share/guile/site/2.0"))
+
+       #:phases (alist-cons-before
+                 'configure 'pre-configure
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   ;; Make sure the 'skribilo' command gets to see
+                   ;; Guile-Reader, even if Guile-Reader is not in the search
+                   ;; path.
+                   (let ((reader (assoc-ref inputs "guile-reader")))
+                     (substitute* "src/skribilo.in"
+                       (("^exec (.*) -c" _ things)
+                        (string-append "exec " things
+                                       " -L " reader "/share/guile/site/2.0"
+                                       " -C " reader "/share/guile/site/2.0"
+                                       " -c")))))
+                 %standard-phases)
+
        #:parallel-build? #f))
     ;; TODO: Add Ploticus.
     (inputs `(("guile" ,guile-2.0)