From 23ad5db1cb9aeea700e91db95bf0ac4401c01068 Mon Sep 17 00:00:00 2001 From: Joseph Turner Date: Sun, 23 Apr 2023 09:41:12 -0700 Subject: Change: (org-zettelkasten--incr-id) Use cl-incf --- org-zettelkasten.el | 6 +++--- 1 file 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) -- cgit