emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge pull request #722 from jeffvalk/main

Browse source 
Support Unix timestamps in date input
This commit is contained in:
Protesilaos 2026-08-10 11:29:47 +03:00 committed by GitHub
parent 3718a60305 9083ad781e
commit 7d0c06e0a4
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 15 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
denote.el
View file

@ -3674,8 +3674,18 @@ here for clarity."
((eq prefer-type :string) ((eq prefer-type :string)
(if date (format-time-string "%F %T" date) "")))) (if date (format-time-string "%F %T" date) ""))))
(defun denote--date-parse-string (date)
"Convert DATE to Denote's preferred string format if a recognized pattern.
Otherwise, return DATE unchanged. Currently supports Unix timestamps."
(cond ((string-match "[0-9]\\{10\\}" date) ; seconds since epoch
(let ((secs (string-to-number (match-string 0 date))))
(format-time-string "%Y-%m-%d %H:%M:%S" (seconds-to-time secs))))
(t date)))
(defun denote-date-prompt (&optional initial-date prompt-text) (defun denote-date-prompt (&optional initial-date prompt-text)
"Prompt for date, expecting YYYY-MM-DD or that plus HH:MM. "Prompt for date, expecting YYYY-MM-DD or that plus HH:MM.
Unix timestamp format is also supported.
Use Org's more advanced date selection utility if the user option Use Org's more advanced date selection utility if the user option
`denote-date-prompt-use-org-read-date' is non-nil. `denote-date-prompt-use-org-read-date' is non-nil.
@ -3696,10 +3706,11 @@ a value that can be parsed by `decode-time' or nil."
(when (string-equal "00" org-time-seconds) (when (string-equal "00" org-time-seconds)
(setq time (time-add time (string-to-number cur-time-seconds)))) (setq time (time-add time (string-to-number cur-time-seconds))))
(format-time-string "%Y-%m-%d %H:%M:%S" time)) (format-time-string "%Y-%m-%d %H:%M:%S" time))
(denote--date-parse-string
(read-string (read-string
(or prompt-text "DATE and TIME for note (e.g. 2022-06-16 14:30): ") (or prompt-text "DATE and TIME for note (e.g. 2022-06-16 14:30): ")
(denote--date-convert initial-date :string) (denote--date-convert initial-date :string)
'denote-date-history)))) 'denote-date-history)))))
(make-obsolete (make-obsolete
'denote-prompt-for-date-return-id 'denote-prompt-for-date-return-id