diff --git a/focus.el b/focus.el index 030c1e1..268ff06 100644 --- a/focus.el +++ b/focus.el @@ -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