ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-15 23:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-treemacs: Update package style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-treemacs)[arguments]: Use
G-expressions.  Simplify PATCH-PATHS phase.  Move data within the ELPA directory.
This commit is contained in:
Nicolas Goaziou 2022-09-13 22:37:06 +02:00
parent 66b54aef0d
commit a24da5c8bc
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 51 additions and 50 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

101
gnu/packages/emacs-xyz.scm
View file

@ -25721,56 +25721,57 @@ (define-public emacs-treemacs
(inputs
(list python))
(arguments
`(#:tests? #t
#:test-command '("make" "-C" "../.." "test")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-makefile
(lambda _
(substitute* "Makefile"
(("@\\$\\(CASK\\) exec ") "")
;; Guix does not need to prepare dependencies before testing.
(("test: prepare") "test:"))))
(add-after 'fix-makefile 'chdir-elisp
;; Elisp directory is not in root of the source.
(lambda _
(chdir "src/elisp")))
(add-before 'check 'delete-failing-tests
;; FIXME: 4 tests out of 254 are failing.
(lambda _
(emacs-batch-edit-file "../../test/treemacs-test.el"
`(progn
(goto-char (point-min))
(re-search-forward "describe \"treemacs--parent\"")
(beginning-of-line)
(kill-sexp)
(basic-save-buffer)))))
(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"
(search-input-file inputs "/bin/python3")))
(chmod "src/elisp/treemacs-async.el" #o644)
(substitute* "src/elisp/treemacs-async.el"
(("src/scripts") (string-append "share/" ,name "/scripts"))))))
(add-after 'install 'install-data
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(with-directory-excursion "../.." ;treemacs root
(copy-recursively "icons/default"
(string-append out "/share/" ,name "/images"))
(copy-recursively
"src/scripts"
(string-append out "/share/" ,name "/scripts")))))))))
(list
#:tests? #t
#:test-command #~(list "make" "-C" "../.." "test")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-makefile
(lambda _
(substitute* "Makefile"
(("@\\$\\(CASK\\) exec ") "")
;; Guix does not need to prepare dependencies before testing.
(("test: prepare") "test:"))))
(add-after 'fix-makefile 'chdir-elisp
;; Elisp directory is not in root of the source.
(lambda _
(chdir "src/elisp")))
(add-before 'check 'delete-failing-tests
;; FIXME: 4 tests out of 254 are failing.
(lambda _
(emacs-batch-edit-file "../../test/treemacs-test.el"
'(progn
(goto-char (point-min))
(re-search-forward "describe \"treemacs--parent\"")
(beginning-of-line)
(kill-sexp)
(basic-save-buffer)))))
(add-before 'install 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(make-file-writable "treemacs-core-utils.el")
(emacs-substitute-variables "treemacs-core-utils.el"
("treemacs-dir" (string-append #$output "/")))
(make-file-writable "treemacs-icons.el")
(substitute* "treemacs-icons.el"
(("icons/default")
(string-append (elpa-directory #$output) "/icons/default")))
(make-file-writable "treemacs-customization.el")
(emacs-substitute-variables "treemacs-customization.el"
("treemacs-python-executable"
(search-input-file inputs "/bin/python3")))
(make-file-writable "treemacs-async.el")
(substitute* "treemacs-async.el"
(("src/scripts")
(string-append (elpa-directory #$output) "/scripts")))))
(add-after 'install 'install-data
(lambda _
(with-directory-excursion "../.." ;treemacs root
(copy-recursively
"icons/default"
(string-append (elpa-directory #$output) "/icons/default"))
(copy-recursively
"src/scripts"
(string-append (elpa-directory #$output) "/scripts"))))))))
(home-page "https://github.com/Alexander-Miller/treemacs")
(synopsis "Emacs tree style file explorer")
(description