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

Fix legacy pdf(view|tools) links & storing pdf links

Browse source
This commit is contained in:
Henrik Lissner 2020-04-16 19:10:28 -04:00
parent ccec354739
commit ab025caced
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -825,10 +825,9 @@ compelling reason, so..."
(add-hook! 'org-open-link-functions (add-hook! 'org-open-link-functions
(defun +org-open-old-pdf-links-fn (link) (defun +org-open-old-pdf-links-fn (link)
(let ((regexp "^pdf\\(?:tools\\|view\\):") (let ((regexp "^pdf\\(?:tools\\|view\\):"))
(org-open-link-functions (remq #'+org-open-old-pdf-links-fn org-open-link-functions)))
(when (string-match-p regexp link) (when (string-match-p regexp link)
(org-link-open (replace-regexp-in-string regexp "pdf:" link)) (org-pdftools-open (replace-regexp-in-string regexp "" link))
t)))) t))))
;; TODO Perhaps PR a variable for changing the link upstream? ;; TODO Perhaps PR a variable for changing the link upstream?
@ -842,7 +841,9 @@ compelling reason, so..."
(cl-letf* ((old-store-props (symbol-function #'org-link-store-props)) (cl-letf* ((old-store-props (symbol-function #'org-link-store-props))
((symbol-function #'org-link-store-props) ((symbol-function #'org-link-store-props)
(lambda (&rest plist) (lambda (&rest plist)
(apply old-store-props (plist-put plist :type "pdf"))))) (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))))) (apply orig-fn args)))))