awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-01 12:17:21 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor into org-roam--make-file

Browse Source
This commit is contained in:
Jethro Kuan
2020-02-12 13:36:45 +08:00
parent 654a0d4070
commit 5ee1cf198d
1 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
org-roam.el
View File

@ -199,16 +199,22 @@ If not provided, derive the title from the file name."
"\n\n")
nil file nil)))
(defun org-roam--make-file (file-path &optional title)
"Create an org-roam file at FILE-PATH, optionally setting the TITLE attribute."
(if (file-exists-p file-path)
(error (format "Aborting, file already exists at " file-path))
(if org-roam-autopopulate-title
(org-roam--populate-title file-path title)
(make-empty-file file-path))))
(defun org-roam--new-file-named (slug)
"Create a new file named `SLUG'.
`SLUG' is the short file name, without a path or a file extension."
(interactive "sNew filename (without extension): ")
(let ((file (org-roam--get-file-path slug t)))
(unless (file-exists-p file)
(if org-roam-autopopulate-title
(org-roam--populate-title file)
(make-empty-file file)))
(find-file file)))
(let ((file-path (org-roam--get-file-path slug t)))
(unless (file-exists-p file-path)
(org-roam--make-file file-path))
(find-file file-path)))
(defun org-roam-new-file ()
"Quickly create a new file, using the current timestamp."
@ -234,9 +240,7 @@ If not provided, derive the title from the file name."
(read-string "Enter new file id: "))))
(let ((file-path (org-roam--get-file-path id)))
(unless (file-exists-p file-path)
(if org-roam-autopopulate-title
(org-roam--populate-title file-path title)
(make-empty-file file-path)))
(org-roam--make-file file-path title))
(insert (format "[[%s][%s]]"
(concat "file:" file-path)
(format org-roam-link-title-format title))))))
@ -246,9 +250,7 @@ If not provided, derive the title from the file name."
(let* ((id (completing-read "File: " (mapcar #'org-roam--get-id (org-roam--find-all-files))))
(file-path (org-roam--get-file-path id)))
(unless (file-exists-p file-path)
(if org-roam-autopopulate-title
(org-roam--populate-title file-path)
(make-empty-file file-path)))
(org-roam--make-file file-path))
(insert (format "[[%s][%s]]"
(concat "file:" file-path)
(format org-roam-link-id-format id)))))
@ -266,9 +268,7 @@ If not provided, derive the title from the file name."
(let ((id (read-string "Enter new file id: ")))
(setq file-path (org-roam--get-file-path id t))))
(unless (file-exists-p file-path)
(if org-roam-autopopulate-title
(org-roam--populate-title file-path title-or-id)
(make-empty-file file-path)))
(org-roam--make-file file-path title-or-id))
(find-file file-path)))
;;; Building the org-roam cache (asynchronously)