31 lines
767 B
Haskell
31 lines
767 B
Haskell
import Xmobar
|
|
import System.Environment (getEnv)
|
|
import System.IO.Unsafe (unsafeDupablePerformIO)
|
|
|
|
-- | Candybar
|
|
config :: Config
|
|
config = defaultConfig
|
|
-- general settings
|
|
{ font = "Fira Code Semi Bold 9"
|
|
, additionalFonts = [ ]
|
|
, bgColor = "#282828"
|
|
, fgColor = "#d4be98"
|
|
, position = Static { xpos = 1920, ypos = 0, width = 2560, height = 24 }
|
|
, iconRoot = homeDir <> "/.config/xmonad/icons"
|
|
-- commands to run
|
|
, commands =
|
|
[ Run $ XMonadLog
|
|
]
|
|
-- format our bar
|
|
, sepChar = "%"
|
|
, alignSep = "}{"
|
|
, template = "\59255 %XMonadLog%"
|
|
}
|
|
|
|
-- | Get home directory
|
|
homeDir :: String
|
|
homeDir = unsafeDupablePerformIO (getEnv "HOME")
|
|
|
|
main :: IO ()
|
|
main = configFromArgs config >>= xmobar
|