primrose/.files
1
0
Fork 0
mirror of https://codeberg.org/leana8959/.files.git synced 2025-12-06 14:49:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

xmonad: use greek alphabets for workspace names

Browse source
This commit is contained in:
Primrose 2025-03-21 13:04:24 +01:00
parent 5ef4dce1b3
commit 873b7f6e9c
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
3 changed files with 45 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
.config/xmonad/xmonad.hs
View file

@ -32,12 +32,13 @@ import XMonad.Util.Hacks (javaHack)
import XMonad.StackSet qualified as W
import Data.Map.Strict as M
import Data.Map.Strict qualified as M
import Graphics.X11.ExtraTypes.XF86
import System.Posix.Env (putEnv)
import Leanamonad.Layouts.ReflectMsg
import Leanamonad.GreekChar
@ -223,10 +224,7 @@ superMask = mod4Mask
altMask = mod1Mask
myWorkspaces :: [String]
myWorkspaces =
[ "CODE", "CHAT", "REC", "UNIV"
, "PERS", "WEB" , "YT", "ADM"
]
myWorkspaces = take 8 . fmap (:[]) $ greekLower
centeredFloat, smallFloat, fullFloat :: W.RationalRect
centeredFloat = W.RationalRect (1/9) (1/9) (7/9) (7/9)
@ -242,7 +240,7 @@ xmobar = \case
myPrettyPrinter =
filterOutWsPP [scratchpadWorkspaceTag]
$ def
{ ppCurrent = xmobarColor "#FFFFFF" "" . wrap "[" "]"
{ ppCurrent = xmobarColor "#FFFFFF" "" . fmap toUpper
, ppHiddenNoWindows = xmobarColor "#9c9c9c" ""
, ppSep = " | "
}