Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
;;; obsidianにあわせてwikinameの挙動を変更したい
(defun howm-keyword-search-create (title)
(let ((fn (car (remove nil (mapcar (lambda (x)
(if (string=
(file-name-nondirectory x)
(concat (replace-regexp-in-string "<<< " "" title) ".md"))
x)
) (mapcar #'howm-view-item-filename (howm-all-items)))))))
(if fn
(howm-page-open fn)
(progn
;; original
"create new memo <<< TITLE."
(howm-create-file-with-title title)
(message "New keyword.")))
))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment