diff options
| author | Joseph Turner <joseph@breatheoutbreathe.in> | 2023-04-23 09:41:12 -0700 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2023-04-23 19:04:50 +0100 |
| commit | 23ad5db1cb9aeea700e91db95bf0ac4401c01068 (patch) | |
| tree | 950bed721611fd36cbfb152e923b2b017512aae5 | |
| parent | 13e1caea836ba6c100a63aefb7472c8ea0c326f9 (diff) | |
| download | org-zettelkasten-23ad5db1cb9aeea700e91db95bf0ac4401c01068.tar.gz org-zettelkasten-23ad5db1cb9aeea700e91db95bf0ac4401c01068.zip | |
Change: (org-zettelkasten--incr-id) Use cl-incf
| -rw-r--r-- | org-zettelkasten.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/org-zettelkasten.el b/org-zettelkasten.el index 7028f86..81a34c7 100644 --- a/org-zettelkasten.el +++ b/org-zettelkasten.el @@ -33,6 +33,7 @@ ;;; Code: (require 'org) +(require 'cl-lib) (defgroup org-zettelkasten nil "Helper to work with zettelkasten notes." @@ -140,9 +141,8 @@ This function assumes that IDs will start with a number." "Simple function to increment any IDENT. This might result in duplicate IDs though." - (let* ((ident-list (append nil ident nil)) - (last-ident (last ident-list))) - (setcar last-ident (+ (car last-ident) 1)) + (let ((ident-list (string-to-list ident))) + (cl-incf (car (last ident-list))) (concat ident-list))) (defun org-zettelkasten--incr-id-total (ident) |