aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>2020-11-27 20:29:12 +0530
committerVidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>2020-11-27 20:29:12 +0530
commit564e37cdcd41a23fe0e716f1198c0c79b3f5fb8a (patch)
treeceab90af963f06d0bf05d44b2703f56110c9f1b2
parent1ed757abb607afb0cbbbf9c5f3cb522c925a0022 (diff)
somewhat added lemonbar support
-rw-r--r--xmonad.hs25
1 files changed, 19 insertions, 6 deletions
diff --git a/xmonad.hs b/xmonad.hs
index db634cc3..319f61f5 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -30,6 +30,7 @@ import XMonad.Layout.Tabbed
-- hooks
import XMonad.Hooks.SetWMName
import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.DynamicLog
-- utilities
import XMonad.Util.SpawnOnce
@@ -46,7 +47,7 @@ myStartupHook = do
-- spawnOnce "firefox &"
spawnOnce "sxhkd &"
spawnOnce "betterlockscreen -l -t 'Welcome, Vidhu Kant!'"
- setWMName "AnimeTitsWM"
+ setWMName "AnimeTits&ThighsWM"
setDefaultCursor xC_left_ptr
@@ -64,6 +65,9 @@ myModMask = mod4Mask
myTerminal :: String
myTerminal = "st"
+myDmenu :: String
+myDmenu = "run_dmenu"
+
myBrowser :: String
myBrowser = "firefox"
@@ -73,7 +77,7 @@ myBrowser = "firefox"
-- wm variables
-nBorder = "#3804f4" -- "#bf00ff"
+nBorder = "#1E1F29" -- "#3804f4" -- "#bf00ff"
fBorder = "#FB027F"
myBorderWidth = 2
@@ -82,12 +86,13 @@ sGap = 3 -- screen gap
wGap = 1 -- window gap
myExtraWorkspaces = [(xK_0, "10")] -- ,(xK_minus, "tmp"),(xK_equal, "swap")]
-myWorkspaces = ["1","2","3","4","5","6","7","8", "9"] ++ (map snd myExtraWorkspaces)
+myWorkspaces = ["δΈ€","2","3","4","5","6","7","8", "9"] ++ (map snd myExtraWorkspaces)
-- keybindings
myKeys = [
- ((mod4Mask, xK_Return), spawn myTerminal)
+ ((mod4Mask, xK_Return), spawn (myTerminal ++ " -e fish"))
+ , ((mod1Mask, xK_p), spawn "/home/zt/.config/scripts/run_dmenu")
, ((mod1Mask, xK_w), kill1)
, ((mod1Mask .|. shiftMask, xK_k), kill1)
, ((mod1Mask, xK_o), withFocused $ windows . W.sink) -- unfloat windows
@@ -180,9 +185,17 @@ myLayouts = avoidStruts $ mouseResize $ windowNavigation $ myGap $ emptyBSP |||
myLayoutHook = myLayouts
+myLemonbarPP = def {ppCurrent = wrap "" ""
+ , ppHidden = wrap "" ""
+ , ppHiddenNoWindows = wrap "" ""
+ , ppTitle = wrap "" "" . shorten 60
+ , ppSep = " "
+ , ppUrgent = wrap "" ""
+ , ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t]
+ }
main = do
- xmproc <- spawnPipe "xmobar -b -x 0 /home/zt/.xmonad/xmobarrc"
+ 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"
xmonad $ docks def
{
terminal = myTerminal,
@@ -196,7 +209,7 @@ main = do
layoutHook = myLayoutHook,
-- manageHook = myManageHook,
-- handleEventHook = myEventHook,
- -- logHook = wallpaperSetterHook,
+ logHook = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn bar x },
startupHook = myStartupHook
} `additionalKeys` myKeys