MAJOR formatting and documentation

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