如何合理的导出help link 成HTML

  这是一个 <a href="lazy-helm/describe-char">Help</a> link
1

(defun org-link--export-help (path desc backend &optional _)
  "Export a \"help\" type link.
PATH is a symbol name, as a string."
  (let ((info (pcase (intern path)
                ((and (pred fboundp) function) (describe-function function))
                ((and (pred boundp) variable) (describe-variable variable))
                (name (user-error "Unknown function or variable: %s" name)))))
    (quit-window)                       ;关闭新开的 help window
    (pcase backend
      ('html (format "<label title='%s'>%s</label>" info desc))
      (_ desc))))
;; 注册 help 的导出函数
(org-link-set-parameters "help"
                         :export #'org-link--export-help)

这是一个 <label title='lazy-helm/describe-char is an interactive Lisp function.

It is bound to SPC h d c, M-m h d c.

(lazy-helm/describe-char)

Wrapper to ensure that ‘helm’ is loaded before calling describe-char.

'>Help</label> link
1
2
3
4
5
6
7
8
9