gnu: emacs-treemacs: Refactor "install-data" phase.
* gnu/packages/emacs-xyz.scm (emacs-treemacs)[arguments]: Refactor "install-data" phase.
This commit is contained in:
parent
60a366ec7a
commit
9a1bfd68a9
1 changed files with 6 additions and 6 deletions
|
@ -17847,13 +17847,13 @@ processes for Emacs")
|
||||||
#t))
|
#t))
|
||||||
(add-after 'install 'install-data
|
(add-after 'install 'install-data
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(let ((images (string-append (assoc-ref outputs "out")
|
(let ((out (assoc-ref outputs "out")))
|
||||||
"/share/" ,name "/images")))
|
|
||||||
(with-directory-excursion "../.." ;treemacs root
|
(with-directory-excursion "../.." ;treemacs root
|
||||||
(copy-recursively "icons/default" images)
|
(copy-recursively "icons/default"
|
||||||
(copy-recursively "src/scripts"
|
(string-append out "/share/" ,name "/images"))
|
||||||
(string-append (assoc-ref outputs "out")
|
(copy-recursively
|
||||||
"/share/" ,name "/scripts"))
|
"src/scripts"
|
||||||
|
(string-append out "/share/" ,name "/scripts"))
|
||||||
#t)))))))
|
#t)))))))
|
||||||
(home-page "https://github.com/Alexander-Miller/treemacs")
|
(home-page "https://github.com/Alexander-Miller/treemacs")
|
||||||
(synopsis "Emacs tree style file explorer")
|
(synopsis "Emacs tree style file explorer")
|
||||||
|
|
Reference in a new issue