From a723f78dc40581a943c5a2307c9ec63a73580cb4 Mon Sep 17 00:00:00 2001 From: Lars Tveito Date: Sun, 24 May 2015 02:03:46 +0200 Subject: [PATCH] Added function for hiding the cursor --- focus.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/focus.el b/focus.el index 335eab0..0c63baf 100644 --- a/focus.el +++ b/focus.el @@ -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." (interactive "p") (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 (define-minor-mode focus-mode "Dim the font color of text in surrounding sections."