diff options
Diffstat (limited to 'src/Xmobar/App/Defaults.hs')
-rw-r--r-- | src/Xmobar/App/Defaults.hs | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/src/Xmobar/App/Defaults.hs b/src/Xmobar/App/Defaults.hs deleted file mode 100644 index ac3146c..0000000 --- a/src/Xmobar/App/Defaults.hs +++ /dev/null @@ -1,71 +0,0 @@ ------------------------------------------------------------------------------- --- | --- Module: Xmobar.Config.Defaults --- Copyright: (c) 2018 Jose Antonio Ortega Ruiz --- License: BSD3-style (see LICENSE) --- --- Maintainer: jao@gnu.org --- Stability: unstable --- Portability: portable --- Created: Sun Nov 25, 2018 22:26 --- --- --- Default values for Xmobar configurations --- ------------------------------------------------------------------------------- - - -module Xmobar.App.Defaults (defaultConfig, getXdgConfigFile) where - -import System.Environment -import System.Directory (getHomeDirectory) -import System.FilePath ((</>)) - -import Xmobar.Plugins.Date -import Xmobar.Plugins.StdinReader -import Xmobar.Config.Types -import Xmobar.Run.Runnable - --- | The default configuration values -defaultConfig :: Config -defaultConfig = - Config { font = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*" - , additionalFonts = [] - , wmClass = "xmobar" - , wmName = "xmobar" - , bgColor = "#000000" - , fgColor = "#BFBFBF" - , alpha = 255 - , position = Top - , border = NoBorder - , borderColor = "#BFBFBF" - , borderWidth = 1 - , textOffset = -1 - , iconOffset = -1 - , textOffsets = [] - , hideOnStart = False - , lowerOnStart = True - , persistent = False - , allDesktops = True - , overrideRedirect = True - , pickBroadest = False - , iconRoot = "." - , commands = [ Run $ Date "%a %b %_d %Y * %H:%M:%S" "theDate" 10 - , Run StdinReader] - , sepChar = "%" - , alignSep = "}{" - , template = "%StdinReader% }{ " ++ - "<fc=#00FF00>%uname%</fc> * <fc=#FF0000>%theDate%</fc>" - } - -xdgConfigDir :: IO String -xdgConfigDir = do env <- getEnvironment - case lookup "XDG_CONFIG_HOME" env of - Just val -> return val - Nothing -> fmap (</> ".config") getHomeDirectory - -xmobarConfigDir :: IO FilePath -xmobarConfigDir = fmap (</> "xmobar") xdgConfigDir - -getXdgConfigFile :: IO FilePath -getXdgConfigFile = fmap (</> "xmobarrc") xmobarConfigDir |