refactor(org): use new :help-echo for kbd link

2023-02-19 00:22:52 +08:00 · 2023-02-19 00:22:52 +08:00 · 825458e039
commit 825458e039
parent 14bf870025
2 changed files with 12 additions and 22 deletions
--- a/modules/lang/org/autoload/org-link.el
+++ b/modules/lang/org/autoload/org-link.el
@ -277,6 +277,11 @@ exist, and `org-link' otherwise."
  (if (not buffer-read-only)
      (format "LINK: %s" (org-element-property :raw-link link))
    (pcase (org-element-property :type link)
+      ("kbd"
+       (concat
+        "The key sequence "
+        (propertize (+org-link--describe-kbd (org-element-property :path link))
+                    'face 'help-key-binding)))
      ("doom-package"
       (concat
        (propertize "Emacs package " 'face 'bold)