From 2ca6c60bf2daf2a7ba3f31b6b797d56e1103c708 Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Mon, 21 Dec 2020 04:02:57 +0530 Subject: [PATCH] chronometrist-query-stop - use aand --- elisp/chronometrist.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/elisp/chronometrist.el b/elisp/chronometrist.el index 3c6cd9c..c672341 100644 --- a/elisp/chronometrist.el +++ b/elisp/chronometrist.el @@ -248,11 +248,10 @@ Argument _FS-EVENT is ignored." (defun chronometrist-query-stop () "Ask the user if they would like to clock out." - (let ((task (chronometrist-backend-current-task chronometrist-backend-current))) - (and task - (yes-or-no-p (format "Stop tracking time for %s? " task)) - (chronometrist-out)) - t)) + (aand (chronometrist-backend-current-task chronometrist-backend-current) + (yes-or-no-p (format "Stop tracking time for %s? " it)) + (chronometrist-out)) + t) (defun chronometrist-in (task &optional _prefix) "Clock in to TASK; record current time in `chronometrist-file'.