Ecco cosa utilizzo, ispirato a XMonad.Util.WindowBringer. Dovrai installare il pacchetto Text.PCRE. Mi scuso se ho dimenticato alcune dichiarazioni di importazione.
import XMonad
import qualified XMonad.StackSet as W
import XMonad.Util.NamedWindows (getName)
import Control.Applicative ((<$>))
import Data.List (find)
import Text.Regex.PCRE ((=~))
findWindow :: String -> X (Maybe Window)
findWindow regex = do
wmap <- concat <$> (mapM mappings =<< (W.workspaces <$> gets windowset))
:: X [(String, Window)]
return (snd <$> find ((=~ regex) . fst) wmap)
where mappings :: WindowSpace -> X [(String, Window)]
mappings ws = mapM mapping $ W.integrate' (W.stack ws)
mapping w = flip (,) w <$> show <$> getName w
warpTo :: String -> X()
warpTo regex =
findWindow regex >>= (flip whenJust $ windows . W.focusWindow)
In linea di massima si dovrebbe quindi essere in grado di associare una chiave per warpTo "Chromium" >> spawn "xdotool key --clearmodifiers ctrl+r"
. Tuttavia, questo non funziona per me, a quanto pare a causa di alcune condizioni di gara che non capisco. Fortunatamente, trovo che i seguenti lavori:
warpTo "Chromium" >> spawn "sleep 0.2; xdotool key --clearmodifiers ctrl+r"
Potresti riuscire a farla franca con un ritardo più breve.
fonte
2018-02-06 05:25:25