larstvei/Focus
1
0
Fork 0
mirror of https://github.com/larstvei/Focus.git synced 2024-11-26 11:38:32 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Improve org-mode support

Browse Source
This commit is contained in:
Lars Tveito 2020-03-08 20:08:39 +01:00
parent 28b7662f26
commit 6f7fbd3513
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
focus.el
View File

@ -116,16 +116,20 @@ The timer calls `focus-read-only-hide-cursor' after
(apply #'derived-mode-p modes)))) (apply #'derived-mode-p modes))))
(if mode (cdr (assoc mode focus-mode-to-thing)) 'sentence)))) (if mode (cdr (assoc mode focus-mode-to-thing)) 'sentence))))
(defun focus-org-element-bounds ()
"Extract bounds from `org-element-at-point'"
(let* ((elem (org-element-at-point))
(beg (org-element-property :begin elem))
(end (org-element-property :end elem)))
(and beg end (cons beg end))))
(put 'org-element 'bounds-of-thing-at-point
#'focus-org-element-bounds)
(defun focus-bounds () (defun focus-bounds ()
"Return the current bounds, based on `focus-get-thing'." "Return the current bounds, based on `focus-get-thing'."
(or focus-pin-bounds (or focus-pin-bounds
(let ((thing (focus-get-thing))) (bounds-of-thing-at-point (focus-get-thing))))
(cond ((eq thing 'org-element)
(let* ((elem (org-element-at-point))
(beg (org-element-property :begin elem))
(end (org-element-property :end elem)))
(and beg end (cons beg end))))
(t (bounds-of-thing-at-point thing))))))
(defun focus-window-bounds () (defun focus-window-bounds ()
(cons (window-start) (window-end nil t))) (cons (window-start) (window-end nil t)))