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

Bump :lang org

Browse source 
fuxialexander/org-pdftools@4156b67 -> fuxialexander/org-pdftools@67964a5
integral-dw/org-superstar-mode@4897c33 -> integral-dw/org-superstar-mode@09ddc28
jethrokuan/org-roam@e33c144 -> jethrokuan/org-roam@6175739
magit/orgit@0242088 -> magit/orgit@7d6afa5
This commit is contained in:
Henrik Lissner 2020-04-17 14:05:15 -04:00
parent 9af22a9322
commit 5502013906
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 23 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -811,40 +811,18 @@ compelling reason, so..."
:commands org-pdftools-export
:init
(after! org
(add-hook 'org-store-link-functions #'org-pdftools-store-link)
;; HACK `org-pdftools' hard-codes "pdftools:" for its links. We want to use
;; a generic link so that the backend doesn't matter. These hacks are
;; in place so that the old pdf(view|tools) links still work, but that
;; org-pdftools will only generate pdf: links.
(org-link-set-parameters "pdf"
(org-link-set-parameters (or (bound-and-true-p org-pdftools-link-prefix) "pdf")
:follow #'org-pdftools-open
:complete #'org-pdftools-complete-link
:store #'org-pdftools-store-link
:export #'org-pdftools-export)
(add-hook 'org-store-link-functions #'org-pdftools-store-link)
(add-hook! 'org-open-link-functions
(defun +org-open-old-pdf-links-fn (link)
(let ((regexp "^pdf\\(?:tools\\|view\\):"))
(when (string-match-p regexp link)
(org-pdftools-open (replace-regexp-in-string regexp "" link))
t))))
;; TODO Perhaps PR a variable for changing the link upstream?
(defadvice! +org--use-generic-link-a (link)
:filter-return '(org-pdftools-complete-link
org-pdftools-get-link)
(replace-regexp-in-string "^pdftools:" "pdf:" link))
(defadvice! +org--store-generic-link-a (orig-fn &rest args)
:around #'org-pdftools-store-link
(cl-letf* ((old-store-props (symbol-function #'org-link-store-props))
((symbol-function #'org-link-store-props)
(lambda (&rest plist)
(plist-put! plist :type "pdf")
(plist-put! plist :link (+org--use-generic-link-a (plist-get plist :link)))
(apply old-store-props plist))))
(apply orig-fn args)))))
t))))))
(use-package! evil-org