From a4420142f566afaaec5281e6b10bc8dadb6644fb Mon Sep 17 00:00:00 2001
From: Dave Gallant <davegallant@gmail.com>
Date: Mon, 7 Sep 2020 12:38:47 -0400
Subject: [PATCH] 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 ++--
 .xmonad/xmonad.hs        | 17 ++++-------------
 2 files changed, 6 insertions(+), 15 deletions(-)

diff --git a/.config/xmobar/xmobar.hs b/.config/xmobar/xmobar.hs
index 01bd751..1e100a0 100644
--- a/.config/xmobar/xmobar.hs
+++ b/.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
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index a5e24e5..006a2b8 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -65,17 +65,7 @@ myModMask       = mod4Mask
 --
 -- > workspaces = ["web", "irc", "code" ] ++ map show [4..9]
 --
-xmobarEscape = concatMap doubleLts
-  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 ]
+myWorkspaces = ["1","2","3","4","5","6","7","8","9"]
 
 -- 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 "green"  "" . shorten 40
+    , ppTitle   = xmobarColor "grey"  "" . shorten 80
     , ppVisible = wrap "(" ")"
     , ppUrgent  = xmobarColor "red" "yellow"
+    , ppWsSep   = " "
+    , ppOrder   = \(ws:l:t:_) -> [ws,t]
     }
 
 ------------------------------------------------------------------------