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

Merge pull request #58 from jethrokuan/feat/title->id

Browse source 
add org-roam--title-to-id
This commit is contained in:
Jethro Kuan 2020-02-12 21:20:52 +08:00 committed by GitHub
commit ceb88e1e82
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
org-roam.el
View file

@ -181,6 +181,14 @@ If `ABSOLUTE', return the absolute file-path. Else, return the relative file-pat
(or (org-roam--get-title file-path)
(org-roam--get-id file-path)))
(defun org-roam--title-to-id (title)
"Convert TITLE to id."
(let* ((s (s-downcase title))
(s (replace-regexp-in-string "[^a-zA-Z0-9_ ]" "" s))
(s (s-split " " s))
(s (s-join "_" s)))
s))
;;; Creating org-roam files
(defun org-roam--populate-title (file &optional title)
"Populate title line for FILE using TITLE, if provided.
@ -237,7 +245,7 @@ If not provided, derive the title from the file name."
(org-roam--find-all-files)))
(title (completing-read "File: " completions))
(id (or (cadr (assoc title completions))
(read-string "Enter new file id: "))))
(read-string "Enter new file id: " (org-roam--title-to-id title)))))
(let ((file-path (org-roam--get-file-path id)))
(unless (file-exists-p file-path)
(org-roam--make-file file-path title))
@ -265,7 +273,8 @@ If not provided, derive the title from the file name."
(title-or-id (completing-read "File: " completions))
(file-path (cadr (assoc title-or-id completions))))
(unless file-path
(let ((id (read-string "Enter new file id: ")))
(let ((id (read-string "Enter new file id: "
(org-roam--title-to-id title-or-id))))
(setq file-path (org-roam--get-file-path id t))))
(unless (file-exists-p file-path)
(org-roam--make-file file-path title-or-id))