me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-hyperbole: Improve package style. 

* gnu/packages/emacs-xyz.scm (emacs-hyperbole)[arguments]: Use G-expressions.
master
Nicolas Goaziou 2022-07-13 16:05:22 +02:00
parent f6b18b5372
commit e1a8100936
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 26 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -604,17 +604,17 @@ uploading PlatformIO projects.")
(base32 "171x7jad62xd0n3xgs32dksyhn5abxj1kna0qgm65mm0v73hrv8d"))))
(build-system emacs-build-system)
(arguments
`(#:include (cons* "DEMO"
(list #:include #~(cons* "DEMO"
"DEMO-ROLO.otl"
"HY-ABOUT"
"man/hkey-help.txt"
"\\.kotl$"
%default-include)
#:phases
(modify-phases %standard-phases
;; Fix build issues about missing "domainname" and "hpmap:dir-user"
;; parent dir, and missing require in "hgnus.el" (void-function:
;; var-append).
#~(modify-phases %standard-phases
;; Fix build issues about missing "domainname" and
;; "hpmap:dir-user" parent dir, and missing require in
;; "hgnus.el" (void-function: var-append).
(add-after 'unpack 'fix-build
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "hypb.el"
@ -625,12 +625,10 @@ uploading PlatformIO projects.")
(substitute* "hgnus.el"
(("hmail ") "hmail hvar "))))
(add-after 'install 'install-images
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(lambda _
(let ((dir (string-append #$output "/share/info/im")))
(for-each (lambda (file)
(install-file
file
(string-append out "/share/info/im")))
(install-file file dir))
(find-files "man/im" "\\.png$"))))))))
(inputs
(list inetutils))