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

nit(org): make activate function suffixes consistent

Browse source
This commit is contained in:
Liam Hupfer 2023-09-19 21:39:59 -05:00 • committed by Henrik Lissner
parent 54c67acf2a
commit c3342a8011
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
modules/lang/org/autoload/org-link.el
View file

@ -124,7 +124,7 @@ exist, and `org-link' otherwise."
fn))))) fn)))))
;;;###autoload ;;;###autoload
(defun +org-link--face-link-activate-face (start end face _bracketed-p) (defun +org-link--face-link-activate-fn (start end face _bracketed-p)
(when buffer-read-only (when buffer-read-only
(add-text-properties (add-text-properties
start end start end
@ -156,7 +156,7 @@ exist, and `org-link' otherwise."
(concat prefix (and prefix " ") key-text))) (concat prefix (and prefix " ") key-text)))
;;;###autoload ;;;###autoload
(defun +org-link--command-link-activate-command (start end command _bracketed-p) (defun +org-link--command-link-activate-fn (start end command _bracketed-p)
(when buffer-read-only (when buffer-read-only
(add-text-properties (add-text-properties
start end (list 'display (+org-link--command-keys command))))) start end (list 'display (+org-link--command-keys command)))))

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

@ -557,12 +557,12 @@ relative to `org-directory', unless it is an absolute path."
(org-link-set-parameters (org-link-set-parameters
"face" "face"
:follow (-call-interactively #'describe-face) :follow (-call-interactively #'describe-face)
:activate-func #'+org-link--face-link-activate-face :activate-func #'+org-link--face-link-activate-fn
:face '(font-lock-type-face underline)) :face '(font-lock-type-face underline))
(org-link-set-parameters (org-link-set-parameters
"cmd" "cmd"
:follow (-call-interactively #'describe-command) :follow (-call-interactively #'describe-command)
:activate-func #'+org-link--command-link-activate-command :activate-func #'+org-link--command-link-activate-fn
:face 'help-key-binding :face 'help-key-binding
:help-echo #'+org-link-doom--help-echo-from-textprop) :help-echo #'+org-link-doom--help-echo-from-textprop)
(org-link-set-parameters (org-link-set-parameters