From c8fe4b588063c57cb709401e62311eca4d500d1c Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Mon, 15 Feb 2021 16:48:37 +0530 Subject: [PATCH] [cp-chronometrist] make code denser, make function a command --- contrapunctus/cp-chronometrist.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/contrapunctus/cp-chronometrist.el b/contrapunctus/cp-chronometrist.el index 3d12a40..7a4771e 100644 --- a/contrapunctus/cp-chronometrist.el +++ b/contrapunctus/cp-chronometrist.el @@ -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