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

lang/org: add more org links & abbrevs

Browse source 
New org, doom, doom-module and doom-docs links, with completion and
non-existing file highlights.
This commit is contained in:
Henrik Lissner 2018-02-03 06:12:04 -05:00
parent 7e21d66bf7
commit 169cd809bc
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 29 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

33
modules/lang/org/config.el
View file

@ -171,14 +171,35 @@ unfold to point on startup."
:background nil t)))
;; Custom links
(org-link-set-parameters
"org"
:complete (lambda () (+org-link-read-file "org" +org-dir))
:follow (lambda (link) (find-file (expand-file-name link +org-dir)))
(setq org-link-abbrev-alist
'(("github" . "https://github.com/%s")
("youtube" . "https://youtube.com/watch?v=%s")
("google" . "https://google.com/search?q=")
("gimages" . "https://google.com/images?q=%s")
("gmap" . "https://maps.google.com/maps?q=%s")
("duckduckgo" . "https://duckduckgo.com/?q=%s")
("wolfram" . "https://wolframalpha.com/input/?i=%s")
("doom-repo" . "https://github.com/hlissner/doom-emacs/%s")))
(defun +org--relpath (path root)
(if (and buffer-file-name (file-in-directory-p buffer-file-name root))
(file-relative-name path)
path))
(defmacro def-org-file-link! (key dir)
`(org-link-set-parameters
,key
:complete (lambda () (+org--relpath (+org-link-read-file ,key ,dir) ,dir))
:follow (lambda (link) (find-file (expand-file-name link ,dir)))
:face (lambda (link)
(if (file-exists-p (expand-file-name link +org-dir))
(if (file-exists-p (expand-file-name link ,dir))
'org-link
'error)))
'(:inherit (error underline))))))
(def-org-file-link! "org" +org-dir)
(def-org-file-link! "doom" doom-emacs-dir)
(def-org-file-link! "doom-module" doom-modules-dir)
(def-org-file-link! "doom-docs" doom-docs-dir)
;; Update UI when theme is changed
(add-hook 'doom-init-theme-hook #'+org|setup-ui))