emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/denote 8a168582e8 2/7: Add seconds to org time object


From: ELPA Syncer
Subject: [elpa] externals/denote 8a168582e8 2/7: Add seconds to org time object
Date: Sat, 20 Aug 2022 21:57:30 -0400 (EDT)

branch: externals/denote
commit 8a168582e87e2e33ebc57097fe95f61bc97d5959
Author: Jean-Philippe Gagné Guay <jeanphilippe150@gmail.com>
Commit: Jean-Philippe Gagné Guay <jeanphilippe150@gmail.com>

    Add seconds to org time object
---
 denote.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index e5fd9cff6f..6cf7c3d532 100644
--- a/denote.el
+++ b/denote.el
@@ -1131,7 +1131,11 @@ here for clarity."
 (defun denote--date-prompt ()
   "Prompt for date."
   (if denote-date-prompt-use-org-read-date
-      (format-time-string "%Y-%m-%d %H:%M:%S" (org-read-date nil t))
+      (let* ((org-time (org-read-date nil t))
+             (current-seconds (string-to-number
+                               (format-time-string "%S" (current-time))))
+             (time (time-add org-time current-seconds)))
+        (format-time-string "%Y-%m-%d %H:%M:%S" time))
     (read-string
      "DATE and TIME for note (e.g. 2022-06-16 14:30): "
      nil 'denote--date-history)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]