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

Split up `focus-move-focus'

Browse Source
This commit is contained in:
Lars Tveito 2016-01-31 23:13:29 +01:00
parent 307df45c69
commit f310fa1c31
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
focus.el
View File

@ -138,14 +138,18 @@ argument."
(make-list foregrounds foreground))))) (make-list foregrounds foreground)))))
(defun focus-move-focus () (defun focus-move-focus ()
"Move `focus-pre-overlay' and `focus-post-overlay'. "Moves the focused section according to `focus-bounds'.
If function `focus-mode' is enabled, this command fires after If `focus-mode' is enabled, this command fires after each
each command." command."
(let* ((bounds (focus-bounds))) (let* ((bounds (focus-bounds)))
(when bounds (when bounds
(move-overlay focus-pre-overlay (point-min) (car bounds)) (focus-move-overlays (car bounds) (cdr bounds)))))
(move-overlay focus-post-overlay (cdr bounds) (point-max)))))
(defun focus-move-overlays (low high)
"Move `focus-pre-overlay' and `focus-post-overlay'."
(move-overlay focus-pre-overlay (point-min) low)
(move-overlay focus-post-overlay high (point-max)))
(defun focus-init () (defun focus-init ()
"This function is run when command `focus-mode' is enabled. "This function is run when command `focus-mode' is enabled.