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

Add special support for org mode

Browse Source
This commit is contained in:
Lars Tveito 2020-02-21 22:45:27 +01:00 committed by larstvei
parent fd65701b8c
commit 2086fee8fc
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
focus.el
View File

@ -38,7 +38,9 @@
:group 'font-lock :group 'font-lock
:prefix "focus-") :prefix "focus-")
(defcustom focus-mode-to-thing '((prog-mode . defun) (text-mode . sentence)) (defcustom focus-mode-to-thing '((prog-mode . defun)
(text-mode . paragraph)
(org-mode . org-element))
"An associated list between mode and thing. "An associated list between mode and thing.
A thing is defined in thingatpt.el; the thing determines the A thing is defined in thingatpt.el; the thing determines the
@ -101,7 +103,13 @@ The timer calls `focus-read-only-hide-cursor' after
(defun focus-bounds () (defun focus-bounds ()
"Return the current bounds, based on `focus-get-thing'." "Return the current bounds, based on `focus-get-thing'."
(bounds-of-thing-at-point (focus-get-thing))) (let ((thing (focus-get-thing)))
(cond ((eq thing 'org-element)
(let* ((elem (org-element-at-point))
(beg (org-element-property :begin (org-element-at-point)))
(end (org-element-property :end (org-element-at-point))))
(cons beg end)))
(t (bounds-of-thing-at-point (focus-get-thing))))))
(defun focus-move-focus () (defun focus-move-focus ()
"Move the focused section according to `focus-bounds'. "Move the focused section according to `focus-bounds'.
@ -165,7 +173,7 @@ according to major-mode. If `focus-current-thing' is set, this
default is overwritten. This function simply helps set the default is overwritten. This function simply helps set the
`focus-current-thing'." `focus-current-thing'."
(interactive) (interactive)
(let* ((candidates '(defun line list paragraph sentence sexp symbol word)) (let* ((candidates '(defun line list org-element paragraph sentence sexp symbol word))
(thing (completing-read "Thing: " candidates))) (thing (completing-read "Thing: " candidates)))
(setq focus-current-thing (intern thing)))) (setq focus-current-thing (intern thing))))