rename workspaces to tokipona

1 files changed, 5 insertions, 3 deletions

diff --git a/xmonad.hs b/xmonad.hs
index e5a9402..e290fe3 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -102,6 +102,7 @@ myXmobarPP = def
            , ppCurrent         = xmobarColor (col_fg_alt def) "" . sitelen
            , ppHidden          = xmobarColor (col_fg     def) "" . sitelen
            , ppHiddenNoWindows = xmobarColor (col_bg_alt def) "" . sitelen
+	   , ppLayout          = sitelen
            } where
                sitelen = xmobarFont 3
 
@@ -129,15 +130,16 @@ myLayout = windowNavigation
          $ smartBorders
          $ tiled ||| threeCol
          where
-            tiled    = renamed [Replace "lawa"]
+            tiled    = renamed [Replace "\xe624"] -- lawa
                      $ addTabs shrinkText myTabTheme
                      $ subLayout [] (Simplest)
                      $ spacingWithEdge space $ ResizableTall nmaster delta ratio []
-            threeCol = renamed [Replace "supa"]
+            threeCol = renamed [Replace "\xe665"] -- supa
                      $ addTabs shrinkText myTabTheme
                      $ subLayout [] (Simplest)
                      $ spacingWithEdge space $ ResizableThreeColMid nmaster delta ratio []
-            full     = renamed [Replace "suli"] $ noBorders Full
+            full     = renamed [Replace "\xe663"] -- suli
+            $ noBorders Full
             nmaster  = 1
             ratio    = 1/2
             delta    = 3/100