TreeSelect, GridSelect, unfocused windows opacity, workspace name on switch.

.xmonad/xmonad.hs

@@ -1,18 +1,25 @@
--- The xmonad configuration of Derek Taylor (DistroTube)
+-- Xmonad is a dynamically tiling X11 window manager that is written and
+-- configured in Haskell. Official documentation: https://xmonad.org
+
+-- This is the xmonad configuration of Derek Taylor (DistroTube)
 -- My YouTube: http://www.youtube.com/c/DistroTube
 -- My GitLab:  http://www.gitlab.com/dwt1/
--- For more information on Xmonad, visit: https://xmonad.org
+
+-- This config is massively long. It is purposely bloated with a ton of
+-- examples of what you can do with xmonad. It is written more as a
+-- study guide rather than a config that you should download and use.
 
 ------------------------------------------------------------------------
 -- IMPORTS
 ------------------------------------------------------------------------
     -- Base
 import XMonad
-import System.IO (hPutStrLn)
+import System.IO (hPutStr, hPutStrLn)
 import System.Exit (exitSuccess)
 import qualified XMonad.StackSet as W
 
     -- Actions
+import XMonad.Actions.Commands (defaultCommands, screenCommands, workspaceCommands)
 import XMonad.Actions.CopyWindow (kill1, killAllOtherCopies)
 import XMonad.Actions.CycleWS (moveTo, shiftTo, WSType(..), nextScreen, prevScreen)
 import XMonad.Actions.GridSelect
@@ -30,15 +37,18 @@ import Data.List
 import Data.Monoid
 import Data.Maybe (isJust)
 import Data.Tree
+import qualified Data.Tuple.Extra as TE
 import qualified Data.Map as M
 
     -- Hooks
 import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..))
 import XMonad.Hooks.EwmhDesktops  -- for some fullscreen events, also for xcomposite in obs.
+import XMonad.Hooks.FadeInactive
 import XMonad.Hooks.ManageDocks (avoidStruts, docksEventHook, manageDocks, ToggleStruts(..))
 import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat)
 import XMonad.Hooks.ServerMode
 import XMonad.Hooks.SetWMName
+import XMonad.Hooks.WorkspaceHistory
 
     -- Layouts
 import XMonad.Layout.GridVariants (Grid(Grid))
@@ -56,6 +66,7 @@ import XMonad.Layout.MultiToggle (mkToggle, single, EOT(EOT), (??))
 import XMonad.Layout.MultiToggle.Instances (StdTransformers(NBFULL, MIRROR, NOBORDERS))
 import XMonad.Layout.NoBorders
 import XMonad.Layout.Renamed (renamed, Rename(Replace))
+import XMonad.Layout.ShowWName
 import XMonad.Layout.Spacing
 import XMonad.Layout.WindowArranger (windowArrange, WindowArrangerMsg(..))
 import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(Toggle))
@@ -64,6 +75,7 @@ import qualified XMonad.Layout.MultiToggle as MT (Toggle(..))
     -- Prompt
 import XMonad.Prompt
 import XMonad.Prompt.Input
+import XMonad.Prompt.FuzzyMatch
 import XMonad.Prompt.Man
 import XMonad.Prompt.Pass
 import XMonad.Prompt.Shell (shellPrompt)
@@ -80,8 +92,11 @@ import XMonad.Util.SpawnOnce
 ------------------------------------------------------------------------
 -- VARIABLES
 ------------------------------------------------------------------------
+-- It's nice to assign values to stuff that you will use more than once
+-- in the config. Setting values for things like font, terminal and editor
+-- means you only have to change the value here to make changes globally.
 myFont :: String
-myFont = "xft:Mononoki Nerd Font:bold:pixelsize=13"
+myFont = "xft:Mononoki Nerd Font:bold:size=9"
 
 myModMask :: KeyMask
 myModMask = mod4Mask       -- Sets modkey to super/windows key
@@ -89,6 +104,12 @@ myModMask = mod4Mask       -- Sets modkey to super/windows key
 myTerminal :: String
 myTerminal = "alacritty"   -- Sets default terminal
 
+myBrowser :: String
+myBrowser = myTerminal ++ " -e lynx "  -- Sets browser for tree select
+
+myEditor :: String
+myEditor = "emacsclient -c -a emacs "  -- Sets editor for tree select
+
 myBorderWidth :: Dimension
 myBorderWidth = 2          -- Sets border width for windows
 
@@ -109,7 +130,7 @@ windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace
 ------------------------------------------------------------------------
 myStartupHook :: X ()
 myStartupHook = do
-          spawnOnce "nitrogen --restore &" 
+          spawnOnce "nitrogen --restore &"
           spawnOnce "picom &"
           spawnOnce "nm-applet &"
           spawnOnce "volumeicon &"
@@ -121,6 +142,8 @@ myStartupHook = do
 ------------------------------------------------------------------------
 -- GRID SELECT
 ------------------------------------------------------------------------
+-- GridSelect displays items (programs, open windows, etc.) in a 2D grid
+-- and lets the user select from it with the cursor/hjkl keys or the mouse.
 myColorizer :: Window -> Bool -> X (String, String)
 myColorizer = colorRangeFromClassName
                   (0x29,0x2d,0x3e) -- lowest inactive bg
@@ -128,13 +151,13 @@ myColorizer = colorRangeFromClassName
                   (0xc7,0x92,0xea) -- active bg
                   (0xc0,0xa7,0x9a) -- inactive fg
                   (0x29,0x2d,0x3e) -- active fg
