more consult functions, new jao-embark, eos

1 files changed, 0 insertions, 133 deletions

diff --git a/sys/jao-minibuffer.el b/sys/jao-minibuffer.el
deleted file mode 100644
index b626151..0000000
--- a/sys/jao-minibuffer.el
+++ /dev/null
@@ -1,133 +0,0 @@
-;;; jao-minibuffer.el --- using the minibuffer to report status  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2020  jao
-
-;; Author: jao <mail@jao.io>
-;; Keywords: extensions
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; Simple asynchronous display of information in the minibuffer.
-
-;;; Code:
-
-(defvar jao-minibuffer-info ())
-(defvar jao-minibuffer-notification nil)
-(defvar jao-minibuffer-align-right-p t)
-(defvar jao-minibuffer-right-margin (if window-system 0 1))
-(defvar jao-minibuffer-maximized-frames-p nil)
-(defvar jao-minibuffer-frame-width nil)
-(defvar jao-minibuffer-notification-timeout 5)
-(defvar jao-minibuffer-enabled-p t)
-
-(defconst jao-minibuffer--name " *Minibuf-0*")
-
-(defun jao-minibuffer--trim (s w)
-  (if (<= (length s) w)
-      (format (format "%%%ds" (if jao-minibuffer-align-right-p w (- w))) s)
-    (substring s 0 w)))
-
-(defun jao-minibuffer--current ()
-  (with-current-buffer jao-minibuffer--name
-    (buffer-substring (point-min) (point-max))))
-
-(defun jao-minibuffer--width ()
-  (cond ((numberp jao-minibuffer-frame-width) jao-minibuffer-frame-width)
-        (jao-minibuffer-maximized-frames-p (frame-width))
-        (t (min (frame-width) (window-width (minibuffer-window))))))
-
-(defun jao-minibuffer--format-info ()
-  (mapconcat 'string-trim
-             (seq-filter (lambda (s) (not (string-blank-p s)))
-                         (mapcar 'format-mode-line
-                                 (if jao-minibuffer-align-right-p
-                                     jao-minibuffer-info
-                                   (reverse jao-minibuffer-info))))
-             " "))
-
-(defun jao-minibuffer--aligned (&optional w currentp)
-  (let* ((msg (cond (currentp (jao-minibuffer--current))
-                    (jao-minibuffer-notification
-                     (format-mode-line jao-minibuffer-notification))
-                    (t (jao-minibuffer--format-info))))
-         (msg (if jao-minibuffer-align-right-p
-                  (string-trim msg)
-                (string-trim-left msg)))
-         (msg (propertize msg :minibuffer-message t)))
-    (when (not (string-empty-p msg))
-      (let* ((mw (jao-minibuffer--width))
-             (w (mod (or w (length (current-message))) mw))
-             (w (- mw w jao-minibuffer-right-margin)))
-        (if (> w 0) (jao-minibuffer--trim msg w) "")))))
-
-(defun jao-minibuffer--set-message (msg)
-  (let ((msg (string-trim (replace-regexp-in-string "\n" " " msg))))
-    (if jao-minibuffer-align-right-p
-        (concat msg (jao-minibuffer--aligned (length msg) t))
-      (concat (jao-minibuffer--aligned (+ 3 (length msg)) t) "   " msg))))
-
-(defun jao-minibuffer--insert (msg)
-  (with-current-buffer jao-minibuffer--name
-    (erase-buffer)
-    (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 order)
-  (add-to-ordered-list 'jao-minibuffer-info `(:eval ,variable-name) order))
-
-(defvar jao-minibuffer--notification-timer nil)
-
-(defun jao-minibuffer--start-notification-timer (timeout)
-  (interactive)
-  (when jao-minibuffer--notification-timer
-    (cancel-timer jao-minibuffer--notification-timer))
-  (setq jao-minibuffer--notification-timer
-        (run-with-idle-timer (or timeout jao-minibuffer-notification-timeout)
-                             nil
-                             'jao-minibuffer-pop-notification)))
-
-;;;###autoload
-(defun jao-minibuffer-push-notification (msg &optional timeout)
-  (setq jao-minibuffer-notification msg)
-  (jao-minibuffer--start-notification-timer timeout)
-  (jao-minibuffer-refresh))
-
-;;;###autoload
-(defun jao-minibuffer-pop-notification ()
-  (interactive)
-  (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)
-
-(provide 'jao-minibuffer)
-;;; jao-minibuffer.el ends here