From 9e28ee4b413aa2d86d267c1e3f48e47e557f82e4 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Sun, 23 Apr 2023 18:22:26 +0100 Subject: Fix finding of file in the zettelkasten directory --- org-zettelkasten.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/org-zettelkasten.el b/org-zettelkasten.el index 30632ef..53047da 100644 --- a/org-zettelkasten.el +++ b/org-zettelkasten.el @@ -253,23 +253,28 @@ adds `org-zettelkasten--update-modified' to buffer local ;;;###autoload (defun org-zettelkasten-new-topic (file-name) "Create a new topic in a file named FILE-NAME." - (interactive "sNew Topic Filename: ") + (interactive "sNew topic filename: ") (org-zettelkasten--ensure-read-mapping) (let ((new-id (if org-zettelkasten--mapping (1+ (apply #'max (mapcar (lambda (val) (car val)) org-zettelkasten--mapping))) - 1))) - (org-zettelkasten--add-topic new-id file-name) - (find-file file-name) + 1)) + (norm-file-name + (if (string-suffix-p ".org" file-name) + file-name + (concat file-name ".org")))) + (org-zettelkasten--add-topic new-id norm-file-name) + (find-file (org-zettelkasten--abs-file norm-file-name)) (insert (format "#+title: * First Note :PROPERTIES: :CUSTOM_ID: %da +:EXPORT_DATE: %s :END: -" new-id)))) +" new-id (format-time-string (org-time-stamp-format t t)))))) (defvar org-zettelkasten-mode-map (let ((map (make-sparse-keymap))) -- cgit