-                  
+
 -- gridSelect menu layout
 mygridConfig :: p -> GSConfig Window
 mygridConfig colorizer = (buildDefaultGSConfig myColorizer)
     { gs_cellheight   = 40
-    , gs_cellwidth    = 250
+    , gs_cellwidth    = 200
-    , gs_cellpadding  = 8
+    , gs_cellpadding  = 6
     , gs_originFractX = 0.5
     , gs_originFractY = 0.5
     , gs_font         = myFont
@@ -143,33 +166,171 @@ mygridConfig colorizer = (buildDefaultGSConfig myColorizer)
 spawnSelected' :: [(String, String)] -> X ()
 spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn
     where conf = def
+                   { gs_cellheight   = 40
+                   , gs_cellwidth    = 200
+                   , gs_cellpadding  = 6
+                   , gs_originFractX = 0.5
+                   , gs_originFractY = 0.5
+                   , gs_font         = myFont
+                   }
 
--- Set favorite apps for the spawnSelected'
+-- The lists below are actually 3-tuples for use with gridSelect and treeSelect.
-myAppGrid :: [(String, String)]
+-- TreeSelect uses all three values in the 3-tuples but GridSelect only needs first
-myAppGrid = [ ("Audacity", "audacity")
+-- two values in each list (see myAppGrid, myBookmarkGrid and myConfigGrid below).
-            , ("Deadbeef", "deadbeef")
+myApplications :: [([Char], [Char], [Char])]
-            , ("Emacs", "emacs")
+myApplications = [ ("Audacity", "audacity", "Graphical cross-platform audio eidtor")
-            , ("Firefox", "firefox")
+            , ("Deadbeef", "deadbeef", "Lightweight GUI audio player")
-            , ("Geany", "geany")
+            , ("Emacs", "emacs", "Much more than a text editor")
-            , ("Geary", "geary")
+            , ("Firefox", "firefox", "The famous open source web browser")
-            , ("Gimp", "gimp")
+            , ("Geany", "geany", "A nice text editor")
-            , ("Kdenlive", "kdenlive")
+            , ("Geary", "geary", "Email client that is attractive")
-            , ("LibreOffice Impress", "loimpress")
+            , ("Gimp", "gimp", "Open source alternative to Photoshop")
-            , ("LibreOffice Writer", "lowriter")
+            , ("Kdenlive", "kdenlive", "A great open source video editor")
-            , ("OBS", "obs")
+            , ("LibreOffice Impress", "loimpress", "For making presentations")
-            , ("PCManFM", "pcmanfm")
+            , ("LibreOffice Writer", "lowriter", "A fully featured word processor")
-            , ("Simple Terminal", "st")
+            , ("OBS", "obs", "Open broadcaster software")
-            , ("Steam", "steam")
+            , ("PCManFM", "pcmanfm", "Lightweight graphical file manager")
-            , ("Surf Browser", "surf suckless.org")
+            , ("Simple Terminal", "st", "Suckless simple terminal")
-            , ("Xonotic", "xonotic-glx")
+            , ("Steam", "steam", "Proprietary gaming platform")
+            , ("Surf Browser", "surf suckless.org", "Suckless surf web browser")
+            , ("Xonotic", "xonotic-glx", "A fast-paced first person shooter")
             ]
 
+myBookmarks :: [([Char], [Char], [Char])]
+myBookmarks = [ ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            , ("Site Name", myBrowser ++ "https://www.distrotube.com", "Official website for DistroTube")
+            ]
+
+myConfigs :: [([Char], [Char], [Char])]
+myConfigs = [ ("bashrc", myEditor ++ "/home/dt/.bashrc", "the bourne again shell")
+            , ("doom emacs config.el", myEditor ++ "/home/dt/.doom.d/config.el", "doom emacs config")
+            , ("doom emacs init.el", myEditor ++ "/home/dt/.doom.d/init.el", "doom emacs init")
+            , ("dwm", myEditor ++ "/home/dt/dwm-distrotube/config.h", "dwm config file")
+            , ("qtile", myEditor ++ "/home/dt/.config/qtile/config.py", "qtile config")
+            , ("xmonad.hs", myEditor ++ "/home/dt/.xmonad/xmonad.hs", "xmonad config")
+            , ("zshrc", myEditor ++ "/home/dt/.zshrc", "config for the z shell")
+            ]
+
+-- Three functions for pulling the first, second and third items
+-- from each list in the above 3-tuple named myApplications.
+-- getFst, getSnd, getThd ::[[Char]]
+-- getFst = [TE.fst3 $ xs !! n | n <- [0..((length xs)-1)]]
+-- getSnd = [TE.snd3 $ myApplications !! n | n <- [0..((length myApplications)-1)]]
+-- getThd = [TE.thd3 $ myApplications !! n | n <- [0..((length myApplications)-1)]]
+
+-- Creating two lists and then zipping them together in a 2-tuple so that
+-- GridSelect can use them. myAppGrid is the same as myApplications above,
+-- minus the third set of values (the app descriptions).
+myAppGrid :: [([Char], [Char])]
+myAppGrid = zip
+            [TE.fst3 $ xs !! n | n <- [0..(length xs - 1)]]
+            [TE.snd3 $ xs !! n | n <- [0..(length xs - 1)]]
+  where xs = myApplications
+
+myBookmarkGrid :: [([Char], [Char])]
+myBookmarkGrid = zip
+                 [TE.fst3 $ xs !! n | n <- [0..(length xs - 1)]]
+                 [TE.snd3 $ xs !! n | n <- [0..(length xs - 1)]]
+  where xs = myBookmarks
+
+myConfigGrid :: [([Char], [Char])]
+myConfigGrid = zip
+               [TE.fst3 $ xs !! n | n <- [0..(length xs - 1)]]
+               [TE.snd3 $ xs !! n | n <- [0..(length xs - 1)]]
+  where xs = myConfigs
+
+------------------------------------------------------------------------
+-- TREE SELECT
+------------------------------------------------------------------------
+-- TreeSelect displays your workspaces or actions in a Tree-like format.
+-- You can select desired workspace/action with the cursor or hjkl keys.
+
+treeselectAction :: TS.TSConfig (X ()) -> X ()
+treeselectAction a = TS.treeselectAction a
+   [ Node (TS.TSNode "applications" "a list of programs I use often" (return ()))
+     [Node (TS.TSNode (TE.fst3 $ myApplications !! n)
+                      (TE.thd3 $ myApplications !! n)
+                      (spawn $ TE.snd3 $ myApplications !! n)
+           ) [] | n <- [0..(length myApplications - 1)]
+     ]
+   , Node (TS.TSNode "bookmarks" "a list of web bookmarks" (return ()))
+     [Node (TS.TSNode(TE.fst3 $ myBookmarks !! n)
+                     (TE.thd3 $ myBookmarks !! n)
+                     (spawn $ TE.snd3 $ myBookmarks !! n)
+           ) [] | n <- [0..(length myBookmarks - 1)]
+     ]
+   , Node (TS.TSNode "config files" "config files that edit often" (return ()))
+     [Node (TS.TSNode (TE.fst3 $ myConfigs !! n)
+                      (TE.thd3 $ myConfigs !! n)
+                      (spawn $ TE.snd3 $ myConfigs !! n)
+           ) [] | n <- [0..(length myConfigs - 1)]
+     ]
+   ]
+
+tsDefaultConfig :: TS.TSConfig a
+tsDefaultConfig = TS.TSConfig { TS.ts_hidechildren = True
+                              , TS.ts_background   = 0xdd292d3e
+                              , TS.ts_font         = myFont
+                              , TS.ts_node         = (0xffd0d0d0, 0xff202331)
+                              , TS.ts_nodealt      = (0xffd0d0d0, 0xff292d3e)
+                              , TS.ts_highlight    = (0xffffffff, 0xff755999)
+                              , TS.ts_extra        = 0xffd0d0d0
+                              , TS.ts_node_width   = 200
+                              , TS.ts_node_height  = 20
+                              , TS.ts_originX      = 0
+                              , TS.ts_originY      = 0
+                              , TS.ts_indent       = 80
+                              , TS.ts_navigate     = myTreeNavigation
+                              }
+
+myTreeNavigation = M.fromList
+    [ ((0, xK_Escape), TS.cancel)
+    , ((0, xK_Return), TS.select)
+    , ((0, xK_space),  TS.select)
+    , ((0, xK_Up),     TS.movePrev)
+    , ((0, xK_Down),   TS.moveNext)
+    , ((0, xK_Left),   TS.moveParent)
+    , ((0, xK_Right),  TS.moveChild)
+    , ((0, xK_k),      TS.movePrev)
+    , ((0, xK_j),      TS.moveNext)
+    , ((0, xK_h),      TS.moveParent)
+    , ((0, xK_l),      TS.moveChild)
+    , ((0, xK_o),      TS.moveHistBack)
+    , ((0, xK_i),      TS.moveHistForward)
+    , ((0, xK_b),      TS.moveTo ["web", "browser"])
+    , ((0, xK_d),      TS.moveTo ["dev"])
+    , ((0, xK_e),      TS.moveTo ["dev", "emacs"])
+    , ((0, xK_f),      TS.moveTo ["dev", "files"])
+    , ((0, xK_t),      TS.moveTo ["dev", "terminal"])
+    , ((0, xK_g),      TS.moveTo ["graphics"])
+    , ((0, xK_m),      TS.moveTo ["music"])
+    , ((0, xK_p),      TS.moveTo ["dev", "programming", "haskell"])
+    , ((0, xK_v),      TS.moveTo ["video"])
+    , ((0, xK_1),      TS.moveTo ["video", "video editor"])
+    , ((0, xK_w),      TS.moveTo ["web"])
+    ]
+
 ------------------------------------------------------------------------
 -- XPROMPT SETTINGS
 ------------------------------------------------------------------------
 dtXPConfig :: XPConfig
 dtXPConfig = def
-      { font                = "xft:Mononoki Nerd Font:size=9"
+      { font                = myFont
       , bgColor             = "#292d3e"
       , fgColor             = "#d0d0d0"
       , bgHLight            = "#c792ea"
@@ -185,7 +346,8 @@ dtXPConfig = def
       , defaultText         = []
       , autoComplete        = Just 100000  -- set Just 100000 for .1 sec
       , showCompletionOnTab = False
-      , searchPredicate     = isPrefixOf
+      -- , searchPredicate     = isPrefixOf
+      , searchPredicate     = fuzzyMatch
       , alwaysHighlight     = True
       , maxComplRows        = Nothing      -- set to Just 5 for 5 rows
       }
@@ -194,10 +356,11 @@ dtXPConfig = def
 -- certain Xprompts, like the search engine prompts.
 dtXPConfig' :: XPConfig
 dtXPConfig' = dtXPConfig
-      { autoComplete = Nothing
+      { autoComplete        = Nothing
       }
 
--- A list of all of the standard Xmonad prompts
+-- A list of all of the standard Xmonad prompts and a key press assigned to them.
+-- These are used in conjunction with keybinding I set later in the config.
 promptList :: [(String, XPConfig -> X ())]
 promptList = [ ("m", manPrompt)          -- manpages prompt
              , ("p", passPrompt)         -- get passwords (requires 'pass')
@@ -207,20 +370,21 @@ promptList = [ ("m", manPrompt)          -- manpages prompt
              , ("x", xmonadPrompt)       -- xmonad prompt
              ]
 
--- A list of my custom prompts
+-- Same as the above list except this is for my custom prompts.
 promptList' :: [(String, XPConfig -> String -> X (), String)]
 promptList' = [ ("c", calcPrompt, "qalc")         -- requires qalculate-gtk
               ]
+
 ------------------------------------------------------------------------
 -- CUSTOM PROMPTS
 ------------------------------------------------------------------------
 -- calcPrompt requires a cli calculator called qalcualte-gtk.
--- You could use this as a template for other custom prompts that 
+-- You could use this as a template for other custom prompts that
 -- use command line programs that return a single line of output.
-calcPrompt :: XPConfig -> String -> X () 
+calcPrompt :: XPConfig -> String -> X ()
 calcPrompt c ans =
-    inputPrompt c (trim ans) ?+ \input -> 
+    inputPrompt c (trim ans) ?+ \input ->
-        liftIO(runProcessWithInput "qalc" [input] "") >>= calcPrompt c 
+        liftIO(runProcessWithInput "qalc" [input] "") >>= calcPrompt c
     where
         trim  = f . f
             where f = reverse . dropWhile isSpace
@@ -232,7 +396,7 @@ dtXPKeymap :: M.Map (KeyMask,KeySym) (XP ())
 dtXPKeymap = M.fromList $
      map (first $ (,) controlMask)   -- control + <key>
      [ (xK_z, killBefore)            -- kill line backwards
-     , (xK_k, killAfter)             -- kill line fowards
+     , (xK_k, killAfter)             -- kill line forwards
      , (xK_a, startOfLine)           -- move to the beginning of the line
      , (xK_e, endOfLine)             -- move to the end of the line
      , (xK_m, deleteString Next)     -- delete a character foward
@@ -302,256 +466,103 @@ searchList = [ ("a", archwiki)
              , ("z", S.amazon)
              ]
 
-------------------------------------------------------------------------
--- TREE SELECT
-------------------------------------------------------------------------
-treeselectAction :: TS.TSConfig (X ()) -> X ()
-treeselectAction a = TS.treeselectAction a
-   [ Node (TS.TSNode "hello"    "displays hello"      (spawn "xmessage hello!")) []
-   , Node (TS.TSNode "shutdown" "poweroff the system" (spawn "shutdown")) []
-   , Node (TS.TSNode "xmonad" "working with xmonad" (return ()))
-     [ Node (TS.TSNode "edit xmonad" "edit xmonad" (spawn (myTerminal ++ " -e vim ~/.xmonad/xmonad.hs"))) []
-     , Node (TS.TSNode "recompile xmonad" "recompile xmonad" (spawn "xmonad --recompile")) []
-     , Node (TS.TSNode "restart xmonad" "restart xmonad" (spawn "xmonad --restart")) []
-     ]
-   , Node (TS.TSNode "brightness" "Sets screen brightness using xbacklight" (return ()))
-       [ Node (TS.TSNode "bright" "full power"            (spawn "xbacklight -set 100")) []
-       , Node (TS.TSNode "normal" "normal brightness (50%)" (spawn "xbacklight -set 50"))  []
-       , Node (TS.TSNode "dim"    "quite dark"              (spawn "xbacklight -set 10"))  []
-       ]
-   , Node (TS.TSNode "system monitors" "system monitoring applications" (return ()))
-       [ Node (TS.TSNode "htop"    "a much better top"     (spawn (myTerminal ++ " -e htop"))) []
-       , Node (TS.TSNode "glances" "an eye on your system" (spawn (myTerminal ++ " -e glances"))) []
-       , Node (TS.TSNode "gtop"    "a more graphical top"  (spawn (myTerminal ++ " -e gtop"))) []
-       , Node (TS.TSNode "nmon"    "network monitor"       (spawn (myTerminal ++ " -e nmon"))) []
-       , Node (TS.TSNode "s-tui"   "stress your system"    (spawn (myTerminal ++ " -e s-tui"))) []
-       ]
-   ]
 
-tsDefaultConfig :: TS.TSConfig a
-tsDefaultConfig = TS.TSConfig { TS.ts_hidechildren = True
-                              , TS.ts_background   = 0xdd292d3e
-                              , TS.ts_font         = "xft:Mononoki Nerd Font:bold:pixelsize=13"
-                              , TS.ts_node         = (0xffd0d0d0, 0xff202331)
-                              , TS.ts_nodealt      = (0xffd0d0d0, 0xff292d3e)
-                              , TS.ts_highlight    = (0xffffffff, 0xff755999)
-                              , TS.ts_extra        = 0xffd0d0d0
-                              , TS.ts_node_width   = 200
-                              , TS.ts_node_height  = 20
-                              , TS.ts_originX      = 0
-                              , TS.ts_originY      = 0
-                              , TS.ts_indent       = 80
-                              , TS.ts_navigate     = myTreeNavigation
-                              }
-
-myTreeNavigation = M.fromList
-    [ ((0, xK_Escape), TS.cancel)
-    , ((0, xK_Return), TS.select)
-    , ((0, xK_space),  TS.select)
-    , ((0, xK_Up),     TS.movePrev)
-    , ((0, xK_Down),   TS.moveNext)
-    , ((0, xK_Left),   TS.moveParent)
-    , ((0, xK_Right),  TS.moveChild)
-    , ((0, xK_k),      TS.movePrev)
-    , ((0, xK_j),      TS.moveNext)
-    , ((0, xK_h),      TS.moveParent)
-    , ((0, xK_l),      TS.moveChild)
-    , ((0, xK_o),      TS.moveHistBack)
-    , ((0, xK_i),      TS.moveHistForward)
-    ]
-
-------------------------------------------------------------------------
--- KEYBINDINGS
-------------------------------------------------------------------------
--- I am using the Xmonad.Util.EZConfig module which allows keybindings
--- to be written in simpler, emacs-like format.
-myKeys :: [(String, X ())]
-myKeys =
-    -- Xmonad
-        [ ("M-C-r", spawn "xmonad --recompile")      -- Recompiles xmonad
-        , ("M-S-r", spawn "xmonad --restart")        -- Restarts xmonad
-        , ("M-S-q", io exitSuccess)                  -- Quits xmonad
-
-    -- Open my preferred terminal
-        , ("M-<Return>", spawn (myTerminal))
-
-    -- Run Prompt
-        , ("M-S-<Return>", shellPrompt dtXPConfig)   -- Shell Prompt
-
-    -- Windows
-        , ("M-S-c", kill1)                           -- Kill the currently focused client
-        , ("M-S-a", killAll)                         -- Kill all windows on current workspace
-
-    -- Floating windows
-        , ("M-f", sendMessage (T.Toggle "floats"))       -- Toggles my 'floats' layout
-        , ("M-<Delete>", withFocused $ windows . W.sink) -- Push floating window back to tile
-        , ("M-S-<Delete>", sinkAll)                      -- Push ALL floating windows to tile
-
-    -- Grid Select
-        , ("C-g g", spawnSelected' myAppGrid)                 -- grid select favorite apps
-        , ("C-g t", goToSelected $ mygridConfig myColorizer)  -- goto selected
-        , ("C-g b", bringSelected $ mygridConfig myColorizer) -- bring selected
-
-    -- Tree Select
-        , ("M-S-t", treeselectAction tsDefaultConfig)  -- tree select actions menu
-        , ("C-t t", TS.treeselectWorkspace tsDefaultConfig myWorkspaces W.greedyView)
-        , ("C-t g", TS.treeselectWorkspace tsDefaultConfig myWorkspaces W.shift)
-
-    -- Windows navigation
-        , ("M-m", windows W.focusMaster)     -- Move focus to the master window
-        , ("M-j", windows W.focusDown)       -- Move focus to the next window
-        , ("M-k", windows W.focusUp)         -- Move focus to the prev window
-        --, ("M-S-m", windows W.swapMaster)    -- Swap the focused window and the master window
-        , ("M-S-j", windows W.swapDown)      -- Swap focused window with next window
-        , ("M-S-k", windows W.swapUp)        -- Swap focused window with prev window
-        , ("M-<Backspace>", promote)         -- Moves focused window to master, others maintain order
-        , ("M1-S-<Tab>", rotSlavesDown)      -- Rotate all windows except master and keep focus in place
-        , ("M1-C-<Tab>", rotAllDown)         -- Rotate all the windows in the current stack
-        --, ("M-S-s", windows copyToAll)  
-        , ("M-C-s", killAllOtherCopies)
-
-        -- Layouts
-        , ("M-<Tab>", sendMessage NextLayout)                -- Switch to next layout
-        , ("M-C-M1-<Up>", sendMessage Arrange)
-        , ("M-C-M1-<Down>", sendMessage DeArrange)
-        , ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full
-        , ("M-S-<Space>", sendMessage ToggleStruts)         -- Toggles struts
-        , ("M-S-n", sendMessage $ MT.Toggle NOBORDERS)      -- Toggles noborder
-        , ("M-<KP_Multiply>", sendMessage (IncMasterN 1))   -- Increase number of clients in master pane
-        , ("M-<KP_Divide>", sendMessage (IncMasterN (-1)))  -- Decrease number of clients in master pane
-        , ("M-S-<KP_Multiply>", increaseLimit)              -- Increase number of windows
-        , ("M-S-<KP_Divide>", decreaseLimit)                -- Decrease number of windows
-
-        , ("M-h", sendMessage Shrink)                       -- Shrink horiz window width
-        , ("M-l", sendMessage Expand)                       -- Expand horiz window width
-        , ("M-C-j", sendMessage MirrorShrink)               -- Shrink vert window width
-        , ("M-C-k", sendMessage MirrorExpand)               -- Exoand vert window width
-
-    -- Workspaces
-        , ("M-.", nextScreen)  -- Switch focus to next monitor
-        , ("M-,", prevScreen)  -- Switch focus to prev monitor
-        , ("M-S-<KP_Add>", shiftTo Next nonNSP >> moveTo Next nonNSP)       -- Shifts focused window to next ws
-        , ("M-S-<KP_Subtract>", shiftTo Prev nonNSP >> moveTo Prev nonNSP)  -- Shifts focused window to prev ws
-
-    -- Scratchpads
-        , ("M-C-<Return>", namedScratchpadAction myScratchPads "terminal")
-        , ("M-C-c", namedScratchpadAction myScratchPads "mocp")
-        
-    -- Controls for mocp music player.
-        , ("M-u p", spawn "mocp --play")
-        , ("M-u l", spawn "mocp --next")
-        , ("M-u h", spawn "mocp --previous")
-        , ("M-u <Space>", spawn "mocp --toggle-pause")
-
-    -- Emacs
-        , ("C-e e", spawn "emacsclient -c -a ''")                           -- start emacs
-        , ("C-e a", spawn "emacsclient -c -a '' --eval '(emms)'")           -- emms emacs audio player
-        , ("C-e b", spawn "emacsclient -c -a '' --eval '(ibuffer)'")        -- list emacs buffers
-        , ("C-e d", spawn "emacsclient -c -a '' --eval '(dired nil)'")      -- dired emacs file manager
-        , ("C-e m", spawn "emacsclient -c -a '' --eval '(mu4e)'")           -- mu4e emacs email client
-        , ("C-e n", spawn "emacsclient -c -a '' --eval '(elfeed)'")         -- elfeed emacs rss client
-        , ("C-e s", spawn "emacsclient -c -a '' --eval '(eshell)'")         -- eshell within emacs
-        , ("C-e t", spawn "emacsclient -c -a '' --eval '(+vterm/here nil)'")         -- eshell within emacs
-
-    --- My Applications (Super+Alt+Key)
-        , ("M-M1-a", spawn (myTerminal ++ " -e ncpamixer"))
-        , ("M-M1-b", spawn "surf www.youtube.com/c/DistroTube/")
-        --, ("M-M1-e", spawn (myTerminal ++ " -e neomutt"))
-        , ("M-M1-e", spawn "emacsclient -c -a '' --eval '(mu4e)'")
-        , ("M-M1-f", spawn (myTerminal ++ " -e sh ./.config/vifm/scripts/vifmrun"))
-        , ("M-M1-i", spawn (myTerminal ++ " -e irssi"))
-        , ("M-M1-j", spawn (myTerminal ++ " -e joplin"))
-        , ("M-M1-l", spawn (myTerminal ++ " -e lynx -cfg=~/.lynx/lynx.cfg -lss=~/.lynx/lynx.lss gopher://distro.tube"))
-        , ("M-M1-m", spawn (myTerminal ++ " -e mocp"))
-        , ("M-M1-n", spawn "emacsclient -c -a '' --eval '(elfeed)'")
-        , ("M-M1-p", spawn (myTerminal ++ " -e pianobar"))
-        , ("M-M1-r", spawn (myTerminal ++ " -e rtv"))
-        , ("M-M1-t", spawn (myTerminal ++ " -e toot curses"))
-        , ("M-M1-w", spawn (myTerminal ++ " -e wopr report.xml"))
-        , ("M-M1-y", spawn (myTerminal ++ " -e youtube-viewer"))
-
-    -- Multimedia Keys
-        , ("<XF86AudioPlay>", spawn "cmus toggle")
-        , ("<XF86AudioPrev>", spawn "cmus prev")
-        , ("<XF86AudioNext>", spawn "cmus next")
-        -- , ("<XF86AudioMute>",   spawn "amixer set Master toggle")  -- Bug prevents it from toggling correctly in 12.04.
-        , ("<XF86AudioLowerVolume>", spawn "amixer set Master 5%- unmute")
-        , ("<XF86AudioRaiseVolume>", spawn "amixer set Master 5%+ unmute")
-        , ("<XF86HomePage>", spawn "firefox")
-        , ("<XF86Search>", safeSpawn "firefox" ["https://www.google.com/"])
-        , ("<XF86Mail>", runOrRaise "geary" (resource =? "thunderbird"))
-        , ("<XF86Calculator>", runOrRaise "gcalctool" (resource =? "gcalctool"))
-        , ("<XF86Eject>", spawn "toggleeject")
-        , ("<Print>", spawn "scrotd 0")
-        ]
-        -- Appending search engines to keybindings list
-        ++ [("M-s " ++ k, S.promptSearch dtXPConfig' f) | (k,f) <- searchList ]
-        ++ [("M-S-s " ++ k, S.selectSearch f) | (k,f) <- searchList ]
-        ++ [("M-p " ++ k, f dtXPConfig') | (k,f) <- promptList ]
-        ++ [("M-p " ++ k, f dtXPConfig' g) | (k,f,g) <- promptList' ]
-        -- Appending named scratchpads to keybindings list
-          where nonNSP          = WSIs (return (\ws -> W.tag ws /= "nsp"))
-                nonEmptyNonNSP  = WSIs (return (\ws -> isJust (W.stack ws) && W.tag ws /= "nsp"))
-                
 ------------------------------------------------------------------------
 -- WORKSPACES
 ------------------------------------------------------------------------
 -- My workspaces are clickable meaning that the mouse can be used to switch
--- workspaces. This requires xdotool.
+-- workspaces. This requires xdotool. You need to use UnsafeStdInReader instead
+-- of simply StdInReader in xmobar config so you can pass actions to it.
 
 xmobarEscape :: String -> String
 xmobarEscape = concatMap doubleLts
   where
         doubleLts '<' = "<<"
         doubleLts x   = [x]
-        
--- myWorkspaces :: [String]
--- myWorkspaces = clickable . map xmobarEscape
-               -- $ ["dev", "www", "sys", "doc", "vbox", "chat", "mus", "vid", "gfx"]
-  -- where
-        -- clickable l = [ "<action=xdotool key super+" ++ show n ++ ">" ++ ws ++ "</action>" |
-                      -- (i,ws) <- zip [1..9] l,
-                      -- let n = i ]
 
+{- Commented out clickable xmobar workspaces to use TreeSelect workspaces.
+
+myWorkspaces :: [String]
+myWorkspaces = clickable . map xmobarEscape
+               $ ["dev", "www", "sys", "doc", "vbox", "chat", "mus", "vid", "gfx"]
+  where
+        clickable l = [ "<action=xdotool key super+" ++ show n ++ ">" ++ ws ++ "</action>" |
+                      (i,ws) <- zip [1..9] l,
+                      let n = i ]
+
+End of comment -}
+
+-- TreeSelect workspaces
 myWorkspaces :: Forest String
-myWorkspaces = [ Node "Browser" [] -- a workspace for your browser
+myWorkspaces = [ Node "dev"
-               , Node "Home"       -- for everyday activity's
+                   [ Node "terminal" []
-                   [ Node "1" []   --  with 4 extra sub-workspaces, for even more activity's
+                   , Node "emacs" []
-                   , Node "2" []
+                   , Node "docs" []
-                   , Node "3" []
+                   , Node "files" []
-                   , Node "4" []
+                   , Node "programming"
+                     [ Node "haskell" []
+                     , Node "python" []
+                     , Node "shell" []
+                     ]
+                   , Node "virtualization" []
                    ]
-               , Node "Programming" -- for all your programming needs
+               , Node "web"
-                   [ Node "Haskell" []
+                   [ Node "browser" []
-                   , Node "Docs"    [] -- documentation
+                   , Node "chat" []
+                   , Node "email" []
+                   , Node "rss" []
+                   , Node "video conferencing" []
+                   ]
+               , Node "graphics"
+                   [ Node "gimp" []
+                   , Node "image viewer" []
+                   ]
+              , Node "music"
+                   [ Node "audio editor" []
+                   , Node "music player" []
+                   ]
+               , Node "video"
+                   [ Node "obs" []
+                   , Node "movie player" []
+                   , Node "video editor" []
                    ]
                ]
+
 ------------------------------------------------------------------------
 -- MANAGEHOOK
 ------------------------------------------------------------------------
 -- Sets some rules for certain programs. Examples include forcing certain
 -- programs to always float, or to always appear on a certain workspace.
 -- Forcing programs to a certain workspace with a doShift requires xdotool
--- if you are using clickable workspaces. You need the className or title 
+-- if you are using clickable workspaces. You need the className or title
 -- of the program. Use xprop to get this info.
 
 myManageHook :: XMonad.Query (Data.Monoid.Endo WindowSet)
 myManageHook = composeAll
      -- using 'doShift ( myWorkspaces !! 7)' sends program to workspace 8!
-     -- I'm doing it this way because otherwise I would have to write out 
+     -- I'm doing it this way because otherwise I would have to write out
      -- the full name of my clickable workspaces, which would look like:
      -- doShift "<action xdotool super+8>gfx</action>"
-     [ className =? "obs"     --> doShift ( "Browser")
+     [ className =? "obs"     --> doShift ( "video.obs" )
-     , title =? "firefox"     --> doShift ( "Browser")
+     , title =? "firefox"     --> doShift ( "web.browser" )
-     , title =? "qutebrowser" --> doShift ( "Browser")
+     , title =? "qutebrowser" --> doShift ( "web.browser" )
-     , className =? "vlc"     --> doShift ( "Browser")
+     , className =? "mpv"     --> doShift ( "video.movie player" )
-     , className =? "Gimp"    --> doShift ( "Browser")
+     , className =? "vlc"     --> doShift ( "video.movie player" )
+     , className =? "Gimp"    --> doShift ( "graphics.gimp")
      , className =? "Gimp"    --> doFloat
      , title =? "Oracle VM VirtualBox Manager"     --> doFloat
-     , className =? "Oracle VM VirtualBox Manager" --> doShift  ( "Browser")
+     , className =? "VirtualBox Manager" --> doShift  ( "dev.virtualization" )
      , (className =? "firefox" <&&> resource =? "Dialog") --> doFloat  -- Float Firefox Dialog
      ] <+> namedScratchpadManageHook myScratchPads
 
+------------------------------------------------------------------------
+-- LOGHOOK
+------------------------------------------------------------------------
+-- sets opacity for inactive (unfocused) windows.
+myLogHook :: X ()
+myLogHook = fadeInactiveLogHook fadeAmount
+    where fadeAmount = 0.9
+
 ------------------------------------------------------------------------
 -- LAYOUTS
 ------------------------------------------------------------------------
@@ -611,7 +622,16 @@ tabs     = renamed [Replace "tabs"]
                       , activeTextColor     = "#ffffff"
                       , inactiveTextColor   = "#d0d0d0"
                       }
-          
+
+-- Theme for showWName which prints current workspace when you change workspaces.
+myShowWNameTheme :: SWNConfig
+myShowWNameTheme = def
+    { swn_font              = "xft:Sans:bold:size=60"
+    , swn_fade              = 1.0
+    , swn_bgcolor           = "#000000"
+    , swn_color             = "#FFFFFF"
+    }
+
 -- The layout hook
 myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts floats $
                mkToggle (NBFULL ?? NOBORDERS ?? EOT) myDefaultLayout
@@ -630,6 +650,8 @@ myLayoutHook = avoidStruts $ mouseResize $ windowArrange $ T.toggleLayouts float
 ------------------------------------------------------------------------
 -- SCRATCHPADS
 ------------------------------------------------------------------------
+-- Allows to have several floating scratchpads running different applications.
+-- Import Util.NamedScratchpad.  Bind a key to namedScratchpadSpawnAction.
 myScratchPads :: [NamedScratchpad]
 myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
                 , NS "mocp" spawnMocp findMocp manageMocp
@@ -652,6 +674,147 @@ myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
                  t = 0.95 -h
                  l = 0.95 -w
 
+------------------------------------------------------------------------
+-- KEYBINDINGS
+------------------------------------------------------------------------
+-- I am using the Xmonad.Util.EZConfig module which allows keybindings
+-- to be written in simpler, emacs-like format.
+myKeys :: [(String, X ())]
+myKeys =
+    -- Xmonad
+        [ ("M-C-r", spawn "xmonad --recompile")      -- Recompiles xmonad
+        , ("M-S-r", spawn "xmonad --restart")        -- Restarts xmonad
+        , ("M-S-q", io exitSuccess)                  -- Quits xmonad
+
+    -- Open my preferred terminal
+        , ("M-<Return>", spawn myTerminal)
+
+    -- Run Prompt
+        , ("M-S-<Return>", shellPrompt dtXPConfig)   -- Shell Prompt
+
+    -- Windows
+        , ("M-S-c", kill1)                           -- Kill the currently focused client
+        , ("M-S-a", killAll)                         -- Kill all windows on current workspace
+
+    -- Floating windows
+        , ("M-f", sendMessage (T.Toggle "floats"))       -- Toggles my 'floats' layout
+        , ("M-<Delete>", withFocused $ windows . W.sink) -- Push floating window back to tile
+        , ("M-S-<Delete>", sinkAll)                      -- Push ALL floating windows to tile
+
+    -- Grid Select (CTRL-g followed by a key)
+        , ("C-g g", spawnSelected' myAppGrid)                 -- grid select favorite apps
+        , ("C-g m", spawnSelected' myBookmarkGrid)            -- grid select some bookmarks
+        , ("C-g c", spawnSelected' myConfigGrid)              -- grid select useful config files
+        , ("C-g t", goToSelected $ mygridConfig myColorizer)  -- goto selected window
+        , ("C-g b", bringSelected $ mygridConfig myColorizer) -- bring selected window
+
+    -- Tree Select/
+        -- tree select actions menu
+        , ("C-t a", treeselectAction tsDefaultConfig)
+        -- tree select workspaces menu
+        , ("C-t t", TS.treeselectWorkspace tsDefaultConfig myWorkspaces W.greedyView)
+        -- tree select choose workspace to send window
+        , ("C-t g", TS.treeselectWorkspace tsDefaultConfig myWorkspaces W.shift)
+
+    -- Windows navigation
+        , ("M-m", windows W.focusMaster)     -- Move focus to the master window
+        , ("M-j", windows W.focusDown)       -- Move focus to the next window
+        , ("M-k", windows W.focusUp)         -- Move focus to the prev window
+        --, ("M-S-m", windows W.swapMaster)    -- Swap the focused window and the master window
+        , ("M-S-j", windows W.swapDown)      -- Swap focused window with next window
+        , ("M-S-k", windows W.swapUp)        -- Swap focused window with prev window
+        , ("M-<Backspace>", promote)         -- Moves focused window to master, others maintain order
+        , ("M1-S-<Tab>", rotSlavesDown)      -- Rotate all windows except master and keep focus in place
+        , ("M1-C-<Tab>", rotAllDown)         -- Rotate all the windows in the current stack
+        --, ("M-S-s", windows copyToAll)
+        , ("M-C-s", killAllOtherCopies)
+
+        -- Layouts
+        , ("M-<Tab>", sendMessage NextLayout)                -- Switch to next layout
+        , ("M-C-M1-<Up>", sendMessage Arrange)
+        , ("M-C-M1-<Down>", sendMessage DeArrange)
+        , ("M-<Space>", sendMessage (MT.Toggle NBFULL) >> sendMessage ToggleStruts) -- Toggles noborder/full
+        , ("M-S-<Space>", sendMessage ToggleStruts)         -- Toggles struts
+        , ("M-S-n", sendMessage $ MT.Toggle NOBORDERS)      -- Toggles noborder
+        , ("M-<KP_Multiply>", sendMessage (IncMasterN 1))   -- Increase number of clients in master pane
+        , ("M-<KP_Divide>", sendMessage (IncMasterN (-1)))  -- Decrease number of clients in master pane
+        , ("M-S-<KP_Multiply>", increaseLimit)              -- Increase number of windows
+        , ("M-S-<KP_Divide>", decreaseLimit)                -- Decrease number of windows
+
+        , ("M-h", sendMessage Shrink)                       -- Shrink horiz window width
+        , ("M-l", sendMessage Expand)                       -- Expand horiz window width
+        , ("M-C-j", sendMessage MirrorShrink)               -- Shrink vert window width
+        , ("M-C-k", sendMessage MirrorExpand)               -- Exoand vert window width
+
+    -- Workspaces
+        , ("M-.", nextScreen)  -- Switch focus to next monitor
+        , ("M-,", prevScreen)  -- Switch focus to prev monitor
+        , ("M-S-<KP_Add>", shiftTo Next nonNSP >> moveTo Next nonNSP)       -- Shifts focused window to next ws
+        , ("M-S-<KP_Subtract>", shiftTo Prev nonNSP >> moveTo Prev nonNSP)  -- Shifts focused window to prev ws
+
+    -- Scratchpads
+        , ("M-C-<Return>", namedScratchpadAction myScratchPads "terminal")
+        , ("M-C-c", namedScratchpadAction myScratchPads "mocp")
+
+    -- Controls for mocp music player.
+        , ("M-u p", spawn "mocp --play")
+        , ("M-u l", spawn "mocp --next")
+        , ("M-u h", spawn "mocp --previous")
+        , ("M-u <Space>", spawn "mocp --toggle-pause")
+
+    -- Emacs (CTRL-e followed by a key)
+        , ("C-e e", spawn "emacsclient -c -a ''")                           -- start emacs
+        , ("C-e a", spawn "emacsclient -c -a '' --eval '(emms)'")           -- emms emacs audio player
+        , ("C-e b", spawn "emacsclient -c -a '' --eval '(ibuffer)'")        -- list emacs buffers
+        , ("C-e d", spawn "emacsclient -c -a '' --eval '(dired nil)'")      -- dired emacs file manager
+        , ("C-e m", spawn "emacsclient -c -a '' --eval '(mu4e)'")           -- mu4e emacs email client
+        , ("C-e n", spawn "emacsclient -c -a '' --eval '(elfeed)'")         -- elfeed emacs rss client
+        , ("C-e s", spawn "emacsclient -c -a '' --eval '(eshell)'")         -- eshell within emacs
+        , ("C-e t", spawn "emacsclient -c -a '' --eval '(+vterm/here nil)'")         -- eshell within emacs
+
+    --- My Applications (Super+Alt+Key)
+        , ("M-M1-a", spawn (myTerminal ++ " -e ncpamixer"))
+        , ("M-M1-b", spawn "surf www.youtube.com/c/DistroTube/")
+        --, ("M-M1-e", spawn (myTerminal ++ " -e neomutt"))
+        , ("M-M1-e", spawn "emacsclient -c -a '' --eval '(mu4e)'")
+        , ("M-M1-f", spawn (myTerminal ++ " -e sh ./.config/vifm/scripts/vifmrun"))
+        , ("M-M1-i", spawn (myTerminal ++ " -e irssi"))
+        , ("M-M1-j", spawn (myTerminal ++ " -e joplin"))
+        , ("M-M1-l", spawn (myTerminal ++ " -e lynx -cfg=~/.lynx/lynx.cfg -lss=~/.lynx/lynx.lss gopher://distro.tube"))
+        , ("M-M1-m", spawn (myTerminal ++ " -e mocp"))
+        , ("M-M1-n", spawn "emacsclient -c -a '' --eval '(elfeed)'")
+        , ("M-M1-p", spawn (myTerminal ++ " -e pianobar"))
+        , ("M-M1-r", spawn (myTerminal ++ " -e rtv"))
+        , ("M-M1-t", spawn (myTerminal ++ " -e toot curses"))
+        , ("M-M1-w", spawn (myTerminal ++ " -e wopr report.xml"))
+        , ("M-M1-y", spawn (myTerminal ++ " -e youtube-viewer"))
+
+    -- Multimedia Keys
+        , ("<XF86AudioPlay>", spawn "cmus toggle")
+        , ("<XF86AudioPrev>", spawn "cmus prev")
+        , ("<XF86AudioNext>", spawn "cmus next")
+        -- , ("<XF86AudioMute>",   spawn "amixer set Master toggle")  -- Bug prevents it from toggling correctly in 12.04.
+        , ("<XF86AudioLowerVolume>", spawn "amixer set Master 5%- unmute")
+        , ("<XF86AudioRaiseVolume>", spawn "amixer set Master 5%+ unmute")
+        , ("<XF86HomePage>", spawn "firefox")
+        , ("<XF86Search>", safeSpawn "firefox" ["https://www.google.com/"])
+        , ("<XF86Mail>", runOrRaise "geary" (resource =? "thunderbird"))
+        , ("<XF86Calculator>", runOrRaise "gcalctool" (resource =? "gcalctool"))
+        , ("<XF86Eject>", spawn "toggleeject")
+        , ("<Print>", spawn "scrotd 0")
+        ]
+        -- Appending search engine prompts to keybindings list.
+        -- Look at "search engines" section of this config for values for "k".
+        ++ [("M-s " ++ k, S.promptSearch dtXPConfig' f) | (k,f) <- searchList ]
+        ++ [("M-S-s " ++ k, S.selectSearch f) | (k,f) <- searchList ]
+        -- Appending some extra xprompts to keybindings list.
+        -- Look at "xprompt settings" section this of config for values for "k".
+        ++ [("M-p " ++ k, f dtXPConfig') | (k,f) <- promptList ]
+        ++ [("M-p " ++ k, f dtXPConfig' g) | (k,f,g) <- promptList' ]
+        -- The following lines are needed for named scratchpads.
+          where nonNSP          = WSIs (return (\ws -> W.tag ws /= "nsp"))
+                nonEmptyNonNSP  = WSIs (return (\ws -> isJust (W.stack ws) && W.tag ws /= "nsp"))
+
 ------------------------------------------------------------------------
 -- MAIN
 ------------------------------------------------------------------------
@@ -666,31 +829,31 @@ main = do
         { manageHook = ( isFullscreen --> doFullFloat ) <+> myManageHook <+> manageDocks
         -- Run xmonad commands from command line with "xmonadctl command". Commands include:
         -- shrink, expand, next-layout, default-layout, restart-wm, xterm, kill, refresh, run,
-        -- focus-up, focus-down, swap-up, swap-down, swap-master, sink, quit-wm. You can run 
+        -- focus-up, focus-down, swap-up, swap-down, swap-master, sink, quit-wm. You can run
         -- "xmonadctl 0" to generate full list of commands written to ~/.xsession-errors.
-        , handleEventHook    = serverModeEventHookCmd 
+        , handleEventHook    = serverModeEventHookCmd
-                               <+> serverModeEventHook 
+                               <+> serverModeEventHook
                                <+> serverModeEventHookF "XMONAD_PRINT" (io . putStrLn)
                                <+> docksEventHook
         , modMask            = myModMask
         , terminal           = myTerminal
         , startupHook        = myStartupHook
-        , layoutHook         = myLayoutHook 
+        , layoutHook         = showWName' myShowWNameTheme myLayoutHook
         , workspaces         = TS.toWorkspaces myWorkspaces
         , borderWidth        = myBorderWidth
         , normalBorderColor  = myNormColor
         , focusedBorderColor = myFocusColor
-        , logHook = dynamicLogWithPP $ xmobarPP
+        , logHook = workspaceHistoryHook <+> myLogHook <+> dynamicLogWithPP xmobarPP
-                       { ppOutput = \x -> hPutStrLn xmproc0 x  >> hPutStrLn xmproc1 x  >> hPutStrLn xmproc2 x
+                        { ppOutput = \x -> hPutStrLn xmproc0 x  >> hPutStrLn xmproc1 x  >> hPutStrLn xmproc2 x
-                       , ppCurrent = xmobarColor "#c3e88d" "" . wrap "[" "]" -- Current workspace in xmobar
+                        , ppCurrent = xmobarColor "#c3e88d" "" . wrap "[" "]" -- Current workspace in xmobar
-                       , ppVisible = xmobarColor "#c3e88d" ""                -- Visible but not current workspace
+                        , ppVisible = xmobarColor "#c3e88d" ""                -- Visible but not current workspace
-                       , ppHidden = xmobarColor "#82AAFF" "" . wrap "*" ""   -- Hidden workspaces in xmobar
+                        , ppHidden = xmobarColor "#82AAFF" "" . wrap "*" ""   -- Hidden workspaces in xmobar
-                       , ppHiddenNoWindows = xmobarColor "#F07178" ""        -- Hidden workspaces (no windows)
+                        -- , ppHiddenNoWindows = xmobarColor "#F07178" ""        -- Hidden workspaces (no windows)
-                       , ppTitle = xmobarColor "#d0d0d0" "" . shorten 60     -- Title of active window in xmobar
+                        , ppHiddenNoWindows= \( _ ) -> ""       -- Only shows visible workspaces. Useful for TreeSelect.
-                       , ppSep =  "<fc=#666666> | </fc>"                     -- Separators in xmobar
+                        , ppTitle = xmobarColor "#d0d0d0" "" . shorten 60     -- Title of active window in xmobar
-                       , ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!"  -- Urgent workspace
+                        , ppSep =  "<fc=#666666> | </fc>"                     -- Separators in xmobar
-                       , ppExtras  = [windowCount]                           -- # of windows current workspace
+                        , ppUrgent = xmobarColor "#C45500" "" . wrap "!" "!"  -- Urgent workspace
-                       , ppOrder  = \(ws:l:t:ex) -> [ws,l]++ex++[t]
+                        , ppExtras  = [windowCount]                           -- # of windows current workspace
-                       }
+                        , ppOrder  = \(ws:l:t:ex) -> [ws,l]++ex++[t]
-        } `additionalKeysP` myKeys 
+                        }
-
+        } `additionalKeysP` myKeys