refactored journal func to remove unnecessary conditional

1 files changed, 11 insertions, 13 deletions

diff --git a/init.el b/init.el
index 081950a..aa0bd7e 100644
--- a/init.el
+++ b/init.el
@@ -272,20 +272,18 @@ Restart works only on graphic display."
            (month-match? (string-match-p (concat (number-to-string month-regexp) "..T") f)))
       (when (and day-match? year-match? month-match?)
         f)))
-
   (defun mrl/denote-journal ()
-    "Create an entry tagged 'journal' with the date as its title."
-    (interactive)
-    (let* ((today-journal (mapcar #'mrl/is-todays-journal? (directory-files (denote-directory) nil "_journal")))
-           (journal (if (> (length today-journal) 1) ; need to apply the -non-nil LIST func here to remove nils
-                        (car (cdr today-journal))
-                      nil)))
-      (if journal
-          (progn
-            (find-file (concat (denote-directory) journal)))
-        (denote
-         (format-time-string "%A %e %B %Y")
-         '("journal")))))
+  "Create an entry tagged 'journal' with the date as its title."
+  (interactive)
+  (let* ((today-journal
+          (car (-non-nil
+                (mapcar #'mrl/is-todays-journal? (directory-files (denote-directory) nil "_journal"))))))
+    (if today-journal
+        (find-file (concat (denote-directory )today-journal))
+      (denote
+       (format-time-string "%A %e %B %Y")
+       '("journal")))))
+  
   :bind (("C-c n n" . denote-create-note)
          ("C-c n d" . mrl/denote-journal)
          ("C-c n t" . denote-type))