clipmenu (complete)

xmonad.hs

@@ -5,6 +5,7 @@ import XMonad.Config.Desktop
 -- Actions
 import XMonad.Actions.CycleWS
 import XMonad.Actions.DynamicWorkspaces as DW
+import XMonad.Actions.GridSelect
 import XMonad.Actions.OnScreen
 import XMonad.Actions.SpawnOn
 import XMonad.Actions.UpdatePointer
@@ -235,16 +236,13 @@ launcher = makeLauncher "-x" "eval" "\"exec " "\""
 main = do
   dzenCenterBar <- spawnPipe centerBar
   dzenBottomBar <- spawnPipe bottomBar
---  dzenLeftBar <- spawnPipe leftBar
---  dzenRightBar <- spawnPipe rightBar
   xmonad $ docks $ ewmh $ desktopConfig {
-    workspaces = ["shell","spideroak","vivaldi","pindrop","kofc","bitcoin"]
+    workspaces = ["shell","vivaldi","pindrop","kofc","VM"]
   , terminal = myTerminal
   , focusFollowsMouse    = True
   , manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig
   , handleEventHook = docksEventHook <+> handleEventHook desktopConfig
   , layoutHook = avoidStruts $ layoutH 
-  --, logHook = myLogHook dzenCenterBar >> myLogHook dzenLeftBar >>  myLogHook dzenRightBar >>  fadeHook >> updatePointer (0.5, 0.5) (0, 0)
   , logHook = myLogHook dzenCenterBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0)
   , borderWidth = 1
   , normalBorderColor = "#333333"
@@ -256,12 +254,13 @@ main = do
 
 myStartup :: X ()
 myStartup = do
-    setWMName "LG3D"
+    --setWMName "LG3D"
     toggleHomeScreens
     spawn "trayer --edge top --align right --widthtype request --margin 318 --expand false --align right --SetDockType true --SetPartialStrut false --tint 0x000000 --transparent true --alpha 0 --height 24 --monitor 'primary'"
     --spawn "gnome-gmail-notifier"
     spawn "xset dpms 600"
-    spawn "xautolock -secure -time 10 -locker 'i3lock -c 000000 -i /home/trey/images/black.png'"
+    --spawn "xautolock -secure -time 10 -locker 'i3lock -c 000000 -i /home/trey/images/black.png'"
+    spawn "xautolock -secure -time 10 -locker 'i3lock -c 000000'"
 
 myBitmapsDir = "/home/trey/.xmonad/dzen2"
 --leftBar = "dzen2 -w 0 -h 24 -ta l -fg #555753 -bg #000000 -fn Terminus-10 -xs 1"
@@ -358,12 +357,14 @@ myKeys =    [
   , ((controlMask .|. shiftMask,    xK_4),         unGrab >> spawn "scrot --exec 'mkdir -p ~/Desktop && mv $f ~/Desktop' --select && paplay ~/wav/camera.wav")                                                      
                                                                   --    windows (viewOnScreen 1 "ws")
                                                                   --    ifWindows (resource =? "altUrxvt") (mapM_ focus) (spawnHere altTerminal))
-  , ((winKey .|. shiftMask,         xK_v),         do
+  , ((lAlt,                        xK_v),         do
-                                                   windows (viewOnScreen 1 "virtualbox")
+                                                        spawn "clipmenu && xdotool key Ctrl+v")
-                                                   ifWindows (className =? "Gvim") (mapM_ focus) (spawnHere "gvim"))
+  --, ((winKey .|. shiftMask,         xK_v),         do
-  , ((winKey ,                      xK_v),         do
+     --                                              windows (viewOnScreen 1 "virtualbox")
-                                                   windows (viewOnScreen 1 "timetracker")
+    --                                               ifWindows (className =? "Gvim") (mapM_ focus) (spawnHere "gvim"))
-                                                   ifWindows (title =? "osmium:timetracker") (mapM_ focus) (spawnHere "urxvtc -cd ~/timetracker -e 'tmux attach -t timetracker || tmux -2 new-session -s timetracker'"))
+  --, ((winKey ,                      xK_v),         do
+  --                                                   windows (viewOnScreen 1 "timetracker")
+   --                                                ifWindows (title =? "osmium:timetracker") (mapM_ focus) (spawnHere "urxvtc -cd ~/timetracker -e 'tmux attach -t timetracker || tmux -2 new-session -s timetracker'"))
   --, ((lAlt ,                        xK_v),         spawnHere "xfce4-popup-clipman")
   --, ((winKey ,                                            xK_x),                                              windowPromptGoto dXPConfig)
   , ((winKey .|. shiftMask,            xK_x),         windowPromptBring dXPConfig)
@@ -373,7 +374,7 @@ myKeys =    [
                                                         spawnHere "pkill -USR1 dzen2"
                                                         spawnHere "pkill trayer"
                                                         sendMessage $ ToggleStrut U)
-  --, ((winKey ,                                            xK_g),                                              spawnHere "chromium --allow-outdated-plugins --purge-memory-button ")
+  , ((lAlt ,        xK_g),                          spawnHere "~/bin/google_selection.sh")
   --, ((winKey ,                                            xK_g),                                              ifWindows (className =? "Google-chrome") (mapM_ focus) (spawnHere "google-chrome"))
   , ((winKey ,                                            xK_g), ifWindows (className =? "Google-chrome") (mapM_ focus) (spawnHere "google-chrome-stable"))
   --, ((winKey ,                                            xK_r),                                                do
@@ -411,6 +412,7 @@ myKeys =    [
   , ((winKey ,                                            xK_k),                                              windows W.focusUp) -- explicitly setting the default
   , ((winKey .|. controlMask,                    xK_k),                                              windows W.swapUp) -- explicitly setting the default
   , ((lAlt ,                                                xK_Tab),                                          windows W.focusDown) -- replicating MS Windows task switcher behavior
+  , ((winKey ,                                                xK_Tab),                                          goToSelected defaultGSConfig)
   , ((lAlt .|. shiftMask,                        xK_Tab),                                          windows W.focusUp)  -- replicating MS Windows task switcher behavior
   , ((winKey .|. controlMask,                xK_Return),                                      windows W.swapMaster)
   , ((winKey,                       xK_space ),                   sendMessage NextLayout)