twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-11 02:02:11 -07:00
Code Issues Packages Projects Releases Wiki Activity

Add message to window prompt to execute arbitrary actions with the window

Browse Source
This commit is contained in:
Zubin Duggal
2020-04-09 01:06:20 +05:30
parent 5521b432dd
commit 5880e01ad2
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
XMonad/Prompt/Window.hs
View File

@@ -72,13 +72,14 @@ import XMonad.Util.NamedWindows
-- "XMonad.Doc.Extending#Editing_key_bindings". -- "XMonad.Doc.Extending#Editing_key_bindings".
-- Describe actions that can applied on the selected window -- Describe actions that can applied on the selected window
data WindowPrompt = Goto | Bring | BringCopy | BringToMaster data WindowPrompt = Goto | Bring | BringCopy | BringToMaster | WithWindow String (Window -> X())
instance XPrompt WindowPrompt where instance XPrompt WindowPrompt where
showXPrompt Goto = "Go to window: " showXPrompt Goto = "Go to window: "
showXPrompt Bring = "Bring window: " showXPrompt Bring = "Bring window: "
showXPrompt BringToMaster showXPrompt BringToMaster
= "Bring window to master: " = "Bring window to master: "
showXPrompt BringCopy = "Bring a copy: " showXPrompt BringCopy = "Bring a copy: "
showXPrompt (WithWindow xs _) = xs
commandToComplete _ c = c commandToComplete _ c = c
nextCompletion _ = getNextCompletion nextCompletion _ = getNextCompletion
@@ -96,13 +97,15 @@ instance XPrompt WindowModePrompt where
modeAction (WindowModePrompt action winmap _) buf auto = do modeAction (WindowModePrompt action winmap _) buf auto = do
let name = if null auto then buf else auto let name = if null auto then buf else auto
a = case action of a = case action of
Goto -> gotoAction winmap Goto -> gotoAction
Bring -> bringAction winmap Bring -> bringAction
BringCopy -> bringCopyAction winmap BringCopy -> bringCopyAction
BringToMaster -> bringToMaster winmap BringToMaster -> bringToMaster
WithWindow _ f -> withWindow f
a name a name
where where
winAction a m = flip whenJust (windows . a) . flip M.lookup m withWindow f = flip whenJust f . flip M.lookup winmap
winAction a = withWindow (windows . a)
gotoAction = winAction W.focusWindow gotoAction = winAction W.focusWindow
bringAction = winAction bringWindow bringAction = winAction bringWindow
bringCopyAction = winAction bringCopyWindow bringCopyAction = winAction bringCopyWindow