Add hide-cursor-mode

2 files changed, 141 insertions, 0 deletions

@@ -131,6 +131,31 @@
       (global-goto-address-mode)
     (add-hook 'after-change-major-mode-hook #'goto-address-mode)))
 
+(setup (:require hide-cursor-mode)      ; In lisp/
+  (:hook-into view-mode
+              Info-mode
+              Man-mode
+              help-mode
+              helpful-mode
+              notmuch-show-mode
+              magit-log-mode
+              vc-log-mode
+              nov-mode
+              elfeed-show-mode
+              reading-mode)
+  (:bind-into (view
+               Info
+               help-mode
+               helpful
+               notmuch-show
+               magit-log
+               nov
+               elfeed-show
+               reading)
+    "<f7>" #'hide-cursor-mode)
+  (:with-mode Man-mode
+    (:bind "<f7>" #'hide-cursor-mode)))
+
 (setup (:require pulse)
   (:also-load +pulse)
   (:option pulse-flag nil
@@ -0,0 +1,116 @@
+;;; hide-cursor-mode.el --- Hide the cursor and scroll-lock -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;; From Karthik: https://karthinks.com/software/more-less-emacs/
+
+;;; Code:
+
+(defvar-local hide-cursor--original nil)
+
+(progn
+  (progn :autoload-end
+         (defvar-local hide-cursor-mode nil "Non-nil if Hide-Cursor mode is enabled.
+Use the command `hide-cursor-mode' to change this variable."))
+  (defun hide-cursor-mode
+      (&optional arg)
+    "Hide or show the cursor.
+
+This is a minor mode.  If called interactively, toggle the
+`Hide-Cursor mode' mode.  If the prefix argument is positive,
+enable the mode, and if it is zero or negative, disable the mode.
+
+If called from Lisp, toggle the mode if ARG is `toggle'.  Enable
+the mode if ARG is nil, omitted, or is a positive number.
+Disable the mode if ARG is a negative number.
+
+To check whether the minor mode is enabled in the current buffer,
+evaluate `hide-cursor-mode'.
+
+The mode's hook is called both when the mode is enabled and when
+it is disabled.
+
+When the cursor is hidden `scroll-lock-mode' is enabled, so that
+the buffer works like a pager."
+    (interactive
+     (list
+      (if current-prefix-arg
+          (prefix-numeric-value current-prefix-arg)
+        'toggle)))
+    (let
+        ((last-message
+          (current-message)))
+      (setq hide-cursor-mode
+            (cond
+             ((eq arg 'toggle)
+              (not hide-cursor-mode))
+             ((and
+               (numberp arg)
+               (< arg 1))
+              nil)
+             (t t)))
+      (when
+          (boundp 'local-minor-modes)
+        (setq local-minor-modes
+              (delq 'hide-cursor-mode local-minor-modes))
+        (when hide-cursor-mode
+          (push 'hide-cursor-mode local-minor-modes)))
+      (if hide-cursor-mode
+          (progn
+            (scroll-lock-mode 1)
+            (setq-local hide-cursor--original cursor-type)
+            (setq-local cursor-type nil))
+        (scroll-lock-mode -1)
+        (setq-local cursor-type
+                    (or hide-cursor--original t)))
+      (run-hooks 'hide-cursor-mode-hook
+                 (if hide-cursor-mode 'hide-cursor-mode-on-hook 'hide-cursor-mode-off-hook))
+      (if
+          (called-interactively-p 'any)
+          (progn nil
+                 (unless
+                     (and
+                      (current-message)
+                      (not
+                       (equal last-message
+                              (current-message))))
+                   (let
+                       ((local " in current buffer"))
+                     (message "Hide-Cursor mode %sabled%s"
+                              (if hide-cursor-mode "en" "dis")
+                              local))))))
+    (force-mode-line-update)
+    hide-cursor-mode)
+  :autoload-end
+  (defvar hide-cursor-mode-hook nil)
+  (unless
+      (get 'hide-cursor-mode-hook 'variable-documentation)
+    (put 'hide-cursor-mode-hook 'variable-documentation "Hook run after entering or leaving `hide-cursor-mode'.
+No problems result if this variable is not bound.
+`add-hook' automatically binds it.  (This is true for all hook variables.)"))
+  (put 'hide-cursor-mode-hook 'custom-type 'hook)
+  (put 'hide-cursor-mode-hook 'standard-value
+       (list nil))
+  (defvar hide-cursor-mode-map
+    (let
+        ((m
+          (let
+              ((map
+                (make-sparse-keymap)))
+            (define-key map
+              [f7]
+              (function hide-cursor-mode))
+            map)))
+      (cond
+       ((keymapp m)
+        m)
+       ((listp m)
+        (easy-mmode-define-keymap m))
+       (t
+        (error "Invalid keymap %S" m))))
+    "Keymap for `hide-cursor-mode'.")
+  (with-no-warnings
+    (add-minor-mode 'hide-cursor-mode '"H" hide-cursor-mode-map nil nil)))
+
+(provide 'hide-cursor-mode)
+;;; hide-cursor-mode.el ends here