diff options
| author | Ryan Kavanagh <rak@debian.org> | 2012-07-19 09:20:44 -0400 |
|---|---|---|
| committer | Ryan Kavanagh <rak@debian.org> | 2012-07-19 09:20:44 -0400 |
| commit | a3e32cc25d2e67e3a9a847d24dd185250db88e97 (patch) | |
| tree | 0a443db635e6af82e6f4928a2eac36e38f86bc1c | |
| parent | Build xmonad with -O2 (diff) | |
Updated my xmonad theme to orange/blue to match dzen
| -rw-r--r-- | .xmonad/xmonad.hs | 41 |
1 files changed, 25 insertions, 16 deletions
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index a26d3f6..3c3b963 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -29,7 +29,7 @@ import XMonad.Layout.PerWorkspace import XMonad.Layout.Reflect import XMonad.Layout.ResizableTile import XMonad.Layout.SimpleDecoration -import XMonad.Layout.Tabbed +import XMonad.Layout.Tabbed (tabbed) import XMonad.Layout.ThreeColumns import XMonad.Layout.ToggleLayouts import XMonad.Layout.TwoPane @@ -85,6 +85,7 @@ colorBlue = "#008dd5" colorYellow = "#fee100" colorWhite = "#cfbfad" colorBrightGreen = "#00FF00" +colorRed = "#FF0000" colorNormalBorder = "#1c2636" colorFocusedBorder = "#2797d8" @@ -99,20 +100,28 @@ statusBarCmd = "dzen2" ++ " -fn '" ++ barXFont ++ "'" ++ " -w 808 -x 114 -y 0 -ta l -e ''" - --- Color theme for the window decorations -myTheme = defaultTheme { - activeColor = blue - , inactiveColor = grey - , activeBorderColor = blue - , inactiveBorderColor = grey - , activeTextColor = "white" - , inactiveTextColor = "black" - , decoHeight = 12 - } - where - blue = "#4a708b" -- same color used by gnome pager - grey = "#cccccc" +newTheme :: ThemeInfo +newTheme = TI "" "" "" defaultTheme + +rakTheme :: ThemeInfo +rakTheme = + newTheme { themeName = "rakTheme" + , themeAuthor = "Ryan Kavanagh" + , themeDescription = "Small decorations: orange and blue theme" + , theme = defaultTheme { activeColor = colorBlack + , inactiveColor = colorBlack + , activeBorderColor = colorOrange + , inactiveBorderColor = colorBlue + , activeTextColor = colorOrange + , inactiveTextColor = colorBlue + , urgentColor = colorRed + , urgentTextColor = colorYellow + , decoHeight = 12 + , fontName = "xft: inconsolata-07" + } + } + +myTheme = theme rakTheme myXPConfig = defaultXPConfig { fgColor = "white" @@ -126,7 +135,7 @@ myXPConfig = defaultXPConfig { myLayout = smartBorders $ toggleLayouts Full perWS where -- Per workspace layout selection. - perWS = onWorkspace "web" (noTitles $ (simpleTabbed ||| mySplit ||| myWide)) $ + perWS = onWorkspace "web" (noTitles $ (tabbed shrinkText myTheme ||| mySplit ||| myWide)) $ onWorkspace "term" (noTitles $ (Full ||| myTall2 ||| customRyan)) $ onWorkspace "chatter" (noTitles $ myChat gridFirst) $ onWorkspace "code" (noTitles $ codeFirst) $ |