emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/org: minor refactor

Browse source
This commit is contained in:
Henrik Lissner 2018-03-22 08:13:23 -04:00
parent 747a334d54
commit 68fed155ad
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
modules/lang/org/+attach.el
View file

@ -58,8 +58,8 @@
(when (file-in-directory-p buffer-file-name +org-dir) (when (file-in-directory-p buffer-file-name +org-dir)
(file-relative-name buffer-file-name +org-dir))) (file-relative-name buffer-file-name +org-dir)))
;; Write download paths relative to current file
(defun +org-attach*download-fullname (path) (defun +org-attach*download-fullname (path)
"Write PATH relative to current file."
(file-relative-name path (file-name-directory buffer-file-name))) (file-relative-name path (file-name-directory buffer-file-name)))
(advice-add #'org-download--dir-2 :override #'ignore) (advice-add #'org-download--dir-2 :override #'ignore)
(advice-add #'org-download--fullname (advice-add #'org-download--fullname
@ -72,10 +72,9 @@
(defun +org|init-attach () (defun +org|init-attach ()
(setq org-attach-directory (expand-file-name +org-attach-dir +org-dir)) (setq org-attach-directory (expand-file-name +org-attach-dir +org-dir))
;; A shorter link to attachments ;; A shorter link to attachments
(push (cons "attach" (abbreviate-file-name org-attach-directory)) org-link-abbrev-alist) (push (cons "attach" (abbreviate-file-name org-attach-directory)) org-link-abbrev-alist)
;; Enhance attach links
(org-link-set-parameters (org-link-set-parameters
"attach" "attach"
:follow (lambda (link) (find-file (expand-file-name link org-attach-directory))) :follow (lambda (link) (find-file (expand-file-name link org-attach-directory)))