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

Added focus-read-only-mode

Browse Source
This commit is contained in:
Lars Tveito 2015-05-24 02:04:40 +02:00
parent b21341bd40
commit d1bd81ee4d
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
focus.el
View File

@ -195,11 +195,37 @@ This is added to the `pre-command-hook' when
(setq focus-read-only-blink-timer (setq focus-read-only-blink-timer
(run-at-time focus-read-only-blink-seconds nil (run-at-time focus-read-only-blink-seconds nil
'focus-read-only-hide-cursor (current-buffer))))) 'focus-read-only-hide-cursor (current-buffer)))))
(defun turn-off-focus-read-only-mode ()
"Turn off `focus-read-only-mode'."
(interactive)
(focus-read-only-mode -1))
;;;###autoload ;;;###autoload
(define-minor-mode focus-mode (define-minor-mode focus-mode
"Dim the font color of text in surrounding sections." "Dim the font color of text in surrounding sections."
:init-value nil :init-value nil
(if focus-mode (focus-init) (focus-terminate))) (if focus-mode (focus-init) (focus-terminate)))
;;;###autoload
(define-minor-mode focus-read-only-mode
"A read-only mode optimized for `focus-mode'."
:init-value nil
:keymap (let ((map (make-sparse-keymap)))
(define-key map (kbd "n") 'focus-next-thing)
(define-key map (kbd "SPC") 'focus-next-thing)
(define-key map (kbd "p") 'focus-prev-thing)
(define-key map (kbd "S-SPC") 'focus-prev-thing)
(define-key map (kbd "i") 'turn-off-focus-read-only-mode)
(define-key map (kbd "q") 'turn-off-focus-read-only-mode)
map)
(read-only-mode (if focus-read-only-mode 1 -1))
(when focus-read-only-blink-timer (cancel-timer focus-read-only-blink-timer))
(setq cursor-type (not focus-read-only-mode))
(setq focus-read-only-blink-timer nil)
(remove-hook 'pre-command-hook 'focus-read-only-cursor-blink t)
(when focus-read-only-mode
(add-hook 'pre-command-hook 'focus-read-only-cursor-blink nil t)))
(provide 'focus) (provide 'focus)
;;; focus.el ends here ;;; focus.el ends here