Add window titles

lib/Projects.hs

@@ -36,7 +36,7 @@ projects =  [ adminProject "wrk-config"
             , workProject "azure-kube-platform"
             , workProject "bob-the-builder"
             , workProject "boomi-gateway"
-            , workProject "connect2.0-terraform"
+            , workProject "connect2-terraform"
             , workProject "docker-images"
             , workProject "gitlab-runners"
             , workProject "infra-inventory"

lib/Solarized.hs

@@ -20,8 +20,33 @@ module Solarized
 , foreground
 , foregroundhl
 , foregroundll
+, theme
 ) where
 
+import XMonad.Layout.Decoration (Theme(..))
+
+theme :: Theme
+theme =
+  Theme { activeColor         = violet
+        , inactiveColor       = base03
+        , urgentColor         = red
+        , activeBorderColor   = violet
+        , inactiveBorderColor = base03
+        , urgentBorderColor   = red
+        , activeBorderWidth   = 1
+        , inactiveBorderWidth = 1
+        , urgentBorderWidth   = 1
+        , activeTextColor     = base03
+        , inactiveTextColor   = base02
+        , urgentTextColor     = red
+        , fontName            = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
+        , decoWidth           = 200
+        , decoHeight          = 15
+        , windowTitleAddons   = []
+        , windowTitleIcons    = []
+        }
+
+
 base03  = "#002b36"
 base02  = "#073642"
 base01  = "#586e75"

xmonad.hs

@@ -11,6 +11,7 @@ import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.ManageHelpers
 
 import XMonad.Layout.NoBorders (noBorders, smartBorders)
+import XMonad.Layout.NoFrillsDecoration
 import XMonad.Layout.PerScreen
 import XMonad.Layout.Reflect
 import XMonad.Layout.ResizableTile (ResizableTall(..))
@@ -28,8 +29,8 @@ import MouseBindings as Mouse (modify)
 import Projects (modify)
 import Scratchpad (modify)
 
---------- toggle btw    vvvvvvvvvv or vvvvv
+-------------------- toggle btw    vvvvvvvvvv or vvvvv
-layouts = toggleLayouts fullscreen    tiled
+layouts = titleBar $ toggleLayouts fullscreen    tiled
   where
     fullscreen    = (noBorders Full)
     tiled         = smarts $ ifWider (1920 + 1) wideScreen normalScreen
@@ -37,6 +38,7 @@ layouts = toggleLayouts fullscreen    tiled
     normalScreen  = resizableTall
     resizableTall = ResizableTall 1 (5/100) (1/2) []
     smarts        = (smartSpacingWithEdge 5) . smartBorders
+    titleBar      = noFrillsDeco shrinkText S.theme
 
 -- Use the `xprop' tool to get the info you need for these matches.
 -- For className, use the second value that xprop gives you.