me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-treemacs: Install icons and scripts. 

Reported by Christopher Howard <christopher@alaskasi.com>.

* gnu/packages/emacs-xyz.scm (emacs-treemacs)[inputs]: Add 'python'.
[arguments]: Add 'patch-paths' and 'install-data' phases.
master
Oleg Pykhalov 2020-01-07 02:26:22 +03:00
parent 90a31c73b3
commit c4970c53a6
No known key found for this signature in database
GPG Key ID: 167F8EA5001AFA9C
1 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17804,6 +17804,8 @@ processes for Emacs")
(native-inputs
`(("emacs-buttercup" ,emacs-buttercup)
("emacs-el-mock" ,emacs-el-mock)))
(inputs
`(("python" ,python)))
(arguments
`(#:tests? #t ;TODO: Investigate ‘treemacs--parse-collapsed-dirs’ test failure.
#:phases
@ -17824,7 +17826,35 @@ processes for Emacs")
(emacs-substitute-sexps "test/test-treemacs.el"
("(describe \"treemacs--parse-collapsed-dirs\""
""))
(invoke "make" "test")))))))
(invoke "make" "test"))))
(add-before 'install 'patch-paths
(lambda* (#:key inputs outputs #:allow-other-keys)
(with-directory-excursion "../.." ;treemacs root
(chmod "src/elisp/treemacs-core-utils.el" #o644)
(emacs-substitute-variables "src/elisp/treemacs-core-utils.el"
("treemacs-dir"
(string-append (assoc-ref outputs "out") "/")))
(chmod "src/elisp/treemacs-icons.el" #o644)
(substitute* "src/elisp/treemacs-icons.el"
(("icons/default") "share/emacs-treemacs/images"))
(chmod "src/elisp/treemacs-customization.el" #o644)
(emacs-substitute-variables "src/elisp/treemacs-customization.el"
("treemacs-python-executable"
(string-append (assoc-ref inputs "python") "/bin/python3")))
(chmod "src/elisp/treemacs-async.el" #o644)
(substitute* "src/elisp/treemacs-async.el"
(("src/scripts") (string-append "share/" ,name "/scripts"))))
#t))
(add-after 'install 'install-data
(lambda* (#:key outputs #:allow-other-keys)
(let ((images (string-append (assoc-ref outputs "out")
"/share/" ,name "/images")))
(with-directory-excursion "../.." ;treemacs root
(copy-recursively "icons/default" images)
(copy-recursively "src/scripts"
(string-append (assoc-ref outputs "out")
"/share/" ,name "/scripts"))
#t)))))))
(home-page "https://github.com/Alexander-Miller/treemacs")
(synopsis "Emacs tree style file explorer")
(description "Powerful and flexible file tree project explorer.")