gav451/emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
README.org
View File

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