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

Support permutations of file names

Browse source 
Testing with these:

    ;; Identifier only: 20220707T172335.txt
    (denote nil nil)

    ;; No title field, but with keywords: 20220707T172349__test.txt
    (denote nil '("test"))
    (denote nil '("test" "two"))

    ;; Title, no keywords: 20220707T172458--test.txt
    (denote "test" nil)

    ;; Title and keywords (what we always had): 20220707T172525--test__test.txt
    (denote "test" '("test"))
    (denote "test" '("test" "two"))
This commit is contained in:
Protesilaos Stavrou 2022-07-07 17:25:47 +03:00
parent 1075cbb65f
commit 916344321a
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 16 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
denote.el
View file

@ -466,16 +466,25 @@ output is sorted with `string-lessp'."
('text ".txt")
(_ ".org")))
(defun denote--format-file (path id keywords slug extension)
(defun denote--format-file (path id keywords title-slug extension)
"Format file name.
PATH, ID, KEYWORDS, SLUG are expected to be supplied by `denote'
or equivalent: they will all be converted into a single string.
EXTENSION is the file type extension, either a string which
include the starting dot or the return value of
PATH, ID, KEYWORDS, TITLE-SLUG are expected to be supplied by
`denote' or equivalent: they will all be converted into a single
string. EXTENSION is the file type extension, either a string
which include the starting dot or the return value of
`denote--file-extension'."
(let ((kws (denote--keywords-combine keywords))
(ext (or extension (denote--file-extension))))
(format "%s%s--%s__%s%s" path id slug kws ext)))
(ext (or extension (denote--file-extension)))
(empty-title (string-empty-p title-slug)))
(cond
((and keywords title-slug (not empty-title))
(format "%s%s--%s__%s%s" path id title-slug kws ext))
((and keywords empty-title)
(format "%s%s__%s%s" path id kws ext))
((and title-slug (not empty-title))
(format "%s%s--%s%s" path id title-slug ext))
(t
(format "%s%s%s" path id ext)))))
(defun denote--map-quote-downcase (seq)
"Quote and downcase elements in SEQ."