[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#48066] [PATCH] gnu: emacs-hyperbole: Install images and help files.
From: |
Xinglu Chen |
Subject: |
[bug#48066] [PATCH] gnu: emacs-hyperbole: Install images and help files. |
Date: |
Tue, 27 Apr 2021 18:58:15 +0200 |
* gnu/packages/emacs-xyz.scm (emacs-hyperbole)[arguments]: Include help file
and install images for the manual.
---
gnu/packages/emacs-xyz.scm | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index a46b7e8ae0..8e76f151a5 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -359,6 +359,7 @@ server}. The main advantage compared to @code{vc-hg} is
speed.")
`(#:include '("DEMO"
"DEMO-ROLO.otl"
"HY-ABOUT"
+ "man/hkey-help.txt"
"\\.el$"
"\\.info$"
"\\.kotl$")
@@ -373,8 +374,15 @@ server}. The main advantage compared to @code{vc-hg} is
speed.")
(string-append (assoc-ref inputs "inetutils")
"/bin/dnsdomainname")))
(substitute* "hyperbole.el"
- (("\\(hyperb:check-dir-user\\)") ""))
- #t)))))
+ (("\\(hyperb:check-dir-user\\)") ""))))
+ (add-after 'install 'install-images
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ (for-each (lambda (file)
+ (install-file
+ file
+ (string-append out "/share/info/im")))
+ (find-files "man/im" "\\.png$"))))))))
(inputs
`(("inetutils" ,inetutils)))
(home-page "https://www.gnu.org/software/hyperbole/")
base-commit: e009b8d7126531a2983701413c5b97e620e495e4
--
2.31.1
- [bug#48066] [PATCH] gnu: emacs-hyperbole: Install images and help files.,
Xinglu Chen <=