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

Fix narf/org-dwim-at-point for org 8.3.3 and emacs 24.5

Browse source
This commit is contained in:
Henrik Lissner 2016-01-29 07:11:42 -05:00
parent c1461f3b60
commit aaf2b78a14
1 changed files with 3 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

19
modules/defuns/defuns-org.el
View file

@ -64,15 +64,7 @@
(defun narf/org-dwim-at-point () (defun narf/org-dwim-at-point ()
(interactive) (interactive)
(let* ((scroll-pt (window-start)) (let* ((scroll-pt (window-start))
(context (org-element-context) (context (org-element-context))
;; (org-element-lineage
;; (org-element-context)
;; '(table table-row clock comment comment-block footnote-definition
;; footnote-reference headline inlinetask keyword link latex-fragment
;; latex-environment src-block inline-src-block item plain-list
;; timestamp babel-call)
;; t)
)
(type (org-element-type context)) (type (org-element-type context))
(value (org-element-property :value context))) (value (org-element-property :value context)))
(cond (cond
@ -91,13 +83,8 @@
(if (eq (org-element-property :todo-type context) 'done) 'todo 'done))) (if (eq (org-element-property :todo-type context) 'done) 'todo 'done)))
((memq type '(headline)) ((memq type '(headline))
(org-preview-latex-fragment t) (org-remove-latex-fragment-image-overlays)
;; (org-remove-latex-fragment-image-overlays (org-preview-latex-fragment '(4)))
;; (save-excursion (org-beginning-of-line) (point))
;; (save-excursion (org-end-of-subtree) (point)))
;; (org-map-entries 'org-toggle-latex-fragment t 'tree)
(narf/org-refresh-inline-images)
)
((memq type '(babel-call)) ((memq type '(babel-call))
(org-babel-lob-execute-maybe)) (org-babel-lob-execute-maybe))