added some copyWindow keybindings and played around with TreeSelect

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