 
 ;; It is crucial that this require line happens after the above setq block
 (use-package smart-mode-line
-  :init
+    :init
   (progn
     (setq sml/name-width            40) ; space allocated for the buffer name in the mode-line
     (setq sml/line-number-format    "%4l")

  :config
  (progn
    (use-package rich-minority
      :config
      (progn
        (setq rm-excluded-modes
              '(" Guide"        ; guide-key mode
                " hc"           ; hardcore mode
                " AC"           ; auto-complete

                      "/\\([a-z0-9_]\\{2\\}\\).*?\\([a-z0-9_]\\)" ; project name
                      "/[so]+_\\([a-z0-9]+\\)" ; user project root
                      "/\\([a-z0-9_]\\{0,3\\}\\).*?/") ; dir in user project root
              (lambda (string)
                ;; (concat ":"
                ;;         (capitalize (match-string 1 string))
                ;;         (upcase (match-string 2 string))
                ;;         (when (not (string= (match-string 3 string) (getenv "USER")))
                ;;           (concat "[" (match-string 3 string) "]"))
                ;;         ":" (upcase (match-string 4 string)) ":"
                ;;         )
                (concat (when (not (string= (match-string 3 string) (getenv "USER")))
                          (concat "[" (match-string 3 string) "]"))
                        ":" (upcase (match-string 4 string)) ":")
                ))
            ("\\(:.*\\)DIG:tb/"                    "\\1TB:" )
            ("\\(:.*\\)TB:agents/"                 "\\1AGT:" )
            ("\\(:.*\\)TB:patterns/"               "\\1PAT:" )
