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

fix(org): lazy loading of org-protocol

Browse source 
First, removal of the old org-protocol advice needed to be updated,
because org-protocol-detect-protocol-server was renamed to
org--protocol-detect-protocol-server upstream.

Second, I only noticed now that our lazy loader for org-protocol wasn't
active until Org was loaded, which was far too late, and meant
org-protocol wasn't working out of the box. This fixes that.
This commit is contained in:
Henrik Lissner 2022-06-20 01:31:22 +02:00
parent b81e4af66a
commit fb1c8eb11d
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 15 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1046,45 +1046,6 @@ between the two."
("^\\*Capture\\*$\\|CAPTURE-.*$" :size 0.42 :quit nil :select t :autosave ignore)))) ("^\\*Capture\\*$\\|CAPTURE-.*$" :size 0.42 :quit nil :select t :autosave ignore))))
(defun +org-init-protocol-lazy-loader-h ()
"Brings lazy-loaded support for org-protocol, so external programs (like
browsers) can invoke specialized behavior from Emacs. Normally you'd simply
require `org-protocol' and use it, but the package loads all of org for no
compelling reason, so..."
(defadvice! +org--server-visit-files-a (args)
"Advise `server-visit-flist' to invoke `org-protocol' lazily."
:filter-args #'server-visit-files
(cl-destructuring-bind (files proc &optional nowait) args
(catch 'greedy
(let ((flist (reverse files)))
(dolist (var flist)
(when (string-match-p ":/+" (car var))
(require 'server)
(require 'org-protocol)
;; `\' to `/' on windows
(let ((fname (org-protocol-check-filename-for-protocol
(expand-file-name (car var))
(member var flist)
proc)))
(cond ((eq fname t) ; greedy? We need the t return value.
(setq files nil)
(throw 'greedy t))
((stringp fname) ; probably filename
(setcar var fname))
((setq files (delq var files)))))))))
(list files proc nowait)))
;; Disable built-in, clumsy advice
(after! org-protocol
(ad-disable-advice 'server-visit-files 'before 'org-protocol-detect-protocol-server)))
(defun +org-init-protocol-h ()
;; TODO org-board or better link grabbing support
;; TODO org-capture + org-protocol instead of bin/org-capture
)
(defun +org-init-smartparens-h () (defun +org-init-smartparens-h ()
;; Disable the slow defaults ;; Disable the slow defaults
(provide 'smartparens-org)) (provide 'smartparens-org))
@ -1333,10 +1294,23 @@ compelling reason, so..."
#'+org-init-hacks-h #'+org-init-hacks-h
#'+org-init-keybinds-h #'+org-init-keybinds-h
#'+org-init-popup-rules-h #'+org-init-popup-rules-h
#'+org-init-protocol-h
#'+org-init-protocol-lazy-loader-h
#'+org-init-smartparens-h) #'+org-init-smartparens-h)
;; Wait until an org-protocol link is opened via emacsclient to load
;; `org-protocol'. Normally you'd simply require `org-protocol' and use it,
;; but the package loads all of org for no compelling reason, so...
(defadvice! +org--server-visit-files-a (fn files &rest args)
"Advise `server-visit-files' to load `org-protocol' lazily."
:around #'server-visit-files
(if (not (cl-loop for var in files
if (string-match-p "://" (car var))
return t))
(apply fn files args)
(require 'org-protocol)
(apply #'org--protocol-detect-protocol-server fn files args)))
(after! org-protocol
(advice-remove 'server-visit-files #'org--protocol-detect-protocol-server)))
;; In case the user has eagerly loaded org from their configs ;; In case the user has eagerly loaded org from their configs
(when (and (featurep 'org) (when (and (featurep 'org)
(not byte-compile-current-file)) (not byte-compile-current-file))