[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: stumpwm: Build and install the manual.
From: |
guix-commits |
Subject: |
01/01: gnu: stumpwm: Build and install the manual. |
Date: |
Sat, 16 Feb 2019 12:37:31 -0500 (EST) |
nckx pushed a commit to branch master
in repository guix.
commit 46c1c5537b3c140b1e597a020f38c77fb97f26ec
Author: Tobias Geerinckx-Rice <address@hidden>
Date: Sat Feb 16 18:18:21 2019 +0100
gnu: stumpwm: Build and install the manual.
* gnu/packages/lisp.scm (stumpwm)[native-inputs]: Add texinfo.
[argument]: Add new ‘install-manual’ phase.
---
gnu/packages/lisp.scm | 15 +++++++++++++--
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 93dc1aa..5aad298 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -7,7 +7,7 @@
;;; Copyright © 2016, 2017 Andy Patterson <address@hidden>
;;; Copyright © 2017, 2019 Ricardo Wurmus <address@hidden>
;;; Copyright © 2017, 2018 Efraim Flashner <address@hidden>
-;;; Copyright © 2017 Tobias Geerinckx-Rice <address@hidden>
+;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <address@hidden>
;;; Copyright © 2018 Benjamin Slade <address@hidden>
;;; Copyright © 2018 Alex Vong <address@hidden>
;;; Copyright © 2018 Pierre Neidhardt <address@hidden>
@@ -984,7 +984,8 @@ from other CLXes around the net.")
;; and can be removed when we move to the next release.
(search-patches "stumpwm-fix-broken-read-one-line.patch"))))
(build-system asdf-build-system/sbcl)
- (native-inputs `(("fiasco" ,sbcl-fiasco)))
+ (native-inputs `(("fiasco" ,sbcl-fiasco)
+ ("texinfo" ,texinfo)))
(inputs `(("cl-ppcre" ,sbcl-cl-ppcre)
("clx" ,sbcl-clx)
("alexandria" ,sbcl-alexandria)))
@@ -1016,6 +1017,16 @@ from other CLXes around the net.")
Icon=~@
Type=Application~%"
out)))
+ #t)))
+ (add-after 'install 'install-manual
+ (lambda* (#:key outputs #:allow-other-keys)
+ ;; The proper way to the manual is bootstrapping a full autotools
+ ;; build system and running ‘./configure && make stumpwm.info’ to
+ ;; do some macro substitution. We can get away with much less.
+ (let* ((out (assoc-ref outputs "out"))
+ (info (string-append out "/share/info")))
+ (invoke "makeinfo" "stumpwm.texi.in")
+ (install-file "stumpwm.info" info)
#t))))))
(synopsis "Window manager written in Common Lisp")
(description "Stumpwm is a window manager written entirely in Common Lisp.