me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-hyperbole: Install images and help files. 

* gnu/packages/emacs-xyz.scm (emacs-hyperbole)[arguments]: Include help file
and install images for the manual.

Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
master
Xinglu Chen 2021-04-27 18:58:15 +02:00 committed by Nicolas Goaziou
parent 43684b19da
commit 0d570b6019
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/emacs-xyz.scm
View File

@ -359,6 +359,7 @@ server}. The main advantage compared to @code{vc-hg} is speed.")
`(#:include '("DEMO" `(#:include '("DEMO"
"DEMO-ROLO.otl" "DEMO-ROLO.otl"
"HY-ABOUT" "HY-ABOUT"
"man/hkey-help.txt"
"\\.el$" "\\.el$"
"\\.info$" "\\.info$"
"\\.kotl$") "\\.kotl$")
@ -373,8 +374,15 @@ server}. The main advantage compared to @code{vc-hg} is speed.")
(string-append (assoc-ref inputs "inetutils") (string-append (assoc-ref inputs "inetutils")
"/bin/dnsdomainname"))) "/bin/dnsdomainname")))
(substitute* "hyperbole.el" (substitute* "hyperbole.el"
(("\\(hyperb:check-dir-user\\)") "")) (("\\(hyperb:check-dir-user\\)") ""))))
#t))))) (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 (inputs
`(("inetutils" ,inetutils))) `(("inetutils" ,inetutils)))
(home-page "https://www.gnu.org/software/hyperbole/") (home-page "https://www.gnu.org/software/hyperbole/")