emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Smarter narf/org-execute-at-point

Browse source
This commit is contained in:
Henrik Lissner 2015-11-18 15:20:44 -05:00
parent e285c928cc
commit fb71be9a94
1 changed files with 37 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

50
modules/lib/defuns-org.el
View file

@ -75,19 +75,43 @@
;;;###autoload
(defun narf/org-execute-at-point ()
(interactive)
(cond ((org-at-item-checkbox-p)
(org-toggle-checkbox))
((org-entry-is-todo-p)
(org-todo 'done))
((org-table-p)
(org-table-align))
((org-babel-lob-get-info)
(org-babel-lob-execute-maybe))
((org-in-src-block-p)
(org-babel-execute-src-block))
((org-inside-LaTeX-fragment-p)
(org-toggle-latex-fragment))
(t (org-toggle-inline-images))))
(let* ((context (org-element-lineage
(org-element-context)
'(table table-row clock comment comment-block footnote-definition
footnote-reference headline inlinetask keyword link
latex-fragment src-block item plain-list timestamp babel-call)
t))
(type (org-element-type context))
(value (org-element-property :value context)))
(cond
((memq type '(table table-row))
(if (org-element-property :tblfm (org-element-property :parent context))
(org-table-recalculate t)
(org-table-align)))
((and (memq type '(item))
(org-element-property :checkbox context))
(org-toggle-checkbox))
((and (memq type '(headline))
(org-element-property :todo-type context))
(if (eq (org-element-property :todo-type context) 'done)
(org-todo 'todo)
(org-todo 'done)))
((memq type '(babel-call))
(org-babel-lob-execute-maybe))
((memq type '(src-block))
(org-babel-execute-src-block))
((memq type '(latex-fragment))
(org-toggle-latex-fragment))
((memq type '(link))
(org-open-at-point))
(t (org-toggle-inline-images)))))
;;;###autoload
(defun narf/org-toggle-inline-images-at-point ()