me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-chronometrist: Use G-expressions. 

* gnu/packages/emacs-xyz.scm (emacs-chronometrist)[arguments]<#:phases>: Use G-expressions.
Nicolas Goaziou 2022-02-16 13:24:12 +01:00
parent e8027b33b9
commit 809757cd82
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2940,24 +2940,24 @@ Lock key.")
(base32 "0qpkpkipmac24m3ng4ahsml3vi15qcvmid3g02pbpgbpc113zfpl"))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'chdir-elisp
;; Elisp directory is not in root of the source.
(lambda _
(chdir "elisp")))
(add-after 'install 'install-doc
;; Documentation consists of several Markdown files.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(doc (string-append out
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'chdir-elisp
;; Elisp directory is not in root of the source.
(lambda _
(chdir "elisp")))
(add-after 'install 'install-doc
;; Documentation consists of several Markdown files.
(lambda _
(let ((doc (string-append #$output
"/share/doc/emacs-chronometrist-"
,version)))
(with-directory-excursion "../doc"
(for-each (lambda (f) (install-file f doc))
(cons* "../UNLICENSE"
"../WTFPL"
(find-files "." "\\.md$"))))))))))
#$version)))
(with-directory-excursion "../doc"
(for-each (lambda (f) (install-file f doc))
(cons* "../UNLICENSE"
"../WTFPL"
(find-files "." "\\.md$"))))))))))
(propagated-inputs
(list emacs-alert emacs-dash emacs-s emacs-spark emacs-ts))
(home-page "https://github.com/contrapunctus-1/chronometrist")