Add `grok-org-element-lineage' and documentation strings

This commit is contained in:
Gerard Vermeulen 2023-06-23 11:38:37 +02:00
parent 0aab3875c9
commit db43a31640
1 changed files with 12 additions and 1 deletions

View File

@ -3921,16 +3921,19 @@ non-interactive =org-element= functions to an =Emacs-lisp= buffer.
"Grok Org output buffer name.")
(defun grok-org-element-at-point ()
"Call `org-element-at-point' interactively and pretty-print."
(interactive)
(pp-display-expression
(org-element-at-point) grok-org-output))
(defun grok-org-element-context ()
"Call `org-element-context' interactively and pretty-print."
(interactive)
(pp-display-expression
(org-element-context) grok-org-output))
(defun grok-org-element-parse-buffer ()
"Call `org-element-parse-buffer' interactively and pretty-print."
(interactive)
(let ((what (completing-read
"granularity: "
@ -3940,9 +3943,17 @@ non-interactive =org-element= functions to an =Emacs-lisp= buffer.
(org-element-parse-buffer what) grok-org-output)))
(defun grok-org-heading-components ()
"Call `org-heading-components' interactively and pretty-print."
(interactive)
(pp-display-expression
(org-heading-components) grok-org-output))))
(org-heading-components) grok-org-output))
(defun grok-org-element-lineage ()
"Call `org-element-lineage' interactively and pretty-print."
(interactive)
(org-load-modules-maybe)
(pp-display-expression
(org-element-lineage (org-element-context) nil t) grok-org-output))))
#+end_src
** Grammar, spelling, and style tools