[XMonad] Add keepass scratchpad

This commit is contained in:
Ivan Malison 2017-01-16 21:29:24 -08:00
parent e7331e23e1
commit 62dcd54e9a
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -141,6 +141,7 @@ emacsSelector = className =? "Emacs"
transmissionSelector = fmap (isPrefixOf "Transmission") title transmissionSelector = fmap (isPrefixOf "Transmission") title
hangoutsSelector = chromeSelectorBase <&&> fmap isHangoutsTitle title hangoutsSelector = chromeSelectorBase <&&> fmap isHangoutsTitle title
volumeSelector = className =? "Pavucontrol" volumeSelector = className =? "Pavucontrol"
keepassSelector = className =? "keepassxc"
virtualClasses = virtualClasses =
[ (hangoutsSelector, "Hangouts") [ (hangoutsSelector, "Hangouts")
@ -157,6 +158,8 @@ emacsCommand = "emacsclient -c"
htopCommand = "urxvt -e htop" htopCommand = "urxvt -e htop"
transmissionCommand = "transmission-gtk" transmissionCommand = "transmission-gtk"
volumeCommand = "pavucontrol" volumeCommand = "pavucontrol"
keepassCommand = "systemctl --user restart keepassx.service"
taffybarCommand = "systemctl --user restart taffybar.service"
-- Startup hook -- Startup hook
@ -576,6 +579,7 @@ scratchpads =
, NS "spotify" spotifyCommand spotifySelector nonFloating , NS "spotify" spotifyCommand spotifySelector nonFloating
, NS "hangouts" hangoutsCommand hangoutsSelector nonFloating , NS "hangouts" hangoutsCommand hangoutsSelector nonFloating
, NS "volume" volumeCommand volumeSelector nonFloating , NS "volume" volumeCommand volumeSelector nonFloating
, NS "keepass" keepassCommand keepassSelector nonFloating
] ]
-- TODO: This doesnt work well with minimized windows -- TODO: This doesnt work well with minimized windows
@ -639,6 +643,7 @@ addKeys conf@XConfig {modMask = modm} =
, ((modalt, xK_v), doScratchpad "volume") , ((modalt, xK_v), doScratchpad "volume")
, ((modalt, xK_h), doScratchpad "hangouts") , ((modalt, xK_h), doScratchpad "hangouts")
, ((modalt, xK_s), doScratchpad "spotify") , ((modalt, xK_s), doScratchpad "spotify")
, ((modalt, xK_k), doScratchpad "keepass")
, ((modalt .|. controlMask, xK_h), , ((modalt .|. controlMask, xK_h),
myRaiseNextMaybe (spawn hangoutsCommand) hangoutsSelector) myRaiseNextMaybe (spawn hangoutsCommand) hangoutsSelector)
, ((modalt .|. controlMask, xK_s), , ((modalt .|. controlMask, xK_s),
@ -693,8 +698,7 @@ addKeys conf@XConfig {modMask = modm} =
-- Non-XMonad -- Non-XMonad
, ((modm .|. controlMask, xK_t), spawn , ((modm .|. controlMask, xK_t), spawn taffybarCommand)
"systemctl --user restart taffybar.service")
, ((modm, xK_v), spawn "copyq paste") , ((modm, xK_v), spawn "copyq paste")
, ((modm .|. controlMask, xK_s), spawn "split_out.sh") , ((modm .|. controlMask, xK_s), spawn "split_out.sh")
, ((mod3Mask, xK_v), spawn "copyq_rofi.sh") , ((mod3Mask, xK_v), spawn "copyq_rofi.sh")