jao-minibuffer toggle

1 files changed, 17 insertions, 4 deletions

diff --git a/sys/jao-minibuffer.el b/sys/jao-minibuffer.el
index 7104544..157ca0f 100644
--- a/sys/jao-minibuffer.el
+++ b/sys/jao-minibuffer.el
@@ -30,6 +30,7 @@
 (defvar jao-minibuffer-right-margin (if window-system 0 1))
 (defvar jao-minibuffer-maximized-frames-p t)
 (defvar jao-minibuffer-notification-timeout 5)
+(defvar jao-minibuffer-enabled-p t)
 
 (defconst jao-minibuffer--name " *Minibuf-0*")
 
@@ -62,12 +63,16 @@
   (let ((msg (string-trim (replace-regexp-in-string "\n" " " msg))))
     (concat msg (jao-minibuffer--aligned (length msg) t))))
 
-;;;###autoload
-(defun jao-minibuffer-refresh ()
-  (interactive "")
+(defun jao-minibuffer--insert (msg)
   (with-current-buffer jao-minibuffer--name
     (erase-buffer)
-    (insert (or (jao-minibuffer--aligned) ""))))
+    (insert msg)))
+
+;;;###autoload
+(defun jao-minibuffer-refresh ()
+  (interactive)
+  (when jao-minibuffer-enabled-p
+    (jao-minibuffer--insert (or (jao-minibuffer--aligned) ""))))
 
 ;;;###autoload
 (defun jao-minibuffer-add-variable (variable-name &optional append)
@@ -96,6 +101,14 @@
   (setq jao-minibuffer-notification nil)
   (jao-minibuffer-refresh))
 
+;;;###autoload
+(defun jao-minibuffer-toggle ()
+  (interactive)
+  (setq jao-minibuffer-enabled-p (not jao-minibuffer-enabled-p))
+  (if jao-minibuffer-enabled-p
+      (jao-minibuffer-refresh)
+    (jao-minibuffer--insert "")))
+
 (setq set-message-function #'jao-minibuffer--set-message)
 (setq clear-message-function #'jao-minibuffer-refresh)
 (setq resize-mini-windows nil)