diff options
author | jao <jao@gnu.org> | 2020-11-23 03:16:35 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2020-11-23 03:16:35 +0000 |
commit | cb450eac9005d1945feb09052222b0cd4e139284 (patch) | |
tree | 1329a0e03484f1cc087cfc4027ca48888463f022 /misc/jao-minibuffer.el | |
parent | 6f5fc433b4b60f1b68dc407eef0b38dc8dc5d4ed (diff) | |
download | elibs-cb450eac9005d1945feb09052222b0cd4e139284.tar.gz elibs-cb450eac9005d1945feb09052222b0cd4e139284.tar.bz2 |
suffling around some files
Diffstat (limited to 'misc/jao-minibuffer.el')
-rw-r--r-- | misc/jao-minibuffer.el | 104 |
1 files changed, 0 insertions, 104 deletions
diff --git a/misc/jao-minibuffer.el b/misc/jao-minibuffer.el deleted file mode 100644 index 7104544..0000000 --- a/misc/jao-minibuffer.el +++ /dev/null @@ -1,104 +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 t) -(defvar jao-minibuffer-notification-timeout 5) - -(defconst jao-minibuffer--name " *Minibuf-0*") - -(defun jao-minibuffer--trim (s w) - (if (<= (length s) w) - (format (format "%%%ds" 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--aligned (&optional w currentp) - (let* ((msg (if currentp - (jao-minibuffer--current) - (format-mode-line (or jao-minibuffer-notification - jao-minibuffer-info)))) - (msg (propertize (string-trim msg) :minibuffer-message t))) - (when (not (string-empty-p msg)) - (if jao-minibuffer-align-right-p - (let* ((mw (if jao-minibuffer-maximized-frames-p - (frame-width) - (window-width (minibuffer-window)))) - (w (mod (or w (length (current-message))) mw)) - (w (- mw w jao-minibuffer-right-margin))) - (if (> w 0) (jao-minibuffer--trim msg w) "")) - (concat " ยท " msg))))) - -(defun jao-minibuffer--set-message (msg) - (let ((msg (string-trim (replace-regexp-in-string "\n" " " msg)))) - (concat msg (jao-minibuffer--aligned (length msg) t)))) - -;;;###autoload -(defun jao-minibuffer-refresh () - (interactive "") - (with-current-buffer jao-minibuffer--name - (erase-buffer) - (insert (or (jao-minibuffer--aligned) "")))) - -;;;###autoload -(defun jao-minibuffer-add-variable (variable-name &optional append) - (add-to-list 'jao-minibuffer-info `(:eval ,variable-name) append)) - -(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)) - -(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 |