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

Use denote-sequence-split in two cases

Browse source
This commit is contained in:
Protesilaos Stavrou 2024-12-31 12:05:45 +02:00
parent b72257ad7d
commit 80901d4604
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
denote-sequence.el
View file

@ -155,7 +155,7 @@ With optional SEQUENCES consider only those, otherwise operate on the
return value of `denote-sequence-get-all-sequences'."
(if-let* ((all (or sequences (denote-sequence-get-all-sequences))))
(let* ((largest (denote-sequence--get-largest all 'parent))
(first-component (car (split-string largest "=")))
(first-component (car (denote-sequence-split largest)))
(current-number (string-to-number first-component)))
(number-to-string (+ current-number 1)))
"1"))
@ -208,7 +208,7 @@ function `denote-sequence-get-all-sequences-with-prefix'."
(denote-sequence--get-largest all 'sibling)
(denote-sequence--get-largest all 'parent))))
(if children-p
(let* ((components (split-string largest "="))
(let* ((components (denote-sequence-split largest))
(butlast (butlast components))
(last-component (car (nreverse components)))
(current-number (string-to-number last-component))