branch: externals/denote-journal
commit 4bd57037f0a44a8f5bd460a0f7c3d13f2cbcd93e
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Remove useless when-let in denote-journal-calendar--date-to-time
---
denote-journal.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/denote-journal.el b/denote-journal.el
index 5b384f6dbb..6e849a85a4 100644
--- a/denote-journal.el
+++ b/denote-journal.el
@@ -321,10 +321,9 @@ Return (MONTH DAY YEAR) or nil if not an Org time-string."
(defun denote-journal-calendar--date-to-time (calendar-date)
"Return internal time of `calendar' CALENDAR-DATE.
CALENDAR-DATE is commensurate with `calendar-cursor-to-date'."
- (when-let* ((current-date calendar-date))
- (pcase-let ((`(,month ,day ,year) current-date)
- (time (format-time-string "%T")))
- (date-to-time (format "%s-%02d-%02d %s" year month day time)))))
+ (pcase-let ((`(,month ,day ,year) calendar-date)
+ (time (format-time-string "%T")))
+ (date-to-time (format "%s-%02d-%02d %s" year month day time))))
(defun denote-journal-calendar--date-at-point-to-identifier (calendar-date)
"Return path to Denote journal entry corresponding to CALENDAR-DATE.
