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

Add functions to pin/unpin the focused section

Browse Source
This commit is contained in:
Lars Tveito 2016-01-31 23:14:57 +01:00
parent f310fa1c31
commit abad47f1c4
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
focus.el
View File

@ -196,6 +196,21 @@ default is overwritten. This function simply helps set the
(thing (completing-read "Thing: " candidates))) (thing (completing-read "Thing: " candidates)))
(setq focus-current-thing (intern thing)))) (setq focus-current-thing (intern thing))))
(defun focus-pin ()
"Pin the focused section to its current location or the region,
if active."
(interactive)
(when focus-mode
(when (region-active-p)
(focus-move-overlays (region-beginning) (region-end)))
(remove-hook 'post-command-hook 'focus-move-focus t)))
(defun focus-unpin ()
"Unpin the focused section."
(interactive)
(when focus-mode
(add-hook 'post-command-hook 'focus-move-focus nil t)))
(defun focus-next-thing (&optional n) (defun focus-next-thing (&optional n)
"Moves the point to the middle of the Nth next thing." "Moves the point to the middle of the Nth next thing."
(interactive "p") (interactive "p")