Merge pull request #1 from jcs-elpa/feature/realtime

feature: Function show/hide in editing

Author: jcs090218

CHANGELOG.md

@@ -12,6 +12,7 @@ Check [Keep a Changelog](http://keepachangelog.com/) for recommendations on how
 * Fix when truncate lines disabled (dd966bb9b0b858d028c0af7399f6edba1d22c450)
 * Don't enable inside terminal (8bda044ad7b741abc239b9df177e65ad0f969ea9)
 * Fix show horizontal scroll bar's logic (afda338ccd67456142361be610a6bdd7e2360143)
+* Function show/hide in editing (#1)
 
 ## 0.1.0
 > Released Mar 02, 2022

auto-scroll-bar.el

@@ -149,12 +149,14 @@ and SHOW-H."
         (auto-scroll-bar--update win show-v show-h)))))
 
 (defun auto-scroll-bar--hide-minibuffer (&optional frame)
-  "Hide minibuffer when variable `auto-scroll-bar-hide-minibuffer' is enabled."
+  "Hide minibuffer when variable `auto-scroll-bar-hide-minibuffer' is enabled.
+
+Optional argument FRAME is used to select frame's minibuffer."
   (when auto-scroll-bar-hide-minibuffer
     (auto-scroll-bar--update (minibuffer-window frame) nil nil t)))
 
 (defun auto-scroll-bar--size-change (&optional frame &rest _)
-  "Show/Hide all visible windows."
+  "Show/Hide all visible windows in FRAME."
   (auto-scroll-bar--with-no-redisplay
     (dolist (win (window-list frame)) (auto-scroll-bar--show-hide win))
     (auto-scroll-bar--hide-minibuffer frame)))
@@ -164,11 +166,18 @@ and SHOW-H."
   (auto-scroll-bar--with-no-redisplay
     (when (windowp window) (auto-scroll-bar--show-hide window))))
 
+(defun auto-scroll-bar--after-change (&rest _)
+  "After change hook."
+  (when-let ((current (selected-window)))
+    (if (equal (minibuffer-window) current) (auto-scroll-bar--hide-minibuffer)
+      (auto-scroll-bar--scroll current))))
+
 (defun auto-scroll-bar--enable ()
   "Enable function `auto-scroll-bar-mode'."
   (cond ((display-graphic-p)
          (add-hook 'window-size-change-functions #'auto-scroll-bar--size-change)
          (add-hook 'window-scroll-functions #'auto-scroll-bar--scroll)
+         (add-hook 'after-change-functions #'auto-scroll-bar--after-change)
          (toggle-scroll-bar 1)
          (when auto-scroll-bar-horizontal (toggle-horizontal-scroll-bar 1))
          (auto-scroll-bar--size-change))  ; execute once
@@ -178,6 +187,7 @@ and SHOW-H."
   "Disable function `auto-scroll-bar-mode'."
   (remove-hook 'window-size-change-functions #'auto-scroll-bar--size-change)
   (remove-hook 'window-scroll-functions #'auto-scroll-bar--scroll)
+  (remove-hook 'after-change-functions #'auto-scroll-bar--after-change)
   (toggle-scroll-bar -1)
   (toggle-horizontal-scroll-bar -1))