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 function for hiding the cursor

Browse Source
This commit is contained in:
Lars Tveito 2015-05-24 02:03:46 +02:00
parent 94ed8ab68b
commit a723f78dc4
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
focus.el
View File

@ -174,6 +174,15 @@ deleted, and `focus-move-focus' is removed from `post-command-hook'."
"Moves the point to the middle of the Nth previous thing." "Moves the point to the middle of the Nth previous thing."
(interactive "p") (interactive "p")
(focus-next-thing (- (+ 2 n)))) (focus-next-thing (- (+ 2 n))))
(defun focus-read-only-hide-cursor (&optional buffer)
"Hide the cursor.
This function is triggered by the `focus-read-only-blink-timer',
when `focus-read-only-mode' is activated."
(with-current-buffer (or buffer (current-buffer))
(when (and focus-read-only-mode (not (null focus-read-only-blink-timer)))
(setq focus-read-only-blink-timer nil)
(setq cursor-type nil))))
;;;###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."