xmobar: reduce clutter

Move the date and time to the right hand side.

Move most of the system metrics to the right hand side.

.config/xmobar/xmobar.hs

@@ -4,14 +4,14 @@ Config {
      font =         "xft:Fira Code:size=10:bold:antialias=true"
    , bgColor =      "black"
    , fgColor =      "#CCC"
-   , position =     Top
+   , position =     TopP 0 80
    , border =       BottomB
    , borderColor =  "#646464"
 
    -- layout
    , sepChar =  "%"   -- delineator between plugin names and straight text
    , alignSep = "}{"  -- separator between left-right alignment
-   , template = "%UnsafeStdinReader% | %date% | %battery% | %multicpu% | %memory% | %dynnetwork%  "
+   , template = "%UnsafeStdinReader% }{ %multicpu% | %memory% | %dynnetwork% | %battery% | %date%"
 
    -- general behavior
    , lowerOnStart =     True    -- send to bottom of window stack on start

.xmonad/xmonad.hs

@@ -65,17 +65,7 @@ myModMask       = mod4Mask
 --
 -- > workspaces = ["web", "irc", "code" ] ++ map show [4..9]
 --
-xmobarEscape = concatMap doubleLts
+myWorkspaces = ["1","2","3","4","5","6","7","8","9"]
-  where doubleLts '<' = "<<"
-        doubleLts x   = [x]
-
-myWorkspaces :: [String]
-myWorkspaces = clickable . map xmobarEscape $ ["1","2","3","4","5","6","7","8","9"]
-
-  where
-         clickable l = [ "<action=xdotool key alt+" ++ show n ++ ">" ++ ws ++ "</action>" |
-                             (i,ws) <- zip [1..9] l,
-                            let n = i ]
 
 -- Border colors for unfocused and focused windows, respectively.
 --
@@ -288,10 +278,11 @@ myEventHook = docksEventHook <+> handleEventHook def <+> fullscreenEventHook
 myLogHook h = dynamicLogWithPP $ xmobarPP
     { ppOutput = hPutStrLn h
     , ppCurrent = xmobarColor "yellow" "" . wrap "[" "]"
-    , ppHiddenNoWindows = xmobarColor "grey" ""
+    , ppTitle   = xmobarColor "grey"  "" . shorten 80
-    , ppTitle   = xmobarColor "green"  "" . shorten 40
     , ppVisible = wrap "(" ")"
     , ppUrgent  = xmobarColor "red" "yellow"
+    , ppWsSep   = " "
+    , ppOrder   = \(ws:l:t:_) -> [ws,t]
     }
 
 ------------------------------------------------------------------------