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

(feat) remove user-error for org-roam-insert (#486)

Browse source 
* (feat) remove user-error for org-roam-insert

Closes #477.

* (fix) use absolute path when buffer has no associated file

Co-authored-by: Jethro Kuan <jethrokuan95@gmail.com>
This commit is contained in:
Leo Vivier 2020-04-18 07:10:14 +02:00 committed by GitHub
parent ba80a31fe0
commit 9e138e259a
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
org-roam.el
View file

@ -307,13 +307,16 @@ specified via the #+ROAM_ALIAS property."
(defun org-roam--format-link (target &optional description)
"Formats an org link for a given file TARGET and link DESCRIPTION."
(let* ((here (-> (or (buffer-base-buffer)
(current-buffer))
(buffer-file-name)
(file-truename)
(file-name-directory))))
(let* ((here (ignore-errors
(-> (or (buffer-base-buffer)
(current-buffer))
(buffer-file-name)
(file-truename)
(file-name-directory)))))
(org-link-make-string
(concat "file:" (file-relative-name target here))
(concat "file:" (if here
(file-relative-name target here)
target))
description)))
(defun org-roam-insert (prefix &optional filter-fn)
@ -323,9 +326,6 @@ FILTER-FN is the name of a function to apply on the candidates
which takes as its argument an alist of path-completions. See
`org-roam--get-title-path-completions' for details."
(interactive "P")
(unless (org-roam--org-roam-file-p
(buffer-file-name (buffer-base-buffer)))
(user-error "Not in an Org-roam file"))
(let* ((region (and (region-active-p)
;; following may lose active region, so save it
(cons (region-beginning) (region-end))))