aditya siram wrote:

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 http://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

I'm the author of Scratchpad, though the code is simple enough any dev would do. First thing is about xprop's "WM_CLASS" line: the first value is actually the resource name (resource =? "..." in a query), the second is the real className. You shouldn't need the <||> part in your scratchpadQuery:

scratchpadQuery = className =? "Conkeror"

But that wasn't likely the problem in itself. Next thing to try is to make sure the query matches though, since that seems to be the problem: it doesn't think the app is already running, so it launches a new one. I'm usually on #xmonad (during the day in North America) as shepheb, and anyone there should be able to help check that query works using a ManageHook. Braden Shepherdson shepheb