1import Xmobar
 2
 3data Separator = Sep deriving (Read, Show)
 4
 5instance Exec Separator where
 6    alias Sep = "s"
 7    run   Sep = return " <fc=#223333>|</fc> "
 8
 9config :: Config
10config = defaultConfig
11       { font = "Lato 14px"
12       , additionalFonts = ["linja pona, 22px"]
13       , bgColor = "#111111"
14       , fgColor = "#ccbbcc"
15       , position = Static { xpos = 8, ypos = 8, width = 1920-8*2, height = 24 }
16       , lowerOnStart = True
17       , hideOnStart = False
18       , persistent = True
19       , iconRoot = ".config/xmobar/xpm/"
20       , commands = [ Run $ Com "uname" ["-r"] "kern" 0
21                    , Run $ Uptime
22                        -- tenpo suno nanpa
23                        ["-t"
24                        , "<fn=1>\xe66b\xe664\xe63d</fn><days>"
25                        ] 60
26                    , Run $ Cpu
27                        -- lawa pi ilo sona
28                        ["-t"
29                        , "<fn=1>\xe624\xe730\xe60e\xe63d</fn>: <total>%"
30                        , "-H", "50", "--high", "#ffaaaa"
31                        ] 20
32                    , Run $ Memory
33                        -- poki pali
34                        ["-t"
35                        , "<fn=1>\xe653\xf174</fn>: <used>M (<usedratio>%)"
36                        ] 20
37                    , Run $ DiskU
38                        -- poki awen
39                        [("/home"
40                        , "<fn=1>\xe653\xf109</fn>: <free>")
41                        ] [] 60
42                    , Run $ Kbd
43                        -- toki pi ilo sitelen
44                        [ ("us", "<fn=1>\xe66c\xe730\xe619\xe660 [INLI]</fn>")
45                        , ("ru", "<fn=1>\xe66c\xe730\xe619\xe660 [LOSI]</fn>")
46                        ]
47                    , Run $ Date
48                        "<fn=1>\xe66b</fn> %d-%m-%Y %R"
49                        -- tenpo
50                        "date" 50
51                    , Run $ Network "wg0"
52                        ["-t"
53                        -- akesi
54                        , "<fn=1>\xe601</fn>"
55                        ] 20
56                    , Run Sep
57                    , Run UnsafeXMonadLog
58                    ]
59       , sepChar = "%"
60       , alignSep = "}{"
61       -- waso
62       , template = " <action=`dmenu_run`><icon=la_ninpre.xpm/></action>\
63                    \%UnsafeXMonadLog%}{\
64                    \<fn=1>\xe674 [LINU]</fn> %kern%%s%\
65                    \%uptime%%s%\
66                    \<action=`alacritty -e htop`>%cpu%</action>%s%\
67                    \<action=`alacritty -e htop`>%memory%</action>%s%\
68                    \%disku%%s%\
69                    \%kbd%%s%\
70                    \<action=`alacritty -e calcurse`>%date%</action>%s%\
71                    \%wg0%%s%"
72       }
73
74main :: IO ()
75main = xmobar config