From 84b8759b3784f19cbf693b8b2572a17fa783f88c Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Sat, 25 Nov 2023 11:41:45 +0100 Subject: [PATCH] update lv Signed-off-by: Andreas Gerler --- elpa/lv-20191025.1326/lv-pkg.el | 2 -- .../lv-autoloads.el | 8 +++-- elpa/lv-20200507.1518/lv-pkg.el | 9 +++++ .../lv.el | 34 +++++++++++++++---- 4 files changed, 43 insertions(+), 10 deletions(-) delete mode 100644 elpa/lv-20191025.1326/lv-pkg.el rename elpa/{lv-20191025.1326 => lv-20200507.1518}/lv-autoloads.el (66%) create mode 100644 elpa/lv-20200507.1518/lv-pkg.el rename elpa/{lv-20191025.1326 => lv-20200507.1518}/lv.el (80%) diff --git a/elpa/lv-20191025.1326/lv-pkg.el b/elpa/lv-20191025.1326/lv-pkg.el deleted file mode 100644 index c971a6d6..00000000 --- a/elpa/lv-20191025.1326/lv-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "lv" "20191025.1326" "Other echo area" 'nil :commit "74b32f3ff004cd2ad7707722ffa7f85e8233a845" :authors '(("Oleh Krehel")) :maintainer '("Oleh Krehel")) diff --git a/elpa/lv-20191025.1326/lv-autoloads.el b/elpa/lv-20200507.1518/lv-autoloads.el similarity index 66% rename from elpa/lv-20191025.1326/lv-autoloads.el rename to elpa/lv-20200507.1518/lv-autoloads.el index 61b10796..e8595a56 100644 --- a/elpa/lv-20191025.1326/lv-autoloads.el +++ b/elpa/lv-20200507.1518/lv-autoloads.el @@ -1,4 +1,4 @@ -;;; lv-autoloads.el --- automatically extracted autoloads +;;; lv-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- ;; ;;; Code: @@ -9,7 +9,11 @@ ;;;### (autoloads nil "lv" "lv.el" (0 0 0 0)) ;;; Generated autoloads from lv.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "lv" '("lv-"))) +(register-definition-prefixes "lv" '("lv-")) + +;;;*** + +;;;### (autoloads nil nil ("lv-pkg.el") (0 0 0 0)) ;;;*** diff --git a/elpa/lv-20200507.1518/lv-pkg.el b/elpa/lv-20200507.1518/lv-pkg.el new file mode 100644 index 00000000..b1d4ecfc --- /dev/null +++ b/elpa/lv-20200507.1518/lv-pkg.el @@ -0,0 +1,9 @@ +(define-package "lv" "20200507.1518" "Other echo area" 'nil :commit "87873d788891029d9e44fa5458321d6a05849b94" :authors + '(("Oleh Krehel")) + :maintainers + '(("Oleh Krehel")) + :maintainer + '("Oleh Krehel")) +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/lv-20191025.1326/lv.el b/elpa/lv-20200507.1518/lv.el similarity index 80% rename from elpa/lv-20191025.1326/lv.el rename to elpa/lv-20200507.1518/lv.el index 9d9c4c7b..61d0971e 100644 --- a/elpa/lv-20191025.1326/lv.el +++ b/elpa/lv-20200507.1518/lv.el @@ -1,5 +1,4 @@ ;;; lv.el --- Other echo area -;; Package-Version: 20191025.1326 ;; Copyright (C) 2015 Free Software Foundation, Inc. @@ -34,6 +33,8 @@ ;;; Code: +(require 'cl-lib) + (defgroup lv nil "The other echo area." :group 'minibuffer @@ -44,6 +45,11 @@ :group 'lv :type 'boolean) +(defcustom lv-use-padding nil + "Whether to use horizontal padding in the LV window." + :group 'lv + :type 'boolean) + (defface lv-separator '((((class color) (background light)) :background "grey80") (((class color) (background dark)) :background "grey30")) @@ -59,6 +65,9 @@ Only the background color is significant." (defvar display-fill-column-indicator) (defvar tab-line-format) +(defvar lv-window-hook nil + "Hook to run by `lv-window' when a new window is created.") + (defun lv-window () "Ensure that LV window is live and return it." (if (window-live-p lv-wnd) @@ -69,10 +78,12 @@ Only the background color is significant." (select-window (let ((ignore-window-parameters t)) (split-window - (frame-root-window) -1 'below)))) + (frame-root-window) -1 'below)) + 'norecord)) (if (setq buf (get-buffer " *LV*")) - (switch-to-buffer buf) - (switch-to-buffer " *LV*") + (switch-to-buffer buf 'norecord) + (switch-to-buffer " *LV*" 'norecord) + (fundamental-mode) (set-window-hscroll lv-wnd 0) (setq window-size-fixed t) (setq mode-line-format nil) @@ -82,14 +93,23 @@ Only the background color is significant." (setq display-line-numbers nil) (setq display-fill-column-indicator nil) (set-window-dedicated-p lv-wnd t) - (set-window-parameter lv-wnd 'no-other-window t)) - (select-window ori))))) + (set-window-parameter lv-wnd 'no-other-window t) + (run-hooks 'lv-window-hook)) + (select-window ori 'norecord))))) (defvar golden-ratio-mode) (defvar lv-force-update nil "When non-nil, `lv-message' will refresh even for the same string.") +(defun lv--pad-to-center (str width) + "Pad STR with spaces on the left to be centered to WIDTH." + (let* ((strs (split-string str "\n")) + (padding (make-string + (/ (- width (length (car strs))) 2) + ?\ ))) + (mapconcat (lambda (s) (concat padding s)) strs "\n"))) + (defun lv-message (format-string &rest args) "Set LV window contents to (`format' FORMAT-STRING ARGS)." (let* ((str (apply #'format format-string args)) @@ -97,6 +117,8 @@ Only the background color is significant." deactivate-mark golden-ratio-mode) (with-selected-window (lv-window) + (when lv-use-padding + (setq str (lv--pad-to-center str (window-width)))) (unless (and (string= (buffer-string) str) (null lv-force-update)) (delete-region (point-min) (point-max)) -- 2.47.3