From fd62f09b6ec9745789ba07646bb89afa633484ae Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 17 Feb 2024 15:49:38 +0200 Subject: Apply checkdoc changes --- gnosis.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gnosis.el b/gnosis.el index e1749c6..94e56a7 100644 --- a/gnosis.el +++ b/gnosis.el @@ -95,7 +95,7 @@ to \"push\" will execute the command 'git push'." (bound-and-true-p vertico-mode)) #'completing-read) (t #'ido-completing-read)) - "Function to use for completing-read." + "Function to use for `completing-read'." :type 'function :group 'gnosis) @@ -819,9 +819,9 @@ Returns a list of unique tags." (let* ((tags '()) (tag "") (use-prev (when gnosis-previous-note-tags - (y-or-n-p (format "Use tags from previous note? %s" gnosis-previous-note-tags))))) + (y-or-n-p (format "Use tags from previous note %s?" gnosis-previous-note-tags))))) (if use-prev - (setq tags gnosis-previous-note-tags) + (setf tags gnosis-previous-note-tags) (while (not (string= tag "q")) (setf tag (funcall gnosis-completing-read-function (concat prompt (format " %s (q for quit): " tags)) (cons "q" (if due (gnosis-review-get-due-tags) @@ -1053,7 +1053,7 @@ NOTE-NUM: The number of notes reviewed in the session." ;; TODO: Redo this using vc (shell-command (concat git " add " (shell-quote-argument "gnosis.db"))) (shell-command (concat git " commit -m " - (shell-quote-argument (concat (format "Total notes for session: %d " note-num))))) + (shell-quote-argument (format "Total notes for session: %d " note-num)))) (when gnosis-auto-push (shell-command (concat git " " gnosis-auto-push-command))) (message "Review session finished. %d notes reviewed." note-num))) -- cgit v1.2.3