aboutsummaryrefslogtreecommitdiff
path: root/XMonad
diff options
context:
space:
mode:
authorVidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>2021-02-18 20:29:36 +0530
committerVidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com>2021-02-18 20:29:36 +0530
commitbd12394a8a719b09fb5730ca81db0ee68d9014c8 (patch)
tree6155b38136d5148ba227eb9b47885ebfc5a717e6 /XMonad
parent69def2cceced0f59ab977f71d05a0c101c05b991 (diff)
added some copyWindow keybindings and played around with TreeSelect
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/xmonad.hs93
1 files changed, 87 insertions, 6 deletions
diff --git a/XMonad/xmonad.hs b/XMonad/xmonad.hs
index 3a8e6e1f..3092b7da 100644
--- a/XMonad/xmonad.hs
+++ b/XMonad/xmonad.hs
@@ -2,6 +2,10 @@ import XMonad
import qualified XMonad.StackSet as W
import XMonad.ManageHook
+-- data
+import Data.Tree
+import qualified Data.Map as M
+
-- actions
import XMonad.Actions.CycleWS (moveTo, shiftTo, WSType(..), nextScreen, prevScreen)
import XMonad.Actions.CopyWindow
@@ -10,6 +14,7 @@ import XMonad.Actions.GridSelect
import XMonad.Actions.SwapWorkspaces
import XMonad.Actions.WindowBringer
import XMonad.Actions.MouseResize
+import qualified XMonad.Actions.TreeSelect as TS
-- layouts modifiers
import XMonad.Layout.Spacing
@@ -28,7 +33,7 @@ import XMonad.Layout.TwoPane
import XMonad.Layout.Spiral
import XMonad.Layout.ResizableTile
import XMonad.Layout.Maximize
--- import XMonad.Layout.Tabbed
+import XMonad.Layout.Tabbed -- fix this it doesnt work
-- hooks
import XMonad.Hooks.SetWMName
@@ -105,6 +110,11 @@ myVolDown = "pulseaudio-ctl down"
myVolMute :: String
myVolMute = "pulseaudio-ctl mute"
+
+myFont :: String
+myFont = "xft:Roboto:pixelsize=16:antialias=true"
+
+
-- wm variables
nBorder = "#000000" -- "#3804f4" -- "#bf00ff"
@@ -118,11 +128,59 @@ wGap = 1 -- window gap
myExtraWorkspaces = [(xK_0, " 十 ")] -- , (xK_comma, " 十一 "), (xK_period, " 十二 "), (xK_slash, " 十三 ")]
myWorkspaces = [" 一 "," 二 "," 三 "," 四 "," 五 "," 六 "," 七 "," 八 ", " 九 "] ++ (map snd myExtraWorkspaces)
+-- treeselect config
+defaultNavigation = M.fromList
+ [ ((0, xK_Escape), TS.cancel)
+ , ((0, xK_Return), TS.select)
+ , ((0, xK_space), TS.select)
+ , ((0, xK_Up), TS.movePrev)
+ , ((0, xK_Down), TS.moveNext)
+ , ((0, xK_Left), TS.moveParent)
+ , ((0, xK_Right), TS.moveChild)
+ , ((0, xK_k), TS.movePrev)
+ , ((0, xK_j), TS.moveNext)
+ , ((0, xK_h), TS.moveParent)
+ , ((0, xK_l), TS.moveChild)
+ , ((0, xK_o), TS.moveHistBack)
+ , ((0, xK_i), TS.moveHistForward)
+ ]
+
+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 = 200
+ , TS.ts_node_height = 28
+ , TS.ts_originX = 100
+ , TS.ts_originY = 100
+ , TS.ts_indent = 80
+ , TS.ts_navigate = TS.defaultNavigation
+ }
+
+-- myTreeMenu :: TS.TSConfig (X ()) -> X ()
+-- myTreeMenu a = TS.treeselectAction a
+-- [ Node (TS.TSNode "Hello" "displays hello" (spawn "xmessage hello!")) []
+-- , Node (TS.TSNode "Shutdown" "Poweroff the system" (spawn "shutdown")) []
+-- , Node (TS.TSNode "Brightness" "Sets screen brightness using xbacklight" (return ()))
+-- [ Node (TS.TSNode "Bright" "FULL POWER!!" (spawn "xbacklight -set 100")) []
+-- , Node (TS.TSNode "Normal" "Normal Brightness (50%)" (spawn "xbacklight -set 50")) []
+-- , Node (TS.TSNode "Dim" "Quite dark" (spawn "xbacklight -set 10")) []
+-- ]
+-- ]
+
+myPowerMenu :: TS.TSConfig (X ()) -> X ()
+myPowerMenu a = TS.treeselectAction a
+ [Node (TS.TSNode "SHUTDOWN" "It's not like I'm gonna miss you, b- baka!" (spawn "xmessage bye!")) []
+ , Node (TS.TSNode "REBOOT" "Be quick, okay?" (spawn "st")) []
+ , Node (TS.TSNode "CANCEL" "Do nothing" (return ())) []
+ ]
-- scratchpad config
myScratchpads = [
--- NS "Vysor" "Vysor.AppImage" (title =? "Vysor") defaultFloating
NS "Phone" "scrcpy" (title =? "Motorola One Power") defaultFloating,
NS "Terminal" "st -t 'TerminalScratchpad'" (title =? "TerminalScratchpad") defaultFloating,
NS "Nitrogen" "nitrogen" (title =? "Nitrogen") defaultFloating
@@ -141,13 +199,21 @@ myKeys = [
, ((mod1Mask .|. shiftMask, xK_k), kill1)
, ((myModMask, xK_a), withFocused $ windows . W.sink) -- unfloat windows
+ -- TreeSelect
+ , ((mod1Mask, xK_F4), myPowerMenu myTSConfig)
+
-- launch apps/execute scripts
- , ((myModMask, xK_i), spawn (myBrowser))
+ -- , ((myModMask, xK_i), spawn (myBrowser))
, ((myModMask, xK_o), spawn (myFileManager))
, ((myModMask, xK_y), spawn ("gimp"))
, ((myModMask, xK_e), spawn (myEmailClient))
- , ((myModMask, xK_m), spawn ("vlc"))
+ -- , ((myModMask, xK_m), spawn ("vlc"))
, ((myModMask, xK_b), spawn ("konqueror"))
+
+ -- launch/copy apps
+ , ((myModMask .|. shiftMask, xK_o), runOrCopy "pcmanfm" (className =? "Pcmanfm"))
+ , ((myModMask, xK_i), runOrCopy "brave" (className =? "Brave-browser"))
+ , ((myModMask, xK_m), runOrCopy "vlc" (className =? "vlc"))
-- volume
, ((altMask, xK_0), spawn (myVolMute))
@@ -196,6 +262,11 @@ myKeys = [
-- grid select
, ((myModMask, xK_g), goToSelected defaultGSConfig)
+
+ -- kinda bad horizontal resizing of windows in non-bsp layouts
+ , ((myModMask, xK_Right), sendMessage Expand)
+ , ((myModMask, xK_Left), sendMessage Shrink)
+
-- windowbringer
, ((myModMask, xK_b), bringMenu)
@@ -244,11 +315,20 @@ myKeys = [
]
+-- tabs config
+myTabTheme = def { fontName = "roboto"
+ , activeColor = "#46d9ff"
+ , inactiveColor = "#313846"
+ , activeBorderColor = "#46d9ff"
+ , inactiveBorderColor = "#282c34"
+ , activeTextColor = "#282c34"
+ , inactiveTextColor = "#d0d0d0"
+ }
--- layouts
-myGap = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True
+-- layouts
+myGap = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True
@@ -260,6 +340,7 @@ myLayouts = avoidStruts (
||| renamed [R.Replace "TwoPane"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ TwoPane (3/100) (1/2))
||| renamed [R.Replace "ThreeCol (1)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeCol 1 (3/100) (1/2))
||| renamed [R.Replace "ThreeCol (2)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeCol 2 (3/100) (1/2))
+ ||| tabbedRight shrinkText def
)
myLayoutHook = myLayouts