Implement adaptive xmobarrc config

Author: Yann Hoffmann

README.md

@@ -17,6 +17,8 @@ Caveat emptor as always.
 
 XMonad uses the build script at "$HOME/.xmonad/build" when recompiling
 (`xmonad --recompile`)
+Moving it to $HOME/.xmonad/xmonad86_64..
+For more information https://sitr.us/2018/05/13/build-xmonad-with-stack.html
 
 
 ## How to install

src/Modules/Keys.hs

@@ -67,7 +67,7 @@ emacsKeys = [
     , ("C-M1-d"  , spawn "zeal"     )
     , ("C-M1-e"  , spawn "emacs"       )
     , ("C-M1-f"  , spawn "firefox"     )
-    , ("C-M1-g"  , spawn "gimp"	       )
+    , ("C-M1-g"  , spawn "pinta"	       )
     , ("C-M1-i"  , spawn "idea-ce"     )
     , ("C-M1-k"  , spawn "kdenlive"        )
 
@@ -101,7 +101,7 @@ emacsKeys = [
     , ("C-M-o", scratchpadAction exclusiveSps "octave"      ) -- octave
     , ("C-M-p", scratchpadAction exclusiveSps "python"      ) -- python
 
-    , ("C-M-r", scratchpadAction exclusiveSps "R"	    ) -- R
+    , ("C-M-r", scratchpadAction exclusiveSps "radioswissjazz.AppImage"	    ) -- R
     , ("C-M-s", scratchpadAction exclusiveSps "rambox"	    ) -- social media
     , ("C-M-t", scratchpadAction exclusiveSps "timetrack"   ) -- time tracking
 
@@ -262,8 +262,8 @@ fKeys      = [xK_F1 .. xK_F9]
 
 strWorkspaces, strFKeys, clickables :: [String]
 strFKeys      = ["F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9"]
-strWorkspaces = ["1:idea", "2:*", "3:*", "4:*", "5:*",
-                 "6:*", "7:*", "8:*", "9:dump"]
+strWorkspaces = ["1", "2", "3", "4", "5",
+                 "6", "7", "8", "9"]
 
 clickables = action strWorkspaces
     where action l = [ "<action=xdotool key super+" ++ n ++ ">" ++ ws ++ "</action>" |

src/xmonad.hs

@@ -30,7 +30,7 @@ import XMonad.Actions.KeyRemap
 
     -- my Imports
 --import Modules.MyTreeSelect (treeselectAction, sshTreeselectAction, myTreeNavigation)
-import Modules.Keys (emacsKeys, mouseKeys, clickables, confKeys, exclusiveSps)
+import Modules.Keys (emacsKeys, mouseKeys, clickables, confKeys, exclusiveSps, strWorkspaces)
 import Modules.Others (dtXPConfig, dtXPConfig', tsDefaultConfig, pp, m)
 import Modules.Layouts (myManageHook, myLayoutHook)
 import XMonad.Hooks.RefocusLast
@@ -47,32 +47,12 @@ myBorderWidth = 3
 ------------------------------------------------------------------------
 -- MAIN
 ------------------------------------------------------------------------
---main :: IO ()
---main = xmonad def
---    { handleEventHook = refocusLastWhen myPred <+> handleEventHook def
---    , logHook         = refocusLastLogHook     <+> logHook         def
-----  , layoutHook      = refocusLastLayoutHook   $  layoutHook      def
---    , keys            = refocusLastKeys        <+> keys            def
---    } where
---        myPred = refocusingIsActive <||> isFloat
---        refocusLastKeys cnf
---          = M.fromList
---          $ ((modMask cnf              , xK_a), toggleFocus)
---          : ((modMask cnf .|. shiftMask, xK_a), swapWithLast)
---          : ((modMask cnf              , xK_b), toggleRefocusing)
---          : [ ( (modMask cnf .|. shiftMask, n)
---              , windows =<< shiftRLWhen myPred wksp
---              )
---            | (n, wksp) <- zip [xK_1..xK_9] (workspaces cnf)
---            ]
-
 main :: IO ()
 --main = xmonad =<< xmobar def { modMask = mod4Mask }
-
+--
 main = do
     nScreens <- countScreens
-    -- let nScreens = 2
-    handles  <- mapM (spawnPipe . xmobarCommand) [0..nScreens-1]
+    handles <- mapM (\(x, y) -> spawnPipe (xmobarCommand x y)) [(s, nScreens) | s <- [0..nScreens-1]]
 
     xmonad $ ewmh def {
           manageHook = myManageHook  -- how windows are opened
@@ -92,7 +72,7 @@ main = do
 
         , focusFollowsMouse  = False
         , clickJustFocuses   = False
-        , workspaces         = withScreens nScreens clickables
+        , workspaces         = withScreens nScreens strWorkspaces
         , modMask            = mod4Mask
         , keys               = confKeys -- Workspaces
 
@@ -107,17 +87,23 @@ main = do
       where myPred = refocusingIsActive <||> isFloat
 
 -- TODO Refactor
-xmobarCommand (S screen) = unwords ["xmobar", "-x", show screen, myConfig screen]
+xmobarCommand (S screen) nScreens = unwords ["xmobar", "-x", show screen, myConfig screen nScreens]
     where
-        myConfig 2 = "$HOME/.config/xmobar/xmobarrc_mid.hs"
-        myConfig 0 = "$HOME/.config/xmobar/xmobarrc_left.hs"
-        myConfig 1 = "$HOME/.config/xmobar/xmobarrc_right.hs"
+        myConfig screen nScreens
+            | nScreens == 1 = "$HOME/.config/xmobar/laptop/mono.hs"
+            | nScreens == 2 && screen == 1 = "$HOME/.config/xmobar/laptop/docked_right.hs"
+            | nScreens == 2 && screen == 0 = "$HOME/.config/xmobar/laptop/docked_laptop.hs"
+            | nScreens == 3 && screen == 1 = "$HOME/.config/xmobar/laptop/left.hs"
+            | nScreens == 3 && screen == 1 = "$HOME/.config/xmobar/desktop/center.hs"
+            | nScreens == 3 && screen == 2 = "$HOME/.config/xmobar/desktop/right.hs"
+            | otherwise = "$HOME/.config/xmobar/xmobarrc_laptop.hs"
+            ++ " --additional-logger=StdinReader"
 
 addNETSupported :: Atom -> X ()
 addNETSupported x   = withDisplay $ \dpy -> do
     r               <- asks theRoot
     a_NET_SUPPORTED <- getAtom "_NET_SUPPORTED"
-    a               <- getAtom "ATOM"
+    a               <- getAtom "ATOMOSINT"
     liftIO $ do
        sup <- join . maybeToList <$> getWindowProperty32 dpy a_NET_SUPPORTED r
        when (fromIntegral x `notElem` sup) $
@@ -135,4 +121,4 @@ myStartupHook :: X ()
 myStartupHook = do
     spawnOnce "$HOME/system/etc/autostart.sh"
     setWMName "xmonad"
---    setWMName "LG3D" --for the JVM
+    setWMName "LG3D" --for the JVM

stack.yaml

@@ -36,7 +36,12 @@ packages:
 # These entries can reference officially published versions as well as
 # forks / in-progress versions pinned to a git hash. For example:
 #
-# extra-deps:
+extra-deps:
+- cairo-0.13.8.2@sha256:ef1709c3c4d2c6d68a9a51d9f220dccc0745f6468d2d0868c15a7ecdf8f325a1,4078
+- colour-2.3.6@sha256:ebdcbf15023958838a527e381ab3c3b1e99ed12d1b25efeb7feaa4ad8c37664a,2378
+- pango-0.13.8.2@sha256:d4057ebddade4cde3e25d7755b5e030e7a7e56fe7365afd37916a7bba46d3fd9,3917
+- glib-0.13.8.2@sha256:f44b829e741b3c3244d523f60b058701dfc067ff64c2ba61d43be4cccfc2663d,3156
+- gtk2hs-buildtools-0.13.8.3@sha256:207229eee7abff12aba2740b32131522086275e46f2e72a0f5bbc3cb781e9d4d,5304
 # - acme-missiles-0.3
 # - git: https://github.com/commercialhaskell/stack.git
 #   commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a
@@ -66,3 +71,4 @@ packages:
 #
 # Allow a newer minor version of GHC than the snapshot specifies
 # compiler-check: newer-minor
+

stack.yaml.lock

@@ -3,7 +3,42 @@
 # For more information, please see the documentation at:
 #   https://docs.haskellstack.org/en/stable/lock_files
 
-packages: []
+packages:
+- completed:
+    hackage: cairo-0.13.8.2@sha256:ef1709c3c4d2c6d68a9a51d9f220dccc0745f6468d2d0868c15a7ecdf8f325a1,4078
+    pantry-tree:
+      size: 2830
+      sha256: d6a9b3a15bc2e7b53fda331279cfdbc299fbf0c4be2ee8c1b6b79b924b6fdeb4
+  original:
+    hackage: cairo-0.13.8.2@sha256:ef1709c3c4d2c6d68a9a51d9f220dccc0745f6468d2d0868c15a7ecdf8f325a1,4078
+- completed:
+    hackage: colour-2.3.6@sha256:ebdcbf15023958838a527e381ab3c3b1e99ed12d1b25efeb7feaa4ad8c37664a,2378
+    pantry-tree:
+      size: 1183
+      sha256: 03f8e22f364deb86098dbfbe0bf83c896437b2355f139abdac0402658fb6ac7e
+  original:
+    hackage: colour-2.3.6@sha256:ebdcbf15023958838a527e381ab3c3b1e99ed12d1b25efeb7feaa4ad8c37664a,2378
+- completed:
+    hackage: pango-0.13.8.2@sha256:d4057ebddade4cde3e25d7755b5e030e7a7e56fe7365afd37916a7bba46d3fd9,3917
+    pantry-tree:
+      size: 1506
+      sha256: 10c335853e1d43e0b7426b33e8ddbdb90b3e318ebec4d58f0726a2f4cfb2e1c9
+  original:
+    hackage: pango-0.13.8.2@sha256:d4057ebddade4cde3e25d7755b5e030e7a7e56fe7365afd37916a7bba46d3fd9,3917
+- completed:
+    hackage: glib-0.13.8.2@sha256:f44b829e741b3c3244d523f60b058701dfc067ff64c2ba61d43be4cccfc2663d,3156
+    pantry-tree:
+      size: 1625
+      sha256: 2442a22152231a94e2f1ecfe7ddc0f4e5fb2d5ae116b371508a448bd3312ef06
+  original:
+    hackage: glib-0.13.8.2@sha256:f44b829e741b3c3244d523f60b058701dfc067ff64c2ba61d43be4cccfc2663d,3156
+- completed:
+    hackage: gtk2hs-buildtools-0.13.8.3@sha256:207229eee7abff12aba2740b32131522086275e46f2e72a0f5bbc3cb781e9d4d,5304
+    pantry-tree:
+      size: 3588
+      sha256: 1f93c6dbf2573503c48019fdf9f4662dcac494beaecccaea1873ec901eb2152f
+  original:
+    hackage: gtk2hs-buildtools-0.13.8.3@sha256:207229eee7abff12aba2740b32131522086275e46f2e72a0f5bbc3cb781e9d4d,5304
 snapshots:
 - completed:
     size: 533252