[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: keepalived: Install info documentation.
From: |
??? |
Subject: |
01/01: gnu: keepalived: Install info documentation. |
Date: |
Sun, 10 Jun 2018 11:44:31 -0400 (EDT) |
iyzsong pushed a commit to branch master
in repository guix.
commit 670a5e543033022a66d930d62a7dbff510f095db
Author: 宋文武 <address@hidden>
Date: Sun Jun 10 23:42:14 2018 +0800
gnu: keepalived: Install info documentation.
* gnu/packages/cluster.scm (keepalived)[arguments]: Add phases 'build-info'
and 'install-info'.
[native-inputs]: Add texinfo.
---
gnu/packages/cluster.scm | 24 ++++++++++++++++++++++--
1 file changed, 22 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/cluster.scm b/gnu/packages/cluster.scm
index 429b088..7cfd04f 100644
--- a/gnu/packages/cluster.scm
+++ b/gnu/packages/cluster.scm
@@ -24,6 +24,7 @@
#:use-module (gnu packages linux)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
+ #:use-module (gnu packages texinfo)
#:use-module (gnu packages tls))
(define-public keepalived
@@ -48,10 +49,29 @@
;; output of 'pkg-config'.
(substitute* "configure"
(("PKG_CONFIG --libs") "PKG_CONFIG --libs-only-l"))
- #t)))))
+ #t))
+ (add-after 'build 'build-info
+ (lambda _
+ (invoke "make" "-C" "doc" "texinfo")
+ ;; Put images in a subdirectory as recommended by 'texinfo'.
+ (install-file "doc/build/texinfo/software_design.png"
+ "doc/build/texinfo/keepalived-figures")
+ (substitute* "doc/build/texinfo/keepalived.texi"
+ (("@image\\{software_design,")
+ "@image{keepalived-figures/software_design,"))
+ (invoke "make" "-C" "doc/build/texinfo")))
+ (add-after 'install 'install-info
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (infodir (string-append out "/share/info")))
+ (install-file "doc/build/texinfo/keepalived.info" infodir)
+ (install-file "doc/build/texinfo/software_design.png"
+ (string-append infodir "/keepalived-figures"))
+ #t))))))
(native-inputs
`(("pkg-config" ,pkg-config)
- ("python-sphinx" ,python-sphinx)))
+ ("python-sphinx" ,python-sphinx)
+ ("texinfo" ,texinfo)))
(inputs
`(("openssl" ,openssl)
("libnfnetlink" ,libnfnetlink)