me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-org-pomodoro: Improve package style. 

* gnu/packages/emacs-xyz.scm (emacs-org-pomodoro)[arguments]: Use
G-expressions.  Remove trailing #T.
Nicolas Goaziou 2022-02-18 21:31:00 +01:00
parent 5f8e89b702
commit 256cdde7ad
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8008,28 +8008,28 @@ save, it exports back to the original non-Org file.")
(propagated-inputs
(list emacs-alert))
(arguments
`(#:include (cons "^resources\\/" %default-include)
#:tests? #t
#:test-command '("emacs" "--batch"
"-l" "org-pomodoro-tests.el"
"-f" "ert-run-tests-batch-and-exit")
#:phases
(modify-phases %standard-phases
(add-before 'check 'make-tests-writable
(lambda _
(make-file-writable "org-pomodoro-tests.el")
#t))
(add-before 'check 'add-require
(lambda _
(emacs-batch-edit-file "org-pomodoro-tests.el"
`(progn (progn (goto-char (point-min))
(re-search-forward
"ert-deftest")
(beginning-of-line)
(forward-line -1)
(insert "(require 'org-pomodoro)"))
(basic-save-buffer)))
#t)))))
(list
#:include #~(cons "^resources\\/" %default-include)
#:tests? #t
#:test-command
(list
"emacs" "--batch"
"-l" "org-pomodoro-tests.el"
"-f" "ert-run-tests-batch-and-exit")
#:phases
#~(modify-phases %standard-phases
(add-before 'check 'make-tests-writable
(lambda _
(make-file-writable "org-pomodoro-tests.el")))
(add-before 'check 'add-require
(lambda _
(emacs-batch-edit-file "org-pomodoro-tests.el"
`(progn (progn (goto-char (point-min))
(re-search-forward "ert-deftest")
(beginning-of-line)
(forward-line -1)
(insert "(require 'org-pomodoro)"))
(basic-save-buffer))))))))
(home-page "https://github.com/marcinkoziej/org-pomodoro")
(synopsis "Pomodoro technique for org-mode")
(description "@code{emacs-org-pomodoro} adds very basic support for