Org Mode でリンク種別に応じたプレフィクスを表示する 検証用

org-link-prefixes-init.el

(require 'org)

(defconst toncs-org-link-prefixes '(("id" . "🦄")
                                    ("roam" . "🦄")
                                    ("attachment" . "📎")
                                    ("file" . "💾")
                                    ("file+sys" . "💾")
                                    ("file+emacs" . "🗒")
                                    ("shell" . "💻")
                                    ("https" . "🌐")
                                    ("http" . "🌐")
                                    ("help" . "❓")
                                    ("info" . "ℹ")
                                    ("elisp" . "⚡")))

(defun toncs-org-link-on-modification (ov changed _start _end &optional _len)
  (when changed (delete-overlay ov)))

(defun toncs-org-link-activate (type start end bracketp)
  (remove-overlays start end 'org-link-prefix t)
  (when (and org-link-descriptive bracketp)
    (let* ((prefix (or (when-let ((found (cdr-safe (assoc-string type toncs-org-link-prefixes))))
                         (format "%s " found))
                       (format "%s:" (upcase type))))
           (ov (make-overlay start end))
           (props `((org-link-prefix . t)
                    (before-string . ,prefix)
                    (evaporate . t)
                    (modification-hooks . ,(list #'toncs-org-link-on-modification))
                    (insert-in-front-hooks . ,(list #'toncs-org-link-on-modification)))))
      (dolist (prop props)
        (overlay-put ov (car prop) (cdr prop))))))

(defun toncs-config-org-link ()
  (dolist (type (org-link-types))
    (org-link-set-parameters type
                             :activate-func
                             (lambda (start end _path bracketp)
                               (toncs-org-link-activate type start end bracketp)))))
(toncs-config-org-link)

org-link-prefixes-init2.el

(require 'org)

(defconst toncs-org-link-prefixes '(("id" . "午")
                                    ("roam" . "午")
                                    ("attachment" . "添")
                                    ("file" . "書")
                                    ("file+sys" . "書")
                                    ("file+emacs" . "書")
                                    ("shell" . "貝")
                                    ("https" . "安")
                                    ("http" . "超")
                                    ("help" . "助")
                                    ("info" . "情")
                                    ("elisp" . "E")))

(defun toncs-org-link-on-modification (ov changed _start _end &optional _len)
  (when changed (delete-overlay ov)))

(defun toncs-org-link-activate (type start end bracketp)
  (remove-overlays start end 'org-link-prefix t)
  (when (and org-link-descriptive bracketp)
    (let* ((prefix (or (when-let ((found (cdr-safe (assoc-string type toncs-org-link-prefixes))))
                         (format "%s " found))
                       (format "%s:" (upcase type))))
           (ov (make-overlay start end))
           (props `((org-link-prefix . t)
                    (before-string . ,prefix)
                    (evaporate . t)
                    (modification-hooks . ,(list #'toncs-org-link-on-modification))
                    (insert-in-front-hooks . ,(list #'toncs-org-link-on-modification)))))
      (dolist (prop props)
        (overlay-put ov (car prop) (cdr prop))))))

(defun toncs-config-org-link ()
  (dolist (type (org-link-types))
    (org-link-set-parameters type
                             :activate-func
                             (lambda (start end _path bracketp)
                               (toncs-org-link-activate type start end bracketp)))))
(toncs-config-org-link)

test.org

GitHub

Google

実行方法

emacs-28.2\bin\runemacs.exe -q -l C:\Users\orangeclover\Desktop\org-link-prefixes-init.el

emacs-28.2\bin\runemacs.exe -q -l C:\Users\orangeclover\Desktop\org-link-prefixes-init2.el

環境

(org-version)
"9.5.5"


(emacs-version)
"GNU Emacs 28.2 (build 2, x86_64-w64-mingw32)
 of 2022-09-14"