aboutsummaryrefslogtreecommitdiff
path: root/XMonad/xmonad.hs
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/xmonad.hs')
-rw-r--r--XMonad/xmonad.hs30
1 files changed, 18 insertions, 12 deletions
diff --git a/XMonad/xmonad.hs b/XMonad/xmonad.hs
index 6f5f149d..a095e079 100644
--- a/XMonad/xmonad.hs
+++ b/XMonad/xmonad.hs
@@ -2,6 +2,11 @@ import XMonad
import qualified XMonad.StackSet as W
-- import XMonad hiding ((|||))
+-- for bar shit
+-- import Data.Time.Clock
+import qualified XMonad.Util.ExtensibleState as XS
+import XMonad.Util.Timer
+
-- actions
import XMonad.Actions.CycleWS (moveTo, shiftTo, WSType(..), nextScreen, prevScreen)
import XMonad.Actions.CopyWindow
@@ -52,8 +57,12 @@ myStartupHook = do
setDefaultCursor xC_left_ptr
+-- bar actions
+windowCount :: X (Maybe String)
+windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset
+
-- defaults
@@ -75,10 +84,6 @@ myBrowser = "firefox"
-- myEditor :: String
-- myEditor = "vim"
-windowCount :: X (Maybe String)
-windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset
-
-
-- wm variables
nBorder = "#1E1F29" -- "#3804f4" -- "#bf00ff"
@@ -86,8 +91,8 @@ fBorder = "#FB027F"
myBorderWidth = 2
-sGap = 3 -- screen gap
-wGap = 1 -- window gap
+sGap = 0 -- screen gap
+wGap = 0 -- window gap
myExtraWorkspaces = [(xK_0, " 十 ")] -- ,(xK_minus, "tmp"),(xK_equal, "swap")]
myWorkspaces = [" 一 "," 二 "," 三 "," 四 "," 五 "," 六 "," 七 "," 八 ", " 九 "] ++ (map snd myExtraWorkspaces)
@@ -181,6 +186,7 @@ myKeys = [
]
+
-- layouts
myGap = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True
@@ -192,17 +198,17 @@ myLayoutHook = myLayouts
myLemonbarPP = def {ppCurrent = wrap "%{F#6c71c4}%{B#d33682}%{F-}" "%{F#d33682}%{B-}%{F-}"
, ppWsSep = " "
, ppHidden = wrap "%{B#268bd2}" "%{B-}"
- , ppHiddenNoWindows = wrap "%{F#02fc45}" " %{F-}"
- , ppTitle = wrap "%{B#6c71c4}%{F#f0f0f0} " " %{B-}" . shorten 90
+ , ppHiddenNoWindows = wrap "%{F#02fc45}" "%{F-}"
+ , ppTitle = wrap " %{B#6c71c4}%{F#f0f0f0} " " %{B-}" . shorten 90
, ppUrgent = wrap "%{B#9cfc02} " " %{B-}%{F-}"
- , ppLayout = wrap "%{r}%{B#99B1D5}%{F#232627} " " %{B-} "
+ , ppLayout = wrap "%{r}%{B#99B1D5}%{F#232627} " " %{B-} "
, ppSep = " "
, ppExtras = [windowCount]
- , ppOrder = \(ws:l:t:ex) -> [ws]++[t]++[l]++["%{B#50FA7B}%{F#232627} WIN: "]++ex++[" %{B-}%{F-} "]
+ , ppOrder = \(ws:l:t:ex) -> [ws]++[t]++[l]++["%{B#50FA7B}%{F#232627} WIN:"]++ex++["%{B-}%{F-} "]
}
main = do
- bar <- spawnPipe "lemonbar -g 1366x21 -b -B '#171520' -p -F '#ffffff' -f 'Source Han Sans JP:size=10' -o -3 -f 'RobotoMono Nerd Font:style=Regular:size=15' -f -n 'mainbar' -o 0"
+ bar <- spawnPipe "lemonbar -b -g 1366x21 -B '#171520' -F '#ffffff' -f 'Source Han Sans JP:size=10' -o -3 -f 'RobotoMono Nerd Font:style=Regular:size=15' -f -n 'notXMobar' -o 0"
xmonad $ docks def
{
terminal = myTerminal,
@@ -216,7 +222,7 @@ main = do
layoutHook = myLayoutHook,
-- manageHook = myManageHook,
-- handleEventHook = myEventHook,
- logHook = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn bar x },
+ logHook = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn bar x},
startupHook = myStartupHook
} `additionalKeys` myKeys