yogsototh/org-roam
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(feat): Allow function for org-roam-link-title-format (#261)

Browse source 
Addresses #255
This commit is contained in:
Jethro Kuan 2020-03-09 22:18:04 +08:00 committed by GitHub
parent d16d001b9e
commit 5e0b7440a3
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
org-roam.el
View file

@ -80,8 +80,11 @@ Valid values are
:group 'org-roam)
(defcustom org-roam-link-title-format "%s"
"The format string used when inserting Org-roam links that use their title."
:type 'string
"The formatter used when inserting Org-roam links that use their title.
Formatter may be a function that takes title as its only argument."
:type '(choice
(string :tag "String Format" "%s")
(function :tag "Custom function"))
:group 'org-roam)
(defcustom org-roam-buffer-width 0.33 "Width of `org-roam' buffer."
@ -728,6 +731,12 @@ GOTO and KEYS argument have the same functionality as
(defvar org-roam--capture-insert-point nil
"The point to jump to after the call to `org-roam-insert'.")
(defun org-roam--format-link-title (title)
"Returns the link title, given the file TITLE."
(if (functionp org-roam-link-title-format)
(funcall org-roam-link-title-format title)
(format org-roam-link-title-format title)))
(defun org-roam-insert (prefix)
"Find an Org-roam file, and insert a relative org link to it at point.
If PREFIX, downcase the title before insertion."
@ -759,9 +768,9 @@ If PREFIX, downcase the title before insertion."
(when region ;; Remove previously selected text.
(delete-region (car region) (cdr region)))
(let ((link-location (concat "file:" (file-relative-name target-file-path current-file-path)))
(description (format org-roam-link-title-format (if prefix
(downcase region-or-title)
region-or-title))))
(description (org-roam--format-link-title (if prefix
(downcase region-or-title)
region-or-title))))
(goto-char p)
(insert (format "[[%s][%s]]"
link-location