Skip to content
Snippets Groups Projects
Commit 829b1b25 authored by John Darrington's avatar John Darrington Committed by Ludovic Courtès
Browse files

gnu: lout: Change docdir from "doc" to "share/doc"


* gnu/packages/lout.scm (lout):
  Change docdir from "doc" to "share/doc".

Signed-off-by: default avatarLudovic Courtès <ludo@gnu.org>
parent 266b39fc
No related branches found
No related tags found
No related merge requests found
...@@ -37,14 +37,14 @@ (define-public lout ...@@ -37,14 +37,14 @@ (define-public lout
(("^LOUTLIBDIR[[:blank:]]*=.*$") (("^LOUTLIBDIR[[:blank:]]*=.*$")
(string-append "LOUTLIBDIR = " out "/lib/lout\n")) (string-append "LOUTLIBDIR = " out "/lib/lout\n"))
(("^LOUTDOCDIR[[:blank:]]*=.*$") (("^LOUTDOCDIR[[:blank:]]*=.*$")
(string-append "LOUTDOCDIR = " doc "/doc/lout\n")) (string-append "LOUTDOCDIR = " doc "/share/doc/lout\n"))
(("^MANDIR[[:blank:]]*=.*$") (("^MANDIR[[:blank:]]*=.*$")
(string-append "MANDIR = " out "/man\n"))) (string-append "MANDIR = " out "/man\n")))
(mkdir out) (mkdir out)
(mkdir (string-append out "/bin")) (mkdir (string-append out "/bin"))
(mkdir (string-append out "/lib")) (mkdir (string-append out "/lib"))
(mkdir (string-append out "/man")) (mkdir (string-append out "/man"))
(mkdir-p (string-append doc "/doc/lout"))))) (mkdir-p (string-append doc "/share/doc/lout")))))
(install-man-phase (install-man-phase
'(lambda* (#:key outputs #:allow-other-keys) '(lambda* (#:key outputs #:allow-other-keys)
(zero? (system* "make" "installman")))) (zero? (system* "make" "installman"))))
...@@ -60,7 +60,7 @@ (define out ...@@ -60,7 +60,7 @@ (define out
(every (lambda (doc) (every (lambda (doc)
(format #t "doc: building `~a'...~%" doc) (format #t "doc: building `~a'...~%" doc)
(with-directory-excursion doc (with-directory-excursion doc
(let ((file (string-append out "/doc/lout/" (let ((file (string-append out "/share/doc/lout/"
doc ".ps"))) doc ".ps")))
(and (or (file-exists? "outfile.ps") (and (or (file-exists? "outfile.ps")
(zero? (system* "lout" "-r4" "-o" (zero? (system* "lout" "-r4" "-o"
...@@ -72,7 +72,7 @@ (define out ...@@ -72,7 +72,7 @@ (define out
"-dPDFSETTINGS=/prepress" "-dPDFSETTINGS=/prepress"
"-sPAPERSIZE=a4" "-sPAPERSIZE=a4"
file file
(string-append out "/doc/lout/" (string-append out "/share/doc/lout/"
doc ".pdf"))))))) doc ".pdf")))))))
'("design" "expert" "slides" "user"))))) '("design" "expert" "slides" "user")))))
(package (package
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment