From 829b1b253e96b4e26b6d8dd5a128dc0a53a30e96 Mon Sep 17 00:00:00 2001
From: John Darrington <jmd@gnu.org>
Date: Mon, 10 Feb 2014 21:35:31 +0100
Subject: [PATCH] gnu: lout: Change docdir from "doc" to "share/doc"
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
* gnu/packages/lout.scm (lout):
Change docdir from "doc" to "share/doc".
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
gnu/packages/lout.scm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/gnu/packages/lout.scm b/gnu/packages/lout.scm
index 76cb8a753b9..1121f1674b6 100644
--- a/gnu/packages/lout.scm
+++ b/gnu/packages/lout.scm
@@ -37,14 +37,14 @@ (define-public lout
(("^LOUTLIBDIR[[:blank:]]*=.*$")
(string-append "LOUTLIBDIR = " out "/lib/lout\n"))
(("^LOUTDOCDIR[[:blank:]]*=.*$")
- (string-append "LOUTDOCDIR = " doc "/doc/lout\n"))
+ (string-append "LOUTDOCDIR = " doc "/share/doc/lout\n"))
(("^MANDIR[[:blank:]]*=.*$")
(string-append "MANDIR = " out "/man\n")))
(mkdir out)
(mkdir (string-append out "/bin"))
(mkdir (string-append out "/lib"))
(mkdir (string-append out "/man"))
- (mkdir-p (string-append doc "/doc/lout")))))
+ (mkdir-p (string-append doc "/share/doc/lout")))))
(install-man-phase
'(lambda* (#:key outputs #:allow-other-keys)
(zero? (system* "make" "installman"))))
@@ -60,7 +60,7 @@ (define out
(every (lambda (doc)
(format #t "doc: building `~a'...~%" doc)
(with-directory-excursion doc
- (let ((file (string-append out "/doc/lout/"
+ (let ((file (string-append out "/share/doc/lout/"
doc ".ps")))
(and (or (file-exists? "outfile.ps")
(zero? (system* "lout" "-r4" "-o"
@@ -72,7 +72,7 @@ (define out
"-dPDFSETTINGS=/prepress"
"-sPAPERSIZE=a4"
file
- (string-append out "/doc/lout/"
+ (string-append out "/share/doc/lout/"
doc ".pdf")))))))
'("design" "expert" "slides" "user")))))
(package
--
GitLab