larstvei/Focus
1
0
Fork 0
mirror of https://github.com/larstvei/Focus.git synced 2025-11-04 02:00:11 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix indentation

Browse Source
This commit is contained in:
Lars Tveito 2016-11-25 16:27:46 +01:00
parent 75202c9445
commit 6add57b887
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

@ -100,9 +100,9 @@ The timer calls `focus-read-only-hide-cursor' after
(defun focus-get-thing () (defun focus-get-thing ()
"Return the current thing, based on `focus-mode-to-thing'." "Return the current thing, based on `focus-mode-to-thing'."
(or focus-current-thing (or focus-current-thing
(let* ((modes (mapcar 'car focus-mode-to-thing)) (let* ((modes (mapcar 'car focus-mode-to-thing))
(mode (focus-any 'derived-mode-p modes))) (mode (focus-any 'derived-mode-p modes)))
(if mode (cdr (assoc mode focus-mode-to-thing)) 'sentence)))) (if mode (cdr (assoc mode focus-mode-to-thing)) 'sentence))))
(defun focus-bounds () (defun focus-bounds ()
"Return the current bounds, based on `focus-get-thing'." "Return the current bounds, based on `focus-get-thing'."
@ -185,8 +185,8 @@ default is overwritten. This function simply helps set the
`focus-current-thing'." `focus-current-thing'."
(interactive) (interactive)
(let* ((candidates '(symbol list sexp defun (let* ((candidates '(symbol list sexp defun
filename url email word filename url email word
sentence whitespace line page)) sentence whitespace line page))
(thing (completing-read "Thing: " candidates))) (thing (completing-read "Thing: " candidates)))
(setq focus-current-thing (intern thing)))) (setq focus-current-thing (intern thing))))
@ -197,7 +197,7 @@ if active."
(when focus-mode (when focus-mode
(when (region-active-p) (when (region-active-p)
(focus-move-overlays (region-beginning) (region-end))) (focus-move-overlays (region-beginning) (region-end)))
(remove-hook 'post-command-hook 'focus-move-focus t))) (remove-hook 'post-command-hook 'focus-move-focus t)))
(defun focus-unpin () (defun focus-unpin ()
"Unpin the focused section." "Unpin the focused section."