refactor(emacs-lisp): elisp-demos: reorganize Doom demos
- Move Doom core elisp API demos out of docs/examples.org into lisp/demos.org. - Recognize and search demos.org file in modules for additional demos (including $DOOMDIR/demos.org). - Refactor emacs-lisp module to use new elisp-demos-user-files variable instead of an advice. This way, elisp-demo's commands (such as `elisp-demos-find-demo` and `elisp-demos-add-demo`) will include Doom's demos.
This commit is contained in:
parent
77ea4013dd
commit
3bea4f66a8
4 changed files with 675 additions and 703 deletions
|
@ -469,31 +469,6 @@ library/userland functions"
|
|||
;;
|
||||
;;; Advice
|
||||
|
||||
;;;###autoload
|
||||
(defun +emacs-lisp--add-doom-elisp-demos-a (fn symbol)
|
||||
"Add Doom's own demos to `elisp-demos'.
|
||||
|
||||
Intended as :around advice for `elisp-demos--search'."
|
||||
(let ((org-inhibit-startup t)
|
||||
enable-dir-local-variables
|
||||
org-mode-hook)
|
||||
(or (funcall fn symbol)
|
||||
(with-file-contents! (doom-path doom-docs-dir "examples.org")
|
||||
(save-excursion
|
||||
(when (re-search-forward
|
||||
(format "^\\*+[ \t]+\\(?:TODO \\)?%s$"
|
||||
(regexp-quote (symbol-name symbol)))
|
||||
nil t)
|
||||
(forward-line 1)
|
||||
(let ((demos
|
||||
(string-trim
|
||||
(buffer-substring-no-properties
|
||||
(point) (if (re-search-forward "^\\*+ " nil t)
|
||||
(line-beginning-position)
|
||||
(point-max))))))
|
||||
(unless (string-blank-p demos)
|
||||
demos))))))))
|
||||
|
||||
;;;###autoload (put 'map! 'indent-plists-as-data t)
|
||||
;;;###autoload
|
||||
(defun +emacs-lisp--calculate-lisp-indent-a (&optional parse-start)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue