futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: cifs-utils: Build & install man pages.

Browse Source 
* gnu/packages/samba.scm (cifs-utils)[arguments]: Add "--enable-man"
to #:configure-flags.  Remove useless 'create-man8dir phase.  Add a new
'install-man-pages phase to do just that.
[native-inputs]: Add python-docutils.
This commit is contained in:
Tobias Geerinckx-Rice 2021-10-04 02:25:14 +02:00
parent ec7bcdc35a
commit 0448bff770
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
gnu/packages/samba.scm
View File

@ -55,6 +55,7 @@
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages popt)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages readline)
#:use-module (gnu packages time)
#:use-module (gnu packages tls)
@ -76,7 +77,10 @@
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)))
("pkg-config" ,pkg-config)
;; To generate the manpages.
("python-docutils" ,python-docutils))) ; rst2man
(inputs
`(("keytuils" ,keyutils)
("linux-pam" ,linux-pam)
@ -85,20 +89,23 @@
("samba" ,samba)
("talloc" ,talloc)))
(arguments
`(#:phases
`(#:configure-flags
(list "--enable-man")
#:phases
(modify-phases %standard-phases
(add-before 'configure 'set-root-sbin
(lambda* (#:key outputs #:allow-other-keys)
;; Don't try to install into "/sbin".
(setenv "ROOTSBINDIR"
(string-append (assoc-ref outputs "out") "/sbin"))
#t))
(add-before 'install 'create-man8dir
(string-append (assoc-ref outputs "out") "/sbin"))))
(add-before 'install 'install-man-pages
;; Create a directory that isn't created since version 6.10.
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(mkdir-p (string-append out "/share/man/man8"))
#t))))))
(lambda* (#:key make-flags parallel-build? #:allow-other-keys)
(apply invoke "make" "install-man"
`(,@(if parallel-build?
`("-j" ,(number->string (parallel-job-count)))
'())
,@make-flags)))))))
(synopsis "User-space utilities for Linux CIFS (Samba) mounts")
(description "@code{cifs-utils} is a set of user-space utilities for
mounting and managing @dfn{Common Internet File System} (CIFS) shares using