guix_mirror_bot pushed a commit to branch master
in repository guix.
commit a727289bf43c429c0b8391736c0d979cc705a904
Author: Sergey Trofimov <s...@sarg.org.ru>
AuthorDate: Fri May 30 09:00:00 2025 +0200
gnu: readymedia: Install man pages.
* gnu/packages/upnp.scm (readymedia)[arguments]<#:phases>
{patch-source}: Set correct path to binary.
{install-man-pages}: New phase.
Closes: #336
Change-Id: Ib804250785e5cd0fed7191d63bf19731dff582e0
Signed-off-by: 宋文武 <iyzs...@member.fsf.org>
---
gnu/packages/upnp.scm | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/upnp.scm b/gnu/packages/upnp.scm
index 3afcb111ea..92ca82d9a1 100644
--- a/gnu/packages/upnp.scm
+++ b/gnu/packages/upnp.scm
@@ -163,7 +163,15 @@ and others.")
(substitute* "minidlna.c"
(("rm -rf")
(string-append
- (search-input-file inputs "/bin/rm") " -rf"))))))))
+ (search-input-file inputs "/bin/rm") " -rf")))
+ (substitute* "minidlnad.8"
+ (("/usr(/sbin/minidlnad)" _ path)
+ (string-append #$output path)))))
+ (add-after 'install 'install-man-pages
+ (lambda _
+ (let ((man (string-append #$output "/share/man/man")))
+ (install-file "minidlnad.8" (string-append man "8"))
+ (install-file "minidlna.conf.5" (string-append man "5"))))))))
(native-inputs (list autoconf automake gettext-minimal))
(inputs
(list coreutils-minimal
