diff options
| -rw-r--r-- | .config/XMonad/lib/Defaults.hs | 42 | ||||
| -rw-r--r-- | .config/XMonad/lib/Hooks.hs | 42 | ||||
| -rw-r--r-- | .config/XMonad/lib/Keybindings.hs | 170 | ||||
| -rw-r--r-- | .config/XMonad/lib/Scratchpads.hs | 60 | ||||
| -rw-r--r-- | .config/XMonad/xmonad.hs | 357 | ||||
| -rw-r--r-- | .config/XMonad/xmonad_old.hs | 433 |
6 files changed, 765 insertions, 339 deletions
diff --git a/.config/XMonad/lib/Defaults.hs b/.config/XMonad/lib/Defaults.hs new file mode 100644 index 0000000..34d81e9 --- /dev/null +++ b/.config/XMonad/lib/Defaults.hs @@ -0,0 +1,42 @@ +module Defaults where + +import XMonad +import XMonad.Layout.Spacing +import XMonad.Layout.Tabbed + +-- variables +myModMask = mod4Mask +altMask = mod1Mask +myLockscreen = "notify-send 'to be set up!' 'to be set up!'" +myColorPicker = "colorpicker --short --one-shot --preview | xsel -b" +myFont = "xft:Sauce Code Pro:style=Regular:size=14" +volUp = "pamixer -i 5" +volDown = "pamixer -d 5" +volMute = "pamixer -t" +backlightUp = "brightnessctl s +5" +backlightDown = "brightnessctl s 5-" +screenshot = "flameshot screen" +fullScreenshot = "flameshot full" +customScreenshot = "flameshot gui" + +-- workspaces +myExtraWorkspaces = [(xK_0, "十")] -- , (xK_comma, " 十一 "), (xK_period, " 十二 "), (xK_slash, " 十三 ")] +myWorkspaces = ["一", "二", "三", "四", "五", "六", "七", "八", "九"] ++ map snd myExtraWorkspaces + +-- screen gaps +sGap = 4 +wGap = 6 + +myGap = spacingRaw True (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True +myGap' = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True + +myTabTheme = def { + fontName = myFont + , activeColor = "#755999" + , inactiveColor = "#282c35" + , activeBorderColor = "#755999" + , inactiveBorderColor = "#313846" + , activeTextColor = "#FFFFFF" + , inactiveTextColor = "#d0d0d0" + , decoHeight = 20 + } diff --git a/.config/XMonad/lib/Hooks.hs b/.config/XMonad/lib/Hooks.hs new file mode 100644 index 0000000..858737d --- /dev/null +++ b/.config/XMonad/lib/Hooks.hs @@ -0,0 +1,42 @@ +module Hooks where + +import XMonad + +import XMonad.Layout.Spacing +import XMonad.Layout.WindowNavigation as WN +import XMonad.Layout.Maximize +import XMonad.Layout.NoBorders + +import XMonad.Layout.BinarySpacePartition as BSP +import XMonad.Layout.Grid +import XMonad.Layout.Tabbed + +import XMonad.Hooks.SetWMName +import XMonad.Hooks.ManageDocks + +import XMonad.Util.SpawnOnce +import XMonad.Util.Cursor +import XMonad.Util.NamedScratchpad + +import Defaults +import Scratchpads + +myManageHook = namedScratchpadManageHook myScratchpads + <+> manageDocks <+> composeAll [ + className =? "discord" --> doShift ( myWorkspaces !! 9 ) + , className =? "vlc" --> doShift ( myWorkspaces !! 6 ) + ] + +myLayoutHook = avoidStruts $ maximize $ windowNavigation $ smartBorders $ myGap $ ( + emptyBSP ||| tabbed shrinkText myTabTheme ||| Grid + ) + +myStartupHook = do + spawnOnce "xmodmap /home/zt/.Xmodmap" + spawnOnce "picom" + spawnOnce "dunst" + spawnOnce "polystart" + spawnOnce "nitrogen --restore" + spawnOnce "cbatticon" + setWMName "LG3D" + setDefaultCursor xC_left_ptr diff --git a/.config/XMonad/lib/Keybindings.hs b/.config/XMonad/lib/Keybindings.hs new file mode 100644 index 0000000..b92fc97 --- /dev/null +++ b/.config/XMonad/lib/Keybindings.hs @@ -0,0 +1,170 @@ +module Keybindings where + +import XMonad +import qualified XMonad.StackSet as W +import XMonad.ManageHook +import System.Exit +import System.IO + +-- data +import Data.Tree +import qualified Data.Map as M + +-- actions +import XMonad.Actions.CopyWindow +import XMonad.Actions.CycleWS +import XMonad.Actions.GridSelect +import XMonad.Actions.SwapWorkspaces +import qualified XMonad.Actions.TreeSelect as TS + +-- layout modifiers +import XMonad.Layout.Spacing +import XMonad.Layout.WindowNavigation as WN +import XMonad.Layout.Maximize +import XMonad.Layout.Fullscreen +import XMonad.Layout.NoBorders + +-- Layouts +import XMonad.Layout.BinarySpacePartition as BSP +import XMonad.Layout.Grid +import XMonad.Layout.Tabbed + +-- hooks +import XMonad.Hooks.SetWMName +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.EwmhDesktops + +import XMonad.Hooks.DynamicLog +-- DynamicLog replacement(s) +-- import XMonad.Hooks.StatusBar +-- import XMonad.Hooks.StatusBar.PP + +-- utilities +import XMonad.Util.Run +import XMonad.Util.SpawnOnce +import XMonad.Util.EZConfig +import XMonad.Util.Cursor +import XMonad.Util.NamedScratchpad + +import Defaults +import Scratchpads + + +myMouseKeybindings = [ + ((myModMask, 4), \w -> prevWS) + , ((myModMask, 5), \w -> nextWS) + ] + +myKeybindings = [ + ((myModMask, xK_Return), spawn ("open_terminal")) + , ((myModMask .|. shiftMask, xK_q), kill1) + + -- volume keys , ((myModMask, xK_equal), spawn volUp) + , ((myModMask, xK_minus), spawn volDown) + , ((myModMask, xK_BackSpace), spawn volMute) + + -- brightness keys + , ((myModMask .|. shiftMask, xK_equal), spawn backlightUp) + , ((myModMask .|. shiftMask, xK_minus), spawn backlightDown) + + -- modify gaps on runtime + , ((myModMask, xK_F2), incWindowSpacing 1) + , ((myModMask, xK_F1), decWindowSpacing 1) + , ((myModMask .|. shiftMask, xK_F2), incScreenSpacing 1) + , ((myModMask .|. shiftMask, xK_F1), decScreenSpacing 1) + + -- view prev/next workspaces + , ((myModMask .|. shiftMask, xK_Tab), prevWS) + , ((myModMask, xK_Tab), nextWS) + , ((myModMask, xK_semicolon), prevWS) + , ((myModMask, xK_apostrophe), nextWS) + , ((altMask, xK_h), prevWS) + , ((altMask, xK_l), nextWS) + + -- move to prev/next workspaces + , ((altMask .|. shiftMask, xK_h), shiftToPrev >> prevWS) + , ((altMask .|. shiftMask, xK_l), shiftToNext >> nextWS) + , ((myModMask .|. shiftMask, xK_semicolon), shiftToPrev >> prevWS) + , ((myModMask .|. shiftMask, xK_apostrophe), shiftToNext >> nextWS) + + -- focus previous/next monitor + , ((myModMask, xK_bracketleft), prevScreen) + , ((myModMask, xK_bracketright), nextScreen) + + -- move window to previous/next monitor + , ((myModMask .|. shiftMask, xK_bracketleft), shiftPrevScreen >> prevScreen) + , ((myModMask .|. shiftMask, xK_bracketright), shiftNextScreen >> nextScreen) + + -- swap different screens + , ((myModMask .|. controlMask, xK_bracketleft), swapPrevScreen) + , ((myModMask .|. controlMask, xK_bracketright), swapNextScreen) + + , ((myModMask, xK_a), sendMessage ToggleStruts) -- toggle both bars + , ((myModMask, xK_f), withFocused (sendMessage . maximizeRestore)) -- toggle maximize + , ((myModMask .|. shiftMask, xK_f), withFocused $ windows . W.sink) -- unfloat windows + + -- cycle through windows + , ((altMask, xK_j), windows W.focusDown) + , ((altMask, xK_k), windows W.focusUp) + + -- 2D navigation + , ((myModMask, xK_l), sendMessage $ Go R) + , ((myModMask, xK_h), sendMessage $ Go L) + , ((myModMask, xK_k), sendMessage $ Go U) + , ((myModMask, xK_j), sendMessage $ Go D) + + -- swap windows + , ((myModMask .|. shiftMask, xK_l), sendMessage $ WN.Swap R) + , ((myModMask .|. shiftMask, xK_h), sendMessage $ WN.Swap L) + , ((myModMask .|. shiftMask, xK_k), sendMessage $ WN.Swap U) + , ((myModMask .|. shiftMask, xK_j), sendMessage $ WN.Swap D) + + -- resize + , ((myModMask .|. mod1Mask, xK_l ), sendMessage $ ExpandTowards R) + , ((myModMask .|. mod1Mask, xK_h ), sendMessage $ ExpandTowards L) + , ((myModMask .|. mod1Mask, xK_j ), sendMessage $ ExpandTowards D) + , ((myModMask .|. mod1Mask, xK_k ), sendMessage $ ExpandTowards U) + , ((myModMask .|. mod1Mask .|. shiftMask , xK_l ), sendMessage $ ShrinkFrom R) + , ((myModMask .|. mod1Mask .|. shiftMask , xK_h ), sendMessage $ ShrinkFrom L) + , ((myModMask .|. mod1Mask .|. shiftMask , xK_j ), sendMessage $ ShrinkFrom D) + , ((myModMask .|. mod1Mask .|. shiftMask , xK_k ), sendMessage $ ShrinkFrom U) + + ] ++ [ -- for extra workspace(s) + ((myModMask, key), (windows $ W.greedyView ws)) + | (key,ws) <- myExtraWorkspaces + ] ++ [ -- also for extra workspaces + ((myModMask .|. shiftMask, key), (windows $ W.shift ws)) + | (key,ws) <- myExtraWorkspaces + ] ++ [ -- to swap workspace + ((mod1Mask .|. shiftMask, k), windows $ swapWithCurrent i) + | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] + ] ++ [ -- copy + ((m .|. myModMask, k), windows $ f i) + | (i, k) <- zip (myWorkspaces) [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] + , (f, m) <- [(copy, shiftMask .|. altMask)] + ] ++ [ -- for not swapping tags while using multihead + ((m .|. myModMask, k), windows $ f i) + | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] + , (f, m) <- [(W.view, 0), (W.shift, shiftMask)] + ] + +myKeybindingsP = [ + -- fn keys + -- ("<XF86MonBrightnessUp>", spawn backlightUp) + -- , ("<XF86MonBrightnessDown>", spawn backlightDown) + -- , ("<XF86AudioRaiseVolume>", spawn volUp) + -- , ("<XF86AudioLowerVolume>", spawn volDown) + -- , ("<XF86AudioMute>", spawn volMute) + -- ("M-S-p", spawn "dmenu_run") + -- scratchpads + -- , ("M-r", namedScratchpadAction myScratchpads "Term 0") + -- , ("M-t", namedScratchpadAction myScratchpads "Term 1") + -- , ("M-y", namedScratchpadAction myScratchpads "Term 2") + -- , ("M-u", namedScratchpadAction myScratchpads "Term 3") + -- , ("M-m", namedScratchpadAction myScratchpads "BPYTOP") + -- , ("M-S-m", namedScratchpadAction myScratchpads "calc") + -- , ("M-n", namedScratchpadAction myScratchpads "pavucontrol") + -- , ("M-S-n", namedScratchpadAction myScratchpads "arandr") + -- , ("M-b", namedScratchpadAction myScratchpads "blueman") + -- , ("M-S-r", namedScratchpadAction myScratchpads "wallpaper") + ] diff --git a/.config/XMonad/lib/Scratchpads.hs b/.config/XMonad/lib/Scratchpads.hs new file mode 100644 index 0000000..8422e48 --- /dev/null +++ b/.config/XMonad/lib/Scratchpads.hs @@ -0,0 +1,60 @@ +module Scratchpads where +import XMonad +import qualified XMonad.StackSet as W +import XMonad.ManageHook +import System.Exit +import System.IO + +-- data +import Data.Tree +import qualified Data.Map as M + +-- actions +import XMonad.Actions.CopyWindow +import XMonad.Actions.CycleWS +import XMonad.Actions.GridSelect +import XMonad.Actions.SwapWorkspaces +import qualified XMonad.Actions.TreeSelect as TS + +-- layout modifiers +import XMonad.Layout.Spacing +import XMonad.Layout.WindowNavigation as WN +import XMonad.Layout.Maximize +import XMonad.Layout.Fullscreen +import XMonad.Layout.NoBorders + +-- Layouts +import XMonad.Layout.BinarySpacePartition as BSP +import XMonad.Layout.Grid +import XMonad.Layout.Tabbed + +-- hooks +import XMonad.Hooks.SetWMName +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.EwmhDesktops + +import XMonad.Hooks.DynamicLog +-- DynamicLog replacement(s) +-- import XMonad.Hooks.StatusBar +-- import XMonad.Hooks.StatusBar.PP + +-- utilities +import XMonad.Util.Run +import XMonad.Util.SpawnOnce +import XMonad.Util.EZConfig +import XMonad.Util.Cursor +import XMonad.Util.NamedScratchpad + +myScratchpads = + [ NS "Term 0" "alacritty -t 'Term 0'" (title =? "Term 0") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "Term 1" "alacritty -t 'Term 1'" (title =? "Term 1") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "Term 2" "alacritty -t 'Term 2'" (title =? "Term 2") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "Term 3" "alacritty -t 'Term 3'" (title =? "Term 3") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "lf" "alacritty -t 'lf' -e 'lf'" (title =? "lf") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "arandr" "arandr" (className =? "Arandr") (customFloating $ W.RationalRect (1/4) (1/4) (1/2) (1/2)) + , NS "calc" "galculator" (className =? "Galculator") (customFloating $ W.RationalRect (5/13) (4/13) (3/13) (6/13)) + , NS "blueman" "blueman-manager" (className =? "Blueman-manager") (customFloating $ W.RationalRect (5.5/16) (4/13) (5/16) (6/13)) + , NS "pavucontrol" "pavucontrol" (className =? "Pavucontrol") (customFloating $ W.RationalRect (3/12) (1/12) (3/6) (5/6)) + , NS "wallpaper" "nitrogen" (className =? "Nitrogen") (customFloating $ W.RationalRect (3/12) (1/12) (3/6) (5/6)) + , NS "BPYTOP" "alacritty -t 'BPYTOP' -e 'bpytop'" (title =? "BPYTOP") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + ] diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs index 9cc9c5b..095bc1e 100644 --- a/.config/XMonad/xmonad.hs +++ b/.config/XMonad/xmonad.hs @@ -2,6 +2,7 @@ import XMonad import qualified XMonad.StackSet as W import XMonad.ManageHook import System.Exit +import System.IO -- data import Data.Tree @@ -31,190 +32,27 @@ import XMonad.Hooks.SetWMName import XMonad.Hooks.ManageDocks import XMonad.Hooks.EwmhDesktops +import XMonad.Hooks.DynamicLog +-- DynamicLog replacement(s) +-- import XMonad.Hooks.StatusBar +-- import XMonad.Hooks.StatusBar.PP + -- utilities +import XMonad.Util.Run import XMonad.Util.SpawnOnce import XMonad.Util.EZConfig import XMonad.Util.Cursor import XMonad.Util.NamedScratchpad --- defaults -myModMask = mod4Mask -altMask = mod1Mask -myLockscreen = "notify-send 'to be set up!' 'to be set up!'" -myColorPicker = "colorpicker --short --one-shot --preview | xsel -b" -myFont = "xft:Sauce Code Pro:style=Regular:size=14" -volUp = "pamixer -i 5" -volDown = "pamixer -d 5" -volMute = "pamixer -t" -backlightUp = "brightnessctl s +5" -backlightDown = "brightnessctl s 5-" -screenshot = "flameshot screen" -fullScreenshot = "flameshot full" -customScreenshot = "flameshot gui" - -myExtraWorkspaces = [(xK_0, "十")] -- , (xK_comma, " 十一 "), (xK_period, " 十二 "), (xK_slash, " 十三 ")] -myWorkspaces = ["一", "二", "三", "四", "五", "六", "七", "八", "九"] ++ map snd myExtraWorkspaces - -myScratchpads = - [ NS "Term 0" "alacritty -t 'Term 0'" (title =? "Term 0") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) - , NS "Term 1" "alacritty -t 'Term 1'" (title =? "Term 1") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) - , NS "Term 2" "alacritty -t 'Term 2'" (title =? "Term 2") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) - , NS "Term 3" "alacritty -t 'Term 3'" (title =? "Term 3") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) - , NS "lf" "alacritty -t 'lf' -e 'lf'" (title =? "lf") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) - , NS "arandr" "arandr" (className =? "Arandr") (customFloating $ W.RationalRect (1/4) (1/4) (1/2) (1/2)) - , NS "calc" "galculator" (className =? "Galculator") (customFloating $ W.RationalRect (5/13) (4/13) (3/13) (6/13)) - , NS "blueman" "blueman-manager" (className =? "Blueman-manager") (customFloating $ W.RationalRect (5.5/16) (4/13) (5/16) (6/13)) - , NS "pavucontrol" "pavucontrol" (className =? "Pavucontrol") (customFloating $ W.RationalRect (3/12) (1/12) (3/6) (5/6)) - , NS "wallpaper" "nitrogen" (className =? "Nitrogen") (customFloating $ W.RationalRect (3/12) (1/12) (3/6) (5/6)) - , NS "BPYTOP" "alacritty -t 'BPYTOP' -e 'bpytop'" (title =? "BPYTOP") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) - ] - -myTabTheme = def { fontName = myFont - , activeColor = "#755999" - , inactiveColor = "#282c35" - , activeBorderColor = "#755999" - , inactiveBorderColor = "#313846" - , activeTextColor = "#FFFFFF" - , inactiveTextColor = "#d0d0d0" - , decoHeight = 20 - } - -myTSConfig = TS.TSConfig { TS.ts_hidechildren = False - , TS.ts_background = 0xdd282c34 - , TS.ts_font = myFont - , TS.ts_node = (0xffd0d0d0, 0xff1c1f24) - , TS.ts_nodealt = (0xffd0d0d0, 0xff282c34) - , TS.ts_highlight = (0xffffffff, 0xff755999) - , TS.ts_extra = 0xffd0d0d0 - , TS.ts_node_width = 220 - , TS.ts_node_height = 34 - , TS.ts_originX = 10000 - , TS.ts_originY = 100 - , TS.ts_indent = 80 - , TS.ts_navigate = TS.defaultNavigation - } - -networkingTS = - [ Node (TS.TSNode "Transmission" "" (spawn "qbittorrent")) [] - , Node (TS.TSNode "TOR" "" (spawn "torbrowser-launcher")) [] - , Node (TS.TSNode "Discord" "" (spawn "discord")) [] - , Node (TS.TSNode "Icecat" "" (spawn "icecat")) [] - , Node (TS.TSNode "Network Manager" "" (spawn "nm-connection-editor")) [] - , Node (TS.TSNode "Firefox" "" (spawn "firefox")) [] - , Node (TS.TSNode "Librewolf" "" (spawn "librewolf")) [] - , Node (TS.TSNode "Brave" "" (spawn "brave")) [] - ] -myNetworkingTS a = TS.treeselectAction a networkingTS - -screenshotTS = - [ Node (TS.TSNode "Custom Selection" "" (spawn customScreenshot)) [] - , Node (TS.TSNode "Full Screen" "" (spawn screenshot)) [] - , Node (TS.TSNode "All Screens" "" (spawn fullScreenshot)) [] - ] -myScreenshotTS a = TS.treeselectAction a screenshotTS - -powerTS = - [ Node (TS.TSNode "Shutdown" "" (return())) - [ Node (TS.TSNode "Confirm" "" (spawn "shutdown now")) [] ] - , Node (TS.TSNode "Restart" "" (return())) - [ Node (TS.TSNode "Confirm" "" (spawn "reboot")) [] ] - , Node (TS.TSNode "Lock" "" (return())) - [ Node (TS.TSNode "Confirm" "" (spawn myLockscreen)) [] ] - , Node (TS.TSNode "Logout" "" (return())) - [ Node (TS.TSNode "Confirm" "" (io exitSuccess)) [] ] - ] -myPowerTS a = TS.treeselectAction a powerTS - -mediaTS = - [ Node (TS.TSNode "VLC" "" (spawn "vlc")) [] - , Node (TS.TSNode "GIMP" "" (spawn "gimp")) [] - , Node (TS.TSNode "Kdenlive" "" (spawn "kdenlive")) [] - , Node (TS.TSNode "OBS" "" (spawn "obs")) [] - ] -myMediaTS a = TS.treeselectAction a mediaTS - -gamingTS = - [ Node (TS.TSNode "Minecraft" "" (spawn "minecraft-launcher")) [] - , Node (TS.TSNode "osu!lazer" "" (spawn "env LUTRIS_SKIP_INIT=1 lutris lutris:rungameid/3")) [] - , Node (TS.TSNode "Steam" "" (spawn "steam")) [] - , Node (TS.TSNode "Lutris" "" (spawn "lutris")) [] - ] -myGamingTS a = TS.treeselectAction a gamingTS - -scratchpadTS = - [ Node (TS.TSNode "Term 0" "" (namedScratchpadAction myScratchpads "Term 0")) [] - , Node (TS.TSNode "Term 1" "" (namedScratchpadAction myScratchpads "Term 1")) [] - , Node (TS.TSNode "Term 2" "" (namedScratchpadAction myScratchpads "Term 2")) [] - , Node (TS.TSNode "Term 3" "" (namedScratchpadAction myScratchpads "Term 3")) [] - , Node (TS.TSNode "lf" "" (namedScratchpadAction myScratchpads "lf")) [] - , Node (TS.TSNode "BPYTOP" "" (namedScratchpadAction myScratchpads "BPYTOP")) [] - , Node (TS.TSNode "Calculator" "" (namedScratchpadAction myScratchpads "calc")) [] - , Node (TS.TSNode "Arandr" "" (namedScratchpadAction myScratchpads "arandr")) [] - , Node (TS.TSNode "Blueman" "" (namedScratchpadAction myScratchpads "blueman")) [] - , Node (TS.TSNode "Pavucontrol" "" (namedScratchpadAction myScratchpads "pavucontrol")) [] - , Node (TS.TSNode "Wallpapers" "" (namedScratchpadAction myScratchpads "nitrogen")) [] - ] -myScratchpadTS a = TS.treeselectAction a scratchpadTS - -xmonadTS = - [ Node (TS.TSNode "Rotate Windows" "" (sendMessage Rotate)) [] - , Node (TS.TSNode "Sticky Window" "" (windows copyToAll)) [] - , Node (TS.TSNode "Un-sticky Window" "" (killAllOtherCopies)) [] - , Node (TS.TSNode "Swap Windows" "" (sendMessage BSP.Swap)) [] - , Node (TS.TSNode "Bring Window" "" (bringSelected defaultGSConfig)) [] - , Node (TS.TSNode "Go To Window" "" (goToSelected defaultGSConfig)) [] - , Node (TS.TSNode "Sink Window" "" (withFocused $ windows . W.sink)) [] - , Node (TS.TSNode "Un/Maximize" "" (withFocused (sendMessage . maximizeRestore))) [] - ] -myXmonadTS a = TS.treeselectAction a xmonadTS - -devTS = - [ Node (TS.TSNode "Android Studio" "" (spawn "android-studio")) [] - , Node (TS.TSNode "Doom Emacs" "" (spawn "code")) [] - , Node (TS.TSNode "VSCodium" "" (spawn "code")) [] - ] -myDevTS a = TS.treeselectAction a (devTS ++ vmTS) - -vmTS = - [ Node (TS.TSNode "Virt Manager" "" (spawn "virt-manager")) [] - , Node (TS.TSNode "VirtualBox" "" (spawn "virtualbox")) [] - ] -myVmTS a = TS.treeselectAction a vmTS - -utilTS = - [ Node (TS.TSNode "Pavucontrol" "" (spawn "pavucontrol")) [] - , Node (TS.TSNode "OBS" "" (spawn "obs")) [] - , Node (TS.TSNode "Arandr" "" (spawn "arandr")) [] - , Node (TS.TSNode "System Monitor" "" (spawn "alacritty -e bpytop")) [] - , Node (TS.TSNode "File Manager" "" (spawn "pcmanfm")) [] - , Node (TS.TSNode "Calculator" "" (spawn "galculator")) [] - , Node (TS.TSNode "Wallpapers" "" (spawn "nitrogen")) [] - , Node (TS.TSNode "Screenshot" "" (return())) screenshotTS - ] -myUtilTS a = TS.treeselectAction a utilTS - -myTreeMenu a = TS.treeselectAction a - ([Node (TS.TSNode "Utilities" "" (return())) utilTS - , Node (TS.TSNode "Networking" "" (return())) networkingTS - , Node (TS.TSNode "Development" "" (return())) devTS - , Node (TS.TSNode "Virtual Machines" "" (return())) vmTS - , Node (TS.TSNode "XMonad" "" (return())) - [ Node (TS.TSNode "Window/Layout" "" (return())) xmonadTS - , Node (TS.TSNode "Scratchpads" "" (return())) scratchpadTS - ] - , Node (TS.TSNode "Gaming" "" (return())) gamingTS - , Node (TS.TSNode "Media" "" (return())) mediaTS - , Node (TS.TSNode "Power" "" (return())) powerTS - ]) - -sGap = 4 -- screen gap -wGap = 8 -- window gap - -myGap = spacingRaw True (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True -myGap' = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True +-- myLibs +import Keybindings +import Defaults +import Scratchpads +import Hooks main :: IO () main = do + -- lemonBar <- spawnPipe myLemonbar xmonad $ ewmh $ docks $ fullscreenSupport def { focusFollowsMouse = True , borderWidth = 2 @@ -222,168 +60,9 @@ main = do , workspaces = myWorkspaces , normalBorderColor = "#130F23" , focusedBorderColor = "#c44cf2" - , layoutHook = avoidStruts $ maximize $ windowNavigation $ smartBorders $ myGap $ ( - emptyBSP ||| tabbed shrinkText myTabTheme ||| Grid - ) - , startupHook = do - -- spawnOnce "lxsession" - spawnOnce "xmodmap /home/zt/.Xmodmap" - -- spawnOnce "glava --force-mod radial --desktop" - spawnOnce "picom" - spawnOnce "dunst" - spawnOnce "polystart" - spawnOnce "nitrogen --restore" - spawnOnce "cbatticon" - -- spawnOnce "blueman-applet" - -- spawnOnce "nm-applet" - -- spawnOnce "flameshot" - -- spawnOnce "optimus-manager-qt" - setWMName "LG3D" - setDefaultCursor xC_left_ptr - , manageHook = namedScratchpadManageHook myScratchpads - <+> manageDocks <+> composeAll [ - className =? "discord" --> doShift ( myWorkspaces !! 9 ) - , className =? "vlc" --> doShift ( myWorkspaces !! 6 ) - ] - -} `additionalMouseBindings` [ - ((myModMask, 4), \w -> prevWS) - , ((myModMask, 5), \w -> nextWS) - ] `additionalKeys` ([ - ((myModMask, xK_Return), spawn ("open_terminal")) - , ((myModMask .|. shiftMask, xK_q), kill1) - - -- volume keys - , ((myModMask, xK_equal), spawn volUp) - , ((myModMask, xK_minus), spawn volDown) - , ((myModMask, xK_BackSpace), spawn volMute) - - -- brightness keys - , ((myModMask .|. shiftMask, xK_equal), spawn backlightUp) - , ((myModMask .|. shiftMask, xK_minus), spawn backlightDown) - - -- modify gaps on runtime - , ((myModMask, xK_F2), incWindowSpacing 1) - , ((myModMask, xK_F1), decWindowSpacing 1) - , ((myModMask .|. shiftMask, xK_F2), incScreenSpacing 1) - , ((myModMask .|. shiftMask, xK_F1), decScreenSpacing 1) - - -- view prev/next workspaces - , ((myModMask .|. shiftMask, xK_Tab), prevWS) - , ((myModMask, xK_Tab), nextWS) - , ((myModMask, xK_semicolon), prevWS) - , ((myModMask, xK_apostrophe), nextWS) - , ((altMask, xK_h), prevWS) - , ((altMask, xK_l), nextWS) - - -- move to prev/next workspaces - , ((altMask .|. shiftMask, xK_h), shiftToPrev >> prevWS) - , ((altMask .|. shiftMask, xK_l), shiftToNext >> nextWS) - , ((myModMask .|. shiftMask, xK_semicolon), shiftToPrev >> prevWS) - , ((myModMask .|. shiftMask, xK_apostrophe), shiftToNext >> nextWS) - - -- focus previous/next monitor - , ((myModMask, xK_bracketleft), prevScreen) - , ((myModMask, xK_bracketright), nextScreen) - - -- move window to previous/next monitor - , ((myModMask .|. shiftMask, xK_bracketleft), shiftPrevScreen >> prevScreen) - , ((myModMask .|. shiftMask, xK_bracketright), shiftNextScreen >> nextScreen) - - -- swap different screens - , ((myModMask .|. controlMask, xK_bracketleft), swapPrevScreen) - , ((myModMask .|. controlMask, xK_bracketright), swapNextScreen) - - , ((myModMask, xK_a), sendMessage ToggleStruts) -- toggle both bars - , ((myModMask, xK_f), withFocused (sendMessage . maximizeRestore)) -- toggle maximize - , ((myModMask .|. shiftMask, xK_f), withFocused $ windows . W.sink) -- unfloat windows - - -- cycle through windows - , ((altMask, xK_j), windows W.focusDown) - , ((altMask, xK_k), windows W.focusUp) - - -- 2D navigation - , ((myModMask, xK_l), sendMessage $ Go R) - , ((myModMask, xK_h), sendMessage $ Go L) - , ((myModMask, xK_k), sendMessage $ Go U) - , ((myModMask, xK_j), sendMessage $ Go D) - - -- swap windows - , ((myModMask .|. shiftMask, xK_l), sendMessage $ WN.Swap R) - , ((myModMask .|. shiftMask, xK_h), sendMessage $ WN.Swap L) - , ((myModMask .|. shiftMask, xK_k), sendMessage $ WN.Swap U) - , ((myModMask .|. shiftMask, xK_j), sendMessage $ WN.Swap D) - - -- resize - , ((myModMask .|. mod1Mask, xK_l ), sendMessage $ ExpandTowards R) - , ((myModMask .|. mod1Mask, xK_h ), sendMessage $ ExpandTowards L) - , ((myModMask .|. mod1Mask, xK_j ), sendMessage $ ExpandTowards D) - , ((myModMask .|. mod1Mask, xK_k ), sendMessage $ ExpandTowards U) - , ((myModMask .|. mod1Mask .|. shiftMask , xK_l ), sendMessage $ ShrinkFrom R) - , ((myModMask .|. mod1Mask .|. shiftMask , xK_h ), sendMessage $ ShrinkFrom L) - , ((myModMask .|. mod1Mask .|. shiftMask , xK_j ), sendMessage $ ShrinkFrom D) - , ((myModMask .|. mod1Mask .|. shiftMask , xK_k ), sendMessage $ ShrinkFrom U) + , layoutHook = myLayoutHook + , startupHook = myStartupHook + , manageHook = myManageHook + -- , logHook = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn lemonBar x} - ] ++ [ -- for extra workspace(s) - ((myModMask, key), (windows $ W.greedyView ws)) - | (key,ws) <- myExtraWorkspaces - ] ++ [ -- also for extra workspaces - ((myModMask .|. shiftMask, key), (windows $ W.shift ws)) - | (key,ws) <- myExtraWorkspaces - ] ++ [ -- to swap workspace - ((mod1Mask .|. shiftMask, k), windows $ swapWithCurrent i) - | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] - ] ++ [ -- copy - ((m .|. myModMask, k), windows $ f i) - | (i, k) <- zip (myWorkspaces) [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] - , (f, m) <- [(copy, shiftMask .|. altMask)] - ] ++ [ -- for not swapping tags while using multihead - ((m .|. myModMask, k), windows $ f i) - | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] - , (f, m) <- [(W.view, 0), (W.shift, shiftMask)] - ] -- ++ [ -- focus different monitors --- ((m .|. myModMask, key), screenWorkspace sc >>= flip whenJust (windows . f)) --- | (key, sc) <- zip [xK_bracketleft, xK_bracketright] [1,0] -- was [0..] *** change to match your screen order *** --- , (f, m) <- [(W.view, 0), (W.shift, shiftMask)] --- ] - ) `additionalKeysP` [ - ("M-c", spawn myColorPicker) - -- Launchers - , ("M-S-w", myDevTS myTSConfig) - , ("M-q", myXmonadTS myTSConfig) - , ("M-e", myMediaTS myTSConfig) - , ("M-S-e", myGamingTS myTSConfig) - , ("M-w", myScratchpadTS myTSConfig) - , ("M-o", myUtilTS myTSConfig) - , ("M-i", myNetworkingTS myTSConfig) - , ("M-S-<Return>", myPowerTS myTSConfig) - , ("M-p", myTreeMenu myTSConfig) - , ("M-S-p", spawn "dmenu_run") - -- scratchpads - , ("M-r", namedScratchpadAction myScratchpads "Term 0") - , ("M-t", namedScratchpadAction myScratchpads "Term 1") - , ("M-y", namedScratchpadAction myScratchpads "Term 2") - , ("M-u", namedScratchpadAction myScratchpads "Term 3") - , ("M-m", namedScratchpadAction myScratchpads "BPYTOP") - , ("M-S-m", namedScratchpadAction myScratchpads "calc") - , ("M-n", namedScratchpadAction myScratchpads "pavucontrol") - , ("M-S-n", namedScratchpadAction myScratchpads "arandr") - , ("M-b", namedScratchpadAction myScratchpads "blueman") - , ("M-S-r", namedScratchpadAction myScratchpads "wallpaper") - -- other apps - , ("M-g", spawn customScreenshot) - , ("M-S-o", spawn "pcmanfm") - , ("M-S-y", spawn "gimp") - , ("M-S-u", spawn "kdenlive") - , ("M-S-b", spawn "discord") - , ("M-S-i", spawn "librewolf") - , ("M-s", spawn "obs") - , ("M-d", spawn "emacs") - -- fn keys - , ("<XF86MonBrightnessUp>", spawn backlightUp) - , ("<XF86MonBrightnessDown>", spawn backlightDown) - , ("<XF86AudioRaiseVolume>", spawn volUp) - , ("<XF86AudioLowerVolume>", spawn volDown) - , ("<XF86AudioMute>", spawn volMute) - ] - -- used keys: x e w o i p r t y q n b c d +} diff --git a/.config/XMonad/xmonad_old.hs b/.config/XMonad/xmonad_old.hs new file mode 100644 index 0000000..29316f2 --- /dev/null +++ b/.config/XMonad/xmonad_old.hs @@ -0,0 +1,433 @@ +import XMonad +import qualified XMonad.StackSet as W +import XMonad.ManageHook +import System.Exit +import System.IO + +-- data +import Data.Tree +import qualified Data.Map as M + +-- actions +import XMonad.Actions.CopyWindow +import XMonad.Actions.CycleWS +import XMonad.Actions.GridSelect +import XMonad.Actions.SwapWorkspaces +import qualified XMonad.Actions.TreeSelect as TS + +-- layout modifiers +import XMonad.Layout.Spacing +import XMonad.Layout.WindowNavigation as WN +import XMonad.Layout.Maximize +import XMonad.Layout.Fullscreen +import XMonad.Layout.NoBorders + +-- Layouts +import XMonad.Layout.BinarySpacePartition as BSP +import XMonad.Layout.Grid +import XMonad.Layout.Tabbed + +-- hooks +import XMonad.Hooks.SetWMName +import XMonad.Hooks.ManageDocks +import XMonad.Hooks.EwmhDesktops + +import XMonad.Hooks.DynamicLog +-- DynamicLog replacement(s) +-- import XMonad.Hooks.StatusBar +-- import XMonad.Hooks.StatusBar.PP + +-- utilities +import XMonad.Util.Run +import XMonad.Util.SpawnOnce +import XMonad.Util.EZConfig +import XMonad.Util.Cursor +import XMonad.Util.NamedScratchpad + +-- defaults +myModMask = mod4Mask +altMask = mod1Mask +myLockscreen = "notify-send 'to be set up!' 'to be set up!'" +myColorPicker = "colorpicker --short --one-shot --preview | xsel -b" +myFont = "xft:Sauce Code Pro:style=Regular:size=14" +volUp = "pamixer -i 5" +volDown = "pamixer -d 5" +volMute = "pamixer -t" +backlightUp = "brightnessctl s +5" +backlightDown = "brightnessctl s 5-" +screenshot = "flameshot screen" +fullScreenshot = "flameshot full" +customScreenshot = "flameshot gui" + +myExtraWorkspaces = [(xK_0, "十")] -- , (xK_comma, " 十一 "), (xK_period, " 十二 "), (xK_slash, " 十三 ")] +myWorkspaces = ["一", "二", "三", "四", "五", "六", "七", "八", "九"] ++ map snd myExtraWorkspaces + +myScratchpads = + [ NS "Term 0" "alacritty -t 'Term 0'" (title =? "Term 0") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "Term 1" "alacritty -t 'Term 1'" (title =? "Term 1") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "Term 2" "alacritty -t 'Term 2'" (title =? "Term 2") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "Term 3" "alacritty -t 'Term 3'" (title =? "Term 3") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "lf" "alacritty -t 'lf' -e 'lf'" (title =? "lf") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + , NS "arandr" "arandr" (className =? "Arandr") (customFloating $ W.RationalRect (1/4) (1/4) (1/2) (1/2)) + , NS "calc" "galculator" (className =? "Galculator") (customFloating $ W.RationalRect (5/13) (4/13) (3/13) (6/13)) + , NS "blueman" "blueman-manager" (className =? "Blueman-manager") (customFloating $ W.RationalRect (5.5/16) (4/13) (5/16) (6/13)) + , NS "pavucontrol" "pavucontrol" (className =? "Pavucontrol") (customFloating $ W.RationalRect (3/12) (1/12) (3/6) (5/6)) + , NS "wallpaper" "nitrogen" (className =? "Nitrogen") (customFloating $ W.RationalRect (3/12) (1/12) (3/6) (5/6)) + , NS "BPYTOP" "alacritty -t 'BPYTOP' -e 'bpytop'" (title =? "BPYTOP") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) + ] + +myTabTheme = def { fontName = myFont + , activeColor = "#755999" + , inactiveColor = "#282c35" + , activeBorderColor = "#755999" + , inactiveBorderColor = "#313846" + , activeTextColor = "#FFFFFF" + , inactiveTextColor = "#d0d0d0" + , decoHeight = 20 + } + +myTSConfig = TS.TSConfig { TS.ts_hidechildren = False + , TS.ts_background = 0xdd282c34 + , TS.ts_font = myFont + , TS.ts_node = (0xffd0d0d0, 0xff1c1f24) + , TS.ts_nodealt = (0xffd0d0d0, 0xff282c34) + , TS.ts_highlight = (0xffffffff, 0xff755999) + , TS.ts_extra = 0xffd0d0d0 + , TS.ts_node_width = 220 + , TS.ts_node_height = 34 + , TS.ts_originX = 10000 + , TS.ts_originY = 100 + , TS.ts_indent = 80 + , TS.ts_navigate = TS.defaultNavigation + } + +networkingTS = + [ Node (TS.TSNode "Transmission" "" (spawn "qbittorrent")) [] + , Node (TS.TSNode "TOR" "" (spawn "torbrowser-launcher")) [] + , Node (TS.TSNode "Discord" "" (spawn "discord")) [] + , Node (TS.TSNode "Icecat" "" (spawn "icecat")) [] + , Node (TS.TSNode "Network Manager" "" (spawn "nm-connection-editor")) [] + , Node (TS.TSNode "Firefox" "" (spawn "firefox")) [] + , Node (TS.TSNode "Librewolf" "" (spawn "librewolf")) [] + , Node (TS.TSNode "Brave" "" (spawn "brave")) [] + ] +myNetworkingTS a = TS.treeselectAction a networkingTS + +screenshotTS = + [ Node (TS.TSNode "Custom Selection" "" (spawn customScreenshot)) [] + , Node (TS.TSNode "Full Screen" "" (spawn screenshot)) [] + , Node (TS.TSNode "All Screens" "" (spawn fullScreenshot)) [] + ] +myScreenshotTS a = TS.treeselectAction a screenshotTS + +powerTS = + [ Node (TS.TSNode "Shutdown" "" (return())) + [ Node (TS.TSNode "Confirm" "" (spawn "shutdown now")) [] ] + , Node (TS.TSNode "Restart" "" (return())) + [ Node (TS.TSNode "Confirm" "" (spawn "reboot")) [] ] + , Node (TS.TSNode "Lock" "" (return())) + [ Node (TS.TSNode "Confirm" "" (spawn myLockscreen)) [] ] + , Node (TS.TSNode "Logout" "" (return())) + [ Node (TS.TSNode "Confirm" "" (io exitSuccess)) [] ] + ] +myPowerTS a = TS.treeselectAction a powerTS + +mediaTS = + [ Node (TS.TSNode "VLC" "" (spawn "vlc")) [] + , Node (TS.TSNode "GIMP" "" (spawn "gimp")) [] + , Node (TS.TSNode "Kdenlive" "" (spawn "kdenlive")) [] + , Node (TS.TSNode "OBS" "" (spawn "obs")) [] + ] +myMediaTS a = TS.treeselectAction a mediaTS + +gamingTS = + [ Node (TS.TSNode "Minecraft" "" (spawn "minecraft-launcher")) [] + , Node (TS.TSNode "osu!lazer" "" (spawn "env LUTRIS_SKIP_INIT=1 lutris lutris:rungameid/3")) [] + , Node (TS.TSNode "Steam" "" (spawn "steam")) [] + , Node (TS.TSNode "Lutris" "" (spawn "lutris")) [] + ] +myGamingTS a = TS.treeselectAction a gamingTS + +scratchpadTS = + [ Node (TS.TSNode "Term 0" "" (namedScratchpadAction myScratchpads "Term 0")) [] + , Node (TS.TSNode "Term 1" "" (namedScratchpadAction myScratchpads "Term 1")) [] + , Node (TS.TSNode "Term 2" "" (namedScratchpadAction myScratchpads "Term 2")) [] + , Node (TS.TSNode "Term 3" "" (namedScratchpadAction myScratchpads "Term 3")) [] + , Node (TS.TSNode "lf" "" (namedScratchpadAction myScratchpads "lf")) [] + , Node (TS.TSNode "BPYTOP" "" (namedScratchpadAction myScratchpads "BPYTOP")) [] + , Node (TS.TSNode "Calculator" "" (namedScratchpadAction myScratchpads "calc")) [] + , Node (TS.TSNode "Arandr" "" (namedScratchpadAction myScratchpads "arandr")) [] + , Node (TS.TSNode "Blueman" "" (namedScratchpadAction myScratchpads "blueman")) [] + , Node (TS.TSNode "Pavucontrol" "" (namedScratchpadAction myScratchpads "pavucontrol")) [] + , Node (TS.TSNode "Wallpapers" "" (namedScratchpadAction myScratchpads "nitrogen")) [] + ] +myScratchpadTS a = TS.treeselectAction a scratchpadTS + +xmonadTS = + [ Node (TS.TSNode "Rotate Windows" "" (sendMessage Rotate)) [] + , Node (TS.TSNode "Sticky Window" "" (windows copyToAll)) [] + , Node (TS.TSNode "Un-sticky Window" "" (killAllOtherCopies)) [] + , Node (TS.TSNode "Swap Windows" "" (sendMessage BSP.Swap)) [] + , Node (TS.TSNode "Bring Window" "" (bringSelected defaultGSConfig)) [] + , Node (TS.TSNode "Go To Window" "" (goToSelected defaultGSConfig)) [] + , Node (TS.TSNode "Sink Window" "" (withFocused $ windows . W.sink)) [] + , Node (TS.TSNode "Un/Maximize" "" (withFocused (sendMessage . maximizeRestore))) [] + ] +myXmonadTS a = TS.treeselectAction a xmonadTS + +devTS = + [ Node (TS.TSNode "Android Studio" "" (spawn "android-studio")) [] + , Node (TS.TSNode "Doom Emacs" "" (spawn "code")) [] + , Node (TS.TSNode "VSCodium" "" (spawn "code")) [] + ] +myDevTS a = TS.treeselectAction a (devTS ++ vmTS) + +vmTS = + [ Node (TS.TSNode "Virt Manager" "" (spawn "virt-manager")) [] + , Node (TS.TSNode "VirtualBox" "" (spawn "virtualbox")) [] + ] +myVmTS a = TS.treeselectAction a vmTS + +utilTS = + [ Node (TS.TSNode "Pavucontrol" "" (spawn "pavucontrol")) [] + , Node (TS.TSNode "OBS" "" (spawn "obs")) [] + , Node (TS.TSNode "Arandr" "" (spawn "arandr")) [] + , Node (TS.TSNode "System Monitor" "" (spawn "alacritty -e bpytop")) [] + , Node (TS.TSNode "File Manager" "" (spawn "pcmanfm")) [] + , Node (TS.TSNode "Calculator" "" (spawn "galculator")) [] + , Node (TS.TSNode "Wallpapers" "" (spawn "nitrogen")) [] + , Node (TS.TSNode "Screenshot" "" (return())) screenshotTS + ] +myUtilTS a = TS.treeselectAction a utilTS + +myTreeMenu a = TS.treeselectAction a + ([Node (TS.TSNode "Utilities" "" (return())) utilTS + , Node (TS.TSNode "Networking" "" (return())) networkingTS + , Node (TS.TSNode "Development" "" (return())) devTS + , Node (TS.TSNode "Virtual Machines" "" (return())) vmTS + , Node (TS.TSNode "XMonad" "" (return())) + [ Node (TS.TSNode "Window/Layout" "" (return())) xmonadTS + , Node (TS.TSNode "Scratchpads" "" (return())) scratchpadTS + ] + , Node (TS.TSNode "Gaming" "" (return())) gamingTS + , Node (TS.TSNode "Media" "" (return())) mediaTS + , Node (TS.TSNode "Power" "" (return())) powerTS + ]) + +sGap = 4 -- screen gap +wGap = 8 -- window gap + +myGap = spacingRaw True (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True +myGap' = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True + +-- lemonbar config +myLemonbar = "lemonbar -b -g 1920x28+0+0 -B '#1e2120' -F '#ffffff' -0 2 -f 'SauceCodePro:style=Regular:size=12' -f 'Source Han Sans JP:size=11'" +-- myLemonbar = "cat > ~/lemonb/ffx" + +-- wsVisibleBG = "#ffffff" +-- wsVisibleFG = "#FFFFFF" + +wsVisibleOccupiedBG = "#ff0aa3" +wsVisibleOccupiedFG = "#FFFFFF" + +-- multi monitor only +-- wsVisibleInactiveBG = "#ff0aa3" +-- wsVisibleInactiveFG = "#FFFFFF" + +wsOccupiedBG = "#9b1bed" +wsOccupiedFG = "#FFFFFF" + +wsEmptyBG = "#272526" +wsEmptyFG = "#9d00ff" + +titleBG = "#272526" +titleFG = "#9d00ff" + +myLemonbarPP = def { + ppCurrent = wrap ("%{B" ++ wsVisibleOccupiedBG ++ "}%{F" ++ wsVisibleOccupiedFG ++ "} ") " %{B-}%{F-}" + -- , ppVisibleNoWindows = wrap ("%{B" ++ wsVisibleBG ++ "}%{F" ++ wsVisibleFG ++ "} ") " %{B-}%{F-}" + -- , ppVisibleNoWindows = wrap "" "" + -- , ppVisible = wrap ("%{B" ++ wsVisibleBG ++ "}%{F" ++ wsVisibleFG ++ "} ") " %{B-}%{F-}" + , ppHidden = wrap ("%{B" ++ wsOccupiedBG ++ "}%{F" ++ wsOccupiedFG ++ "} ") " %{B-}%{F-}" + , ppHiddenNoWindows = wrap ("%{B" ++ wsEmptyBG ++ "}%{F" ++ wsEmptyFG ++ "} ") " %{B-}%{F-}" + , ppTitle = wrap ("%{B" ++ titleBG ++ "}%{F" ++ titleFG ++ "} ") " %{B-}%{F-}" + , ppWsSep = "" + , ppSep = "" + , ppOrder = \(ws:_:t:_) -> ["%{l}"++t++"","%{r}"++ws++""] + } + +main :: IO () +main = do + lemonBar <- spawnPipe myLemonbar + xmonad $ ewmh $ docks $ fullscreenSupport def { + focusFollowsMouse = True + , borderWidth = 2 + , modMask = myModMask + , workspaces = myWorkspaces + , normalBorderColor = "#130F23" + , focusedBorderColor = "#c44cf2" + , layoutHook = avoidStruts $ maximize $ windowNavigation $ smartBorders $ myGap $ ( + emptyBSP ||| tabbed shrinkText myTabTheme ||| Grid + ) + , startupHook = do + -- spawnOnce "lxsession" + spawnOnce "xmodmap /home/zt/.Xmodmap" + -- spawnOnce "glava --force-mod radial --desktop" + spawnOnce "picom" + spawnOnce "dunst" + spawnOnce "polystart" + spawnOnce "nitrogen --restore" + spawnOnce "cbatticon" + -- spawnOnce "blueman-applet" + -- spawnOnce "nm-applet" + -- spawnOnce "flameshot" + -- spawnOnce "optimus-manager-qt" + setWMName "LG3D" + setDefaultCursor xC_left_ptr + , manageHook = namedScratchpadManageHook myScratchpads + <+> manageDocks <+> composeAll [ + className =? "discord" --> doShift ( myWorkspaces !! 9 ) + , className =? "vlc" --> doShift ( myWorkspaces !! 6 ) + ] + , logHook = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn lemonBar x} + +} `additionalMouseBindings` [ + ((myModMask, 4), \w -> prevWS) + , ((myModMask, 5), \w -> nextWS) + ] `additionalKeys` ([ + ((myModMask, xK_Return), spawn ("open_terminal")) + , ((myModMask .|. shiftMask, xK_q), kill1) + + -- volume keys , ((myModMask, xK_equal), spawn volUp) + , ((myModMask, xK_minus), spawn volDown) + , ((myModMask, xK_BackSpace), spawn volMute) + + -- brightness keys + , ((myModMask .|. shiftMask, xK_equal), spawn backlightUp) + , ((myModMask .|. shiftMask, xK_minus), spawn backlightDown) + + -- modify gaps on runtime + , ((myModMask, xK_F2), incWindowSpacing 1) + , ((myModMask, xK_F1), decWindowSpacing 1) + , ((myModMask .|. shiftMask, xK_F2), incScreenSpacing 1) + , ((myModMask .|. shiftMask, xK_F1), decScreenSpacing 1) + + -- view prev/next workspaces + , ((myModMask .|. shiftMask, xK_Tab), prevWS) + , ((myModMask, xK_Tab), nextWS) + , ((myModMask, xK_semicolon), prevWS) + , ((myModMask, xK_apostrophe), nextWS) + , ((altMask, xK_h), prevWS) + , ((altMask, xK_l), nextWS) + + -- move to prev/next workspaces + , ((altMask .|. shiftMask, xK_h), shiftToPrev >> prevWS) + , ((altMask .|. shiftMask, xK_l), shiftToNext >> nextWS) + , ((myModMask .|. shiftMask, xK_semicolon), shiftToPrev >> prevWS) + , ((myModMask .|. shiftMask, xK_apostrophe), shiftToNext >> nextWS) + + -- focus previous/next monitor + , ((myModMask, xK_bracketleft), prevScreen) + , ((myModMask, xK_bracketright), nextScreen) + + -- move window to previous/next monitor + , ((myModMask .|. shiftMask, xK_bracketleft), shiftPrevScreen >> prevScreen) + , ((myModMask .|. shiftMask, xK_bracketright), shiftNextScreen >> nextScreen) + + -- swap different screens + , ((myModMask .|. controlMask, xK_bracketleft), swapPrevScreen) + , ((myModMask .|. controlMask, xK_bracketright), swapNextScreen) + + , ((myModMask, xK_a), sendMessage ToggleStruts) -- toggle both bars + , ((myModMask, xK_f), withFocused (sendMessage . maximizeRestore)) -- toggle maximize + , ((myModMask .|. shiftMask, xK_f), withFocused $ windows . W.sink) -- unfloat windows + + -- cycle through windows + , ((altMask, xK_j), windows W.focusDown) + , ((altMask, xK_k), windows W.focusUp) + + -- 2D navigation + , ((myModMask, xK_l), sendMessage $ Go R) + , ((myModMask, xK_h), sendMessage $ Go L) + , ((myModMask, xK_k), sendMessage $ Go U) + , ((myModMask, xK_j), sendMessage $ Go D) + + -- swap windows + , ((myModMask .|. shiftMask, xK_l), sendMessage $ WN.Swap R) + , ((myModMask .|. shiftMask, xK_h), sendMessage $ WN.Swap L) + , ((myModMask .|. shiftMask, xK_k), sendMessage $ WN.Swap U) + , ((myModMask .|. shiftMask, xK_j), sendMessage $ WN.Swap D) + + -- resize + , ((myModMask .|. mod1Mask, xK_l ), sendMessage $ ExpandTowards R) + , ((myModMask .|. mod1Mask, xK_h ), sendMessage $ ExpandTowards L) + , ((myModMask .|. mod1Mask, xK_j ), sendMessage $ ExpandTowards D) + , ((myModMask .|. mod1Mask, xK_k ), sendMessage $ ExpandTowards U) + , ((myModMask .|. mod1Mask .|. shiftMask , xK_l ), sendMessage $ ShrinkFrom R) + , ((myModMask .|. mod1Mask .|. shiftMask , xK_h ), sendMessage $ ShrinkFrom L) + , ((myModMask .|. mod1Mask .|. shiftMask , xK_j ), sendMessage $ ShrinkFrom D) + , ((myModMask .|. mod1Mask .|. shiftMask , xK_k ), sendMessage $ ShrinkFrom U) + + ] ++ [ -- for extra workspace(s) + ((myModMask, key), (windows $ W.greedyView ws)) + | (key,ws) <- myExtraWorkspaces + ] ++ [ -- also for extra workspaces + ((myModMask .|. shiftMask, key), (windows $ W.shift ws)) + | (key,ws) <- myExtraWorkspaces + ] ++ [ -- to swap workspace + ((mod1Mask .|. shiftMask, k), windows $ swapWithCurrent i) + | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] + ] ++ [ -- copy + ((m .|. myModMask, k), windows $ f i) + | (i, k) <- zip (myWorkspaces) [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] + , (f, m) <- [(copy, shiftMask .|. altMask)] + ] ++ [ -- for not swapping tags while using multihead + ((m .|. myModMask, k), windows $ f i) + | (i, k) <- zip myWorkspaces [xK_1, xK_2, xK_3, xK_4, xK_5, xK_6, xK_7, xK_8, xK_9, xK_0] + , (f, m) <- [(W.view, 0), (W.shift, shiftMask)] + ] -- ++ [ -- focus different monitors +-- ((m .|. myModMask, key), screenWorkspace sc >>= flip whenJust (windows . f)) +-- | (key, sc) <- zip [xK_bracketleft, xK_bracketright] [1,0] -- was [0..] *** change to match your screen order *** +-- , (f, m) <- [(W.view, 0), (W.shift, shiftMask)] +-- ] + ) `additionalKeysP` [ + ("M-c", spawn myColorPicker) + -- Launchers + , ("M-S-w", myDevTS myTSConfig) + , ("M-q", myXmonadTS myTSConfig) + , ("M-e", myMediaTS myTSConfig) + , ("M-S-e", myGamingTS myTSConfig) + , ("M-w", myScratchpadTS myTSConfig) + , ("M-o", myUtilTS myTSConfig) + , ("M-i", myNetworkingTS myTSConfig) + , ("M-S-<Return>", myPowerTS myTSConfig) + , ("M-p", myTreeMenu myTSConfig) + , ("M-S-p", spawn "dmenu_run") + -- scratchpads + , ("M-r", namedScratchpadAction myScratchpads "Term 0") + , ("M-t", namedScratchpadAction myScratchpads "Term 1") + , ("M-y", namedScratchpadAction myScratchpads "Term 2") + , ("M-u", namedScratchpadAction myScratchpads "Term 3") + , ("M-m", namedScratchpadAction myScratchpads "BPYTOP") + , ("M-S-m", namedScratchpadAction myScratchpads "calc") + , ("M-n", namedScratchpadAction myScratchpads "pavucontrol") + , ("M-S-n", namedScratchpadAction myScratchpads "arandr") + , ("M-b", namedScratchpadAction myScratchpads "blueman") + , ("M-S-r", namedScratchpadAction myScratchpads "wallpaper") + -- other apps + , ("M-g", spawn customScreenshot) + , ("M-S-o", spawn "pcmanfm") + , ("M-S-y", spawn "gimp") + , ("M-S-u", spawn "kdenlive") + , ("M-S-b", spawn "discord") + , ("M-S-i", spawn "librewolf") + , ("M-s", spawn "obs") + , ("M-d", spawn "emacs") + -- fn keys + , ("<XF86MonBrightnessUp>", spawn backlightUp) + , ("<XF86MonBrightnessDown>", spawn backlightDown) + , ("<XF86AudioRaiseVolume>", spawn volUp) + , ("<XF86AudioLowerVolume>", spawn volDown) + , ("<XF86AudioMute>", spawn volMute) + ] + -- used keys: x e w o i p r t y q n b c d |