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

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

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