howm-obsidian-wiki-name.el

;;; 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.")))
    ))