Hi all, Scratchpad is an XMonad extension that brings up or spawns a terminal window on Alt-F2 (as I have it configured) and hides it in a hidden workspace when I am done. The code looked pretty simple and I tried to adapt this script to do the same thing with my Conkeror window. This script worked until I upgraded to 0.8.1. Now it doesn't detect an existing Conkeror window and keeps launching a new instance. Xprop output shows the class name of Conkeror is: "Navigator", "Conkeror". Since hpaste.org seems to be down, here it is my hacked Scratchpad sans imports and header comment ( if the author of Scratchpad is reading this, yes the code below is pretty much cut-and-paste): --------------------------------------------------------------------------- -- | Action to pop up the browser, for the user to bind to a custom key. scratchBrowserSpawn :: X () scratchBrowserSpawn = scratchpadAction $ spawn "conkeror" scratchpadAction :: X () -> X () scratchpadAction action = withWindowSet $ \s -> do filterCurrent <- filterM (runQuery scratchpadQuery) ( (maybe [] W.integrate . W.stack . W.workspace . W.current) s) case filterCurrent of (x:_) -> do if null (filter ( (== scratchpadWorkspaceTag) . W.tag) (W.workspaces s)) then addHiddenWorkspace scratchpadWorkspaceTag else return () windows (W.shiftWin scratchpadWorkspaceTag x) [] -> do filterAll <- filterM (runQuery scratchpadQuery) (W.allWindows s) case filterAll of (x:_) -> windows (W.shiftWin (W.currentTag s) x) [] -> action -- run the provided action to spawn it. -- factored out since it appears in several places scratchpadWorkspaceTag :: String scratchpadWorkspaceTag = "BR" -- factored out since this is common to both the ManageHook and the action scratchpadQuery :: Query Bool scratchpadQuery = (className =? "Conkeror") <||> (className =? "Navigator") -- | The ManageHook, with the default rectangle: -- Half the screen wide, a quarter of the screen tall, centered. scratchpadManageHookDefault :: ManageHook scratchpadManageHookDefault = scratchpadManageHook scratchpadDefaultRect -- | The ManageHook, with a user-specified StackSet.RationalRect, -- eg. -- -- > scratchpadManageHook (W.RationalRect 0.25 0.375 0.5 0.25) scratchpadManageHook :: W.RationalRect -- ^ User-specified screen rectangle. -> ManageHook scratchpadManageHook rect = scratchpadQuery --> doRectFloat rect -- | Transforms a workspace list containing the SP workspace into one that -- doesn't contain it. Intended for use with logHooks. scratchpadFilterOutWorkspace :: [WindowSpace] -> [WindowSpace] scratchpadFilterOutWorkspace = filter (\(W.Workspace tag _ _) -> tag /= scratchpadWorkspaceTag) scratchpadDefaultRect :: W.RationalRect scratchpadDefaultRect = W.RationalRect 0.25 0.375 0.5 0.25 ------------------------------------------------------------------------------------------------- Thanks ... Deech