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

Merge pull request #26 from phikal/master

Browse Source
This commit is contained in:
Lars Tveito 2022-09-06 23:30:20 +02:00 committed by GitHub
commit fd65701b8c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
focus.el
View File

@ -44,7 +44,7 @@
A thing is defined in thingatpt.el; the thing determines the A thing is defined in thingatpt.el; the thing determines the
narrowness of the focused section. narrowness of the focused section.
Note that the order of the list matters. The first mode that the Note that the order of the list matters. The first mode that the
current mode is derived from is used, so more modes that have current mode is derived from is used, so more modes that have
many derivatives should be placed by the end of the list. many derivatives should be placed by the end of the list.
@ -69,7 +69,7 @@ Things that are defined include `symbol', `list', `sexp',
:group 'focus) :group 'focus)
(defvar focus-cursor-type cursor-type (defvar focus-cursor-type cursor-type
"Used to restore the users `cursor-type'") "Used to restore the users `cursor-type'.")
(defvar-local focus-current-thing nil (defvar-local focus-current-thing nil
"Overrides the choice of thing dictated by `focus-mode-to-thing' if set.") "Overrides the choice of thing dictated by `focus-mode-to-thing' if set.")
@ -114,7 +114,7 @@ command."
(focus-move-overlays (car bounds) (cdr bounds)))))) (focus-move-overlays (car bounds) (cdr bounds))))))
(defun focus-move-overlays (low high) (defun focus-move-overlays (low high)
"Move `focus-pre-overlay', `focus-mid-overlay' and `focus-post-overlay'." "Move the overlays to highlight the region between LOW and HIGH."
(move-overlay focus-pre-overlay (point-min) low) (move-overlay focus-pre-overlay (point-min) low)
(move-overlay focus-mid-overlay low high) (move-overlay focus-mid-overlay low high)
(move-overlay focus-post-overlay high (point-max))) (move-overlay focus-post-overlay high (point-max)))
@ -124,7 +124,7 @@ command."
It sets the `focus-pre-overlay', `focus-min-overlay', and It sets the `focus-pre-overlay', `focus-min-overlay', and
`focus-post-overlay' to overlays; these are invisible until `focus-post-overlay' to overlays; these are invisible until
`focus-move-focus' is run. It adds `focus-move-focus' to `focus-move-focus' is run. It adds `focus-move-focus' to
`post-command-hook'." `post-command-hook'."
(unless (or focus-pre-overlay focus-post-overlay) (unless (or focus-pre-overlay focus-post-overlay)
(setq focus-pre-overlay (make-overlay (point-min) (point-min)) (setq focus-pre-overlay (make-overlay (point-min) (point-min))
@ -161,8 +161,8 @@ The overlays pointed to by `focus-pre-overlay',
"Adjust the narrowness of the focused section for the current buffer. "Adjust the narrowness of the focused section for the current buffer.
The variable `focus-mode-to-thing' dictates the default thing The variable `focus-mode-to-thing' dictates the default thing
according to major-mode. If `focus-current-thing' is set, this 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 paragraph sentence sexp symbol word))