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

Tweak the behaviour of denote-create-unique-file-identifier

Browse source
This commit is contained in:
Protesilaos Stavrou 2024-02-13 08:41:44 +02:00
parent aa865fa0d9
commit e9e9c8ef2b
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 6 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
denote.el
View file

@ -1561,8 +1561,9 @@ current time."
The conditions are as follows:
- If optional DATE conforms with `denote-valid-date-p', use it
as-is to get an identifier from it with `denote-get-identifier'.
- If optional DATE is non-nil pass it to `denote-get-identifier'.
DATE will have to conform with `denote-valid-date-p'. If it
does not, return an error.
- If optional DATE is nil, use the file attributes to determine
the last modified date and format it as an identifier.
@ -1571,18 +1572,10 @@ The conditions are as follows:
To only return an existing identifier, refer to the function
`denote-retrieve-filename-identifier'."
;; TODO 2024-02-11: Maybe we can use `denote-parse-date' here to
;; simplify this?
(let ((id (cond
((denote-valid-date-p date) (denote-get-identifier date))
;; FIXME 2024-02-11: Under which condition do we want
;; this to happen? I am using this is not needed, but
;; keeping it here while we are still developing the new
;; version 3.0.0.
;;
;; (date (denote-prompt-for-date-return-id))
((denote--file-attributes-time file))
(t (denote-get-identifier)))))
(date (denote-get-identifier date))
((denote--file-attributes-time file))
(t (denote-get-identifier)))))
(denote--find-first-unused-id id used-ids)))
(define-obsolete-function-alias