-- https://projects.haskell.org/xmobar/ -- uses font awesome -- vim:se syntax=haskell: Config { font = "xft:Lato:weight=bold:pixelsize=12:antialias=true:hinting=true" , additionalFonts = [ "xft:Font Awesome 5 Free Solid:pixelsize=12" , "xft:Font Awesome 5 Brands:pixelsize=14" -- sitelen pona pona by jackhumbert --, "xft:sitelen\-pona:pixelsize=20:antialias=true:hinting=true" -- linja pona , "xft:linja pona:pixelsize=22:antialias=true:hinting=true" ] , bgColor = "#111111" , fgColor = "#ccbbcc" , position = TopSize C 100 24 , lowerOnStart = True , hideOnStart = False , persistent = True , iconRoot = ".xmonad/xpm/" , commands = [ Run UnsafeStdinReader , Run Com "uname" ["-r"] "" 0 , Run Uptime ["-t" -- normie --, "\xf017 uptime: d" -- sitelen pona pona by jackhumbert --, "\xee6b\xee64\xee3d" -- linja pona , "\xe66b\xe664\xe63d" -- tenpo suno nanpa ] 60 , Run Cpu ["-t" -- normie --, "\xf108cpu: %" -- sitelen pona pona by jackhumbert --, "\xee24\xee4d\xee0e\xee3d: %" -- linja pona , "\xe624\xe730\xe60e\xe63d: %" -- lawa pi ilo sona , "-H", "50", "--high", "red" ] 20 , Run Memory ["-t" -- normie --, "\xf538 ram: M (%)" -- sitelen pona pona by jackhumbert --, "\xee53\xee49: M (%)" -- linja pona , "\xe653\xf174: M (%)" -- poki pali ] 20 , Run DiskU [("/home" -- normie --, "\xf0a0 hdd: free") -- sitelen pona pona by jackhumbert --, "\xee53\xee08: ") -- linja pona , "\xe653\xf109: ") -- poki awen ] [] 60 , Run Kbd -- normie --[ ("us", "\xf11c EN") --, ("ru", "\xf11c RU") --] -- sitelen pona pona by jackhumbert --[ ("us", "\xee6c\xee4d\xee0e\xee60 inli") --, ("ru", "\xee6c\xee4d\xee0e\xee60 losi") --] -- toki pi ilo sitelen -- linja pona [ ("us", "\xe66c\xe730\xe619\xe660 [INLI]") , ("ru", "\xe66c\xe730\xe619\xe660 [LOSI]") ] -- toki pi ilo sitelen , Run Date -- normie --"\xf017 %d %b %Y %R" -- sitelen pona pona by jackhumbert --"\xee6b %d-%m-%Y %R" -- linja pona "\xe66b %d-%m-%Y %R" -- tenpo "date" 50 , Run Network "wg0" ["-t" -- normie --, "\xf6d5" -- sitelen pona pona by jackhumbert --, "\xee01" -- linja pona , "\xe601" -- akesi ] 20 , Run Com ".xmonad/xmobar/trayer-padding-icon.sh" ["panel"] "trayerpad" 10 , Run Com ".xmonad/xmobar/separator.sh" [] "s" 0 ] , sepChar = "%" , alignSep = "}{" -- ... }{  ... -- normie -- ... }{  linu ... -- sitelen pona pona by jackhumbert -- ... }{  [_L_IN_U] ... -- linja pona , template = " %s% %UnsafeStdinReader% }{  [LINU] %uname% %s% %uptime% %s% %cpu% %s% %memory% %s% %disku% %s% %kbd% %s% %date% %s% %wg0% %trayerpad%" }