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

Make denote-sequence-get-relative correctly get the parents

Browse source
This commit is contained in:
Protesilaos Stavrou 2025-01-17 09:03:26 +02:00
parent 71630b9510
commit 47fbde671a
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
denote-sequence.el
View file

@ -575,15 +575,21 @@ With optional FILES consider only those, otherwise operate on all files
returned by `denote-sequence-get-all-files'."
(let* ((depth (denote-sequence-depth sequence))
(components (denote-sequence-split sequence))
(filter (lambda (comparison prefix)
(filter-common (lambda (comparison prefix)
(seq-filter
(lambda (file)
(funcall comparison (denote-sequence-depth (denote-retrieve-filename-signature file)) depth))
(denote-sequence-get-all-files-with-prefix prefix files)))))
(pcase type
('parent (funcall filter '< (car components)))
('sibling (funcall filter '= (denote-sequence-join (butlast components) (cdr (denote-sequence-and-scheme-p sequence)))))
('child (funcall filter '> sequence))
('parent (let ((parents nil)
(butlast (butlast components)))
(while (>= (length butlast) 1)
(let ((prefix (denote-sequence-join butlast (cdr (denote-sequence-and-scheme-p sequence)))))
(push (car (denote-sequence-get-all-files-with-prefix prefix files)) parents))
(setq butlast (butlast butlast)))
parents))
('sibling (funcall filter-common '= (denote-sequence-join (butlast components) (cdr (denote-sequence-and-scheme-p sequence)))))
('child (funcall filter-common '> sequence))
(_ (error "The type `%s' is not among the `denote-sequence-types'" type)))))
(defvar denote-sequence-type-history nil