From 564e37cdcd41a23fe0e716f1198c0c79b3f5fb8a Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>
Date: Fri, 27 Nov 2020 20:29:12 +0530
Subject: somewhat added lemonbar support

---
 xmonad.hs | 25 +++++++++++++++++++------
 1 file 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  
 
-- 
cgit v1.2.3