replace scratchpads with abduco run and select from list
This commit is contained in:
parent
f583ac14f4
commit
10f2fb6d2e
2
local/bin/abduco_list
Executable file
2
local/bin/abduco_list
Executable file
@ -0,0 +1,2 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
abduco | tail -n +2 | cut -f3 | dmenu | xargs --replace={} urxvtc -e abduco -a {}
|
@ -20,8 +20,6 @@ import XMonad
|
|||||||
import XMonad.Hooks.DynamicLog
|
import XMonad.Hooks.DynamicLog
|
||||||
import XMonad.Layout.NoBorders
|
import XMonad.Layout.NoBorders
|
||||||
import XMonad.Layout.Grid
|
import XMonad.Layout.Grid
|
||||||
import XMonad.Util.NamedScratchpad
|
|
||||||
import XMonad.Actions.WindowBringer
|
|
||||||
import Graphics.X11.ExtraTypes.XF86
|
import Graphics.X11.ExtraTypes.XF86
|
||||||
import Data.Monoid
|
import Data.Monoid
|
||||||
import System.Exit
|
import System.Exit
|
||||||
@ -104,18 +102,6 @@ myNormalBorderColor = "#000000"
|
|||||||
myFocusedBorderColor :: [Char]
|
myFocusedBorderColor :: [Char]
|
||||||
myFocusedBorderColor = "#ff0000"
|
myFocusedBorderColor = "#ff0000"
|
||||||
|
|
||||||
-- Scratchpads, applications to toggle
|
|
||||||
myScratchPads :: [NamedScratchpad]
|
|
||||||
myScratchPads =
|
|
||||||
[ interm "ranger" nonFloating
|
|
||||||
, interm "weechat" nonFloating
|
|
||||||
, interm "sup" nonFloating
|
|
||||||
, interm "newsbeuter" nonFloating
|
|
||||||
, interm "vimus" nonFloating
|
|
||||||
]
|
|
||||||
where
|
|
||||||
interm prog = NS prog (runInTerminal prog prog) (appName =? prog)
|
|
||||||
|
|
||||||
|
|
||||||
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
||||||
-- Key bindings. Add, modify or remove key bindings here.
|
-- Key bindings. Add, modify or remove key bindings here.
|
||||||
@ -198,16 +184,8 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
|
|||||||
, ((0, xF86XK_MonBrightnessUp), spawn "xbacklight -inc 10")
|
, ((0, xF86XK_MonBrightnessUp), spawn "xbacklight -inc 10")
|
||||||
, ((0, xF86XK_MonBrightnessDown), spawn "xbacklight -dec 10")
|
, ((0, xF86XK_MonBrightnessDown), spawn "xbacklight -dec 10")
|
||||||
|
|
||||||
, ((modm .|. controlMask, xK_c), namedScratchpadAction myScratchPads "weechat")
|
|
||||||
, ((modm .|. controlMask, xK_b), namedScratchpadAction myScratchPads "ranger")
|
|
||||||
, ((modm .|. controlMask, xK_m), namedScratchpadAction myScratchPads "sup")
|
|
||||||
, ((modm .|. controlMask, xK_n), namedScratchpadAction myScratchPads "newsbeuter")
|
|
||||||
, ((modm .|. controlMask, xK_v), namedScratchpadAction myScratchPads "vimus")
|
|
||||||
, ((modm, xK_s), spawn $ silent "abduco_run")
|
, ((modm, xK_s), spawn $ silent "abduco_run")
|
||||||
|
, ((modm, xK_a), spawn $ silent "abduco_list")
|
||||||
-- Dmenu open programs
|
|
||||||
, ((modm .|. shiftMask, xK_Tab), gotoMenuArgs ["-l", "10"])
|
|
||||||
, ((modm .|. controlMask, xK_Tab), bringMenuArgs ["-l", "10"])
|
|
||||||
|
|
||||||
-- Screens
|
-- Screens
|
||||||
, ((modm .|. shiftMask, xK_p), spawn $ silent "push.sh")
|
, ((modm .|. shiftMask, xK_p), spawn $ silent "push.sh")
|
||||||
@ -399,7 +377,7 @@ defaults = def {
|
|||||||
|
|
||||||
-- hooks, layouts
|
-- hooks, layouts
|
||||||
layoutHook = myLayoutHook,
|
layoutHook = myLayoutHook,
|
||||||
manageHook = namedScratchpadManageHook myScratchPads <+> myManageHook,
|
manageHook = myManageHook,
|
||||||
handleEventHook = myEventHook,
|
handleEventHook = myEventHook,
|
||||||
logHook = myLogHook,
|
logHook = myLogHook,
|
||||||
startupHook = myStartupHook
|
startupHook = myStartupHook
|
||||||
|
Loading…
Reference in New Issue
Block a user