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

Fixed some flycheck warnings.

Browse Source
This commit is contained in:
jenchieh 2019-03-09 22:05:51 +08:00
parent aa5ea31118
commit 0f2a9945e9
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
focus.el
View File

@ -133,7 +133,7 @@ argument."
(make-list foregrounds foreground)))))
(defun focus-move-focus ()
"Moves the focused section according to `focus-bounds'.
"Move the focused section according to `focus-bounds'.
If `focus-mode' is enabled, this command fires after each
command."
@ -195,8 +195,7 @@ default is overwritten. This function simply helps set the
(setq focus-current-thing (intern thing))))
(defun focus-pin ()
"Pin the focused section to its current location or the region,
if active."
"Pin the focused section to its current location or the region, if active."
(interactive)
(when (bound-and-true-p focus-mode)
(when (region-active-p)
@ -210,7 +209,7 @@ if active."
(add-hook 'post-command-hook 'focus-move-focus nil t)))
(defun focus-next-thing (&optional n)
"Moves the point to the middle of the Nth next thing."
"Move the point to the middle of the Nth next thing."
(interactive "p")
(let ((current-bounds (focus-bounds))
(thing (focus-get-thing)))
@ -220,7 +219,7 @@ if active."
(focus-goto-thing (focus-bounds))))
(defun focus-prev-thing (&optional n)
"Moves the point to the middle of the Nth previous thing."
"Move the point to the middle of the Nth previous thing."
(interactive "p")
(focus-next-thing (- n)))
@ -250,8 +249,8 @@ This is added to the `pre-command-hook' when
(defun focus-read-only-init ()
"Run when `focus-read-only-mode' is activated.
Enables `read-only-mode', hides the cursor and adds
`focus-read-only-cursor-blink' to `pre-command-hook'. Also
`focus-read-only-terminate' is added to the `kill-buffer-hook'."
`focus-read-only-cursor-blink' to `pre-command-hook'.
Also `focus-read-only-terminate' is added to the `kill-buffer-hook'."
(read-only-mode 1)
(setq cursor-type nil
focus-buffer (current-buffer))
@ -260,8 +259,8 @@ Enables `read-only-mode', hides the cursor and adds
(defun focus-read-only-terminate ()
"Run when `focus-read-only-mode' is deactivated.
Disables `read-only-mode' and shows the cursor again. It cleans
up the `focus-read-only-blink-timer' and hooks."
Disables `read-only-mode' and shows the cursor again.
It cleans up the `focus-read-only-blink-timer' and hooks."
(read-only-mode -1)
(setq cursor-type focus-cursor-type)
(when focus-read-only-blink-timer