From 473b56691eca074556a5aa27957e1bdfb03e3d55 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 4 Dec 2020 11:15:37 +0000 Subject: jao-minibuffer toggle --- sys/jao-minibuffer.el | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) (limited to 'sys/jao-minibuffer.el') 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) -- cgit v1.2.3