diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-04-23 18:22:26 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-04-23 18:22:26 +0100 |
commit | 9e28ee4b413aa2d86d267c1e3f48e47e557f82e4 (patch) | |
tree | dd1be5084a05a25c726db6f00d4f8fae9162f117 | |
parent | 5dea0be366ac345d205fe500b641ce9e939f86e5 (diff) | |
download | org-zettelkasten-9e28ee4b413aa2d86d267c1e3f48e47e557f82e4.tar.gz org-zettelkasten-9e28ee4b413aa2d86d267c1e3f48e47e557f82e4.zip |
Fix finding of file in the zettelkasten directory
-rw-r--r-- | org-zettelkasten.el | 15 |
1 files 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))) |