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 | 
