~vonfry/dotfiles

f37ebb7f32dbaf26375d0816429ad5acde9cae24 — Vonfry 4 months ago ef47abc
xmonad/keys: replace prompt current ws window with all applications

the current workspace can be jump by easy motion and other methods so a prompt
is useless.
An application jump can help to find windows quickly than window name because
the window name may not contain the app name which is hard to jump by window name
1 files changed, 6 insertions(+), 6 deletions(-)

M etc/nixos/modules/user/files/xmonad/lib/XMonad/Config/Vonfry/Key.hs
M etc/nixos/modules/user/files/xmonad/lib/XMonad/Config/Vonfry/Key.hs => etc/nixos/modules/user/files/xmonad/lib/XMonad/Config/Vonfry/Key.hs +6 -6
@@ 39,7 39,7 @@ import XMonad.Prompt.Ssh (sshPrompt)
import XMonad.Prompt.XMonad (xmonadPrompt)
import XMonad.Actions.Search (promptSearch, multi)

import XMonad.Prompt.Window ( windowMultiPrompt, allWindows, wsWindows
import XMonad.Prompt.Window ( windowMultiPrompt, allWindows, allApplications
                            , WindowPrompt(..)
                            )
import XMonad.Actions.EasyMotion ( EasyMotionConfig(..), ChordKeys(..)


@@ 144,11 144,11 @@ key conf = mkKeymap conf
                                    , BringCopy
                                    ])
    , ("M-S-.", windowMultiPrompt promptConfig $
        (\d -> (d, wsWindows)) <$> [ Goto
                                   , Bring
                                   , BringToMaster
                                   , BringCopy
                                   ])
        (\d -> (d, allApplications)) <$> [ Goto
                                         , Bring
                                         , BringToMaster
                                         , BringCopy
                                         ])

    -- window navigation
    , ("M-C-.", nextMatch History (pure True))