diff options
Diffstat (limited to 'bard-elisp/bard-modeline.el')
| -rw-r--r-- | bard-elisp/bard-modeline.el | 26 |
1 files changed, 3 insertions, 23 deletions
diff --git a/bard-elisp/bard-modeline.el b/bard-elisp/bard-modeline.el index dd6a3d0..39b710f 100644 --- a/bard-elisp/bard-modeline.el +++ b/bard-elisp/bard-modeline.el @@ -20,9 +20,9 @@ on whether the mode line belongs to the currently selected window or not." (let ((window (selected-window))) (or (eq window (old-selected-window)) - (and (minibuffer-window-active-p (minibuffer-window)) - (with-selected-window (minibuffer-window) - (eq window (minibuffer-selected-window))))))) + (and (minibuffer-window-active-p (minibuffer-window)) + (with-selected-window (minibuffer-window) + (eq window (minibuffer-selected-window))))))) ;;;; Faces @@ -382,26 +382,6 @@ face. Let other buffers have no face.") (substring rev 0 7)))) (capitalize branch))) -;; NOTE 2023-07-27: This is a good idea, but it hardcodes Git, whereas -;; I want a generic VC method. Granted, I only use Git but I still -;; want it to work as a VC extension. - -;; (defun prot-modeline-diffstat (file) -;; "Return shortened Git diff numstat for FILE." -;; (when-let* ((output (shell-command-to-string (format "git diff --numstat %s" file))) -;; (stats (split-string output "[\s\t]" :omit-nulls "[\s\f\t\n\r\v]+")) -;; (added (nth 0 stats)) -;; (deleted (nth 1 stats))) -;; (cond -;; ((and (equal added "0") (equal deleted "0")) -;; "") -;; ((and (not (equal added "0")) (equal deleted "0")) -;; (propertize (format "+%s" added) 'face 'shadow)) -;; ((and (equal added "0") (not (equal deleted "0"))) -;; (propertize (format "-%s" deleted) 'face 'shadow)) -;; (t -;; (propertize (format "+%s -%s" added deleted) 'face 'shadow))))) - (declare-function vc-git-working-revision "vc-git" (file)) (defvar prot-modeline-vc-map |