 (defvar +modeline-height 21
   "How tall the mode-line should be (only respected in GUI emacs).")
 
+(defvar +modeline-bar-at-end nil
+  "If non-nil, the bar is placed at the end, instead of at the beginning of the
+modeline.")
+
+(defvar +modeline-bar-invisible nil
+  "If non-nil, the bar is transparent, and only used to police the height of the
+mode-line.")
+
 (defvar +modeline-buffer-path-function #'+modeline-file-path
   "The function that returns the buffer name display for file-visiting
 buffers.")

                        "git-compare"
                        :face face
                        :v-adjust -0.05)))
                " "
                (propertize (substring vc-mode (+ (if (eq backend 'Hg) 2 3) 2))
                            'face (if active face)))))))


                                 ,(1+ (string-width rhs-str))))))
          rhs-str)))

(setq-default mode-line-format '("" +modeline-bar-start +modeline-format-left +modeline--rest +modeline-bar-end))


;;
