contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[cp-chronometrist] make code denser, make function a command

This commit is contained in:
contrapunctus 2021-02-15 16:48:37 +05:30
parent 498af2eec4
commit c8fe4b5880
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrapunctus/cp-chronometrist.el
View File

@ -163,9 +163,7 @@ Return nil (and run `magit-status') if the user answers no."
(t (magit-status) nil)))
(defun contrapunctus-before-project-stop (project)
(if (member project '("Composing"
"Khilona archiving"
"Programming"))
(if (member project '("Composing" "Khilona archiving" "Programming"))
(contrapunctus-commit-prompt)
;; all functions in `chronometrist-before-project-stop-functions'
;; must return t for successful clock-out
@ -208,6 +206,7 @@ Return nil (and run `magit-status') if the user answers no."
(_ (delete-other-windows))))
(defun contrapunctus-count-expressions ()
(interactive)
(chronometrist-sexp-in-file chronometrist-file
(goto-char (point-min))
(cl-loop with count = 0