From 968df42998019220861a025cb4408440c88a343d Mon Sep 17 00:00:00 2001
From: gwern0 <gwern0@gmail.com>
Date: Sun, 16 Mar 2008 22:56:42 +0100
Subject: improve the formatting for WindowGo.hs

darcs-hash:20080316215642-f7719-f9a18f1c41bbca26888a42d2beb2399ec91e8bf2.gz
---
 XMonad/Actions/WindowGo.hs | 50 +++++++++++++++++++++++-----------------------
 1 file changed, 25 insertions(+), 25 deletions(-)

(limited to 'XMonad/Actions/WindowGo.hs')

diff --git a/XMonad/Actions/WindowGo.hs b/XMonad/Actions/WindowGo.hs
index d1d08ce..dd517ce 100644
--- a/XMonad/Actions/WindowGo.hs
+++ b/XMonad/Actions/WindowGo.hs
@@ -1,5 +1,4 @@
-{- --------------------------------------------------------------------------
-|
+{- |
 Module      :  XMonad.Actions.WindowGo
 License     :  Public domain
 
@@ -8,9 +7,7 @@ Stability   :  unstable
 Portability :  unportable
 
 Defines a few simple operations for raising windows based on XMonad's Query
-Monad, such as runOrRaise.
-
------------------------------------------------------------------------------ -}
+monad, such as 'runOrRaise'. -}
 
 module XMonad.Actions.WindowGo (
                  -- * Usage
@@ -26,19 +23,21 @@ import Control.Monad (filterM)
 import qualified XMonad.StackSet as W (allWindows)
 import XMonad.ManageHook
 
--- $usage
---
--- Import the module into your @~\/.xmonad\/xmonad.hs@:
---
--- > import XMonad.Actions.WindowGo
---
--- and define appropriate key bindings:
---
--- > , ((modMask x .|. shiftMask, xK_g     ), raise (className =? "Firefox-bin"))
--- > , ((modMask x .|. shiftMask, xK_b     ), runOrRaise "mozilla-firefox" (className =? "Firefox-bin"))
---
--- For detailed instructions on editing your key bindings, see
--- "XMonad.Doc.Extending#Editing_key_bindings".
+{- $usage
+
+Import the module into your @~\/.xmonad\/xmonad.hs@:
+
+> import XMonad.Actions.WindowGo
+
+and define appropriate key bindings:
+
+> , ((modMask x .|. shiftMask, xK_g), raise (className =? "Firefox"))
+> , ((modMask x .|. shiftMask, xK_b), runOrRaise "firefox" (className =? "Firefox"))
+
+(Note that Firefox v3 and up have a class-name of "Firefox" and "Navigator";
+lower versions use other classnames such as "Firefox-bin"
+For detailed instructions on editing your key bindings, see
+"XMonad.Doc.Extending#Editing_key_bindings". -}
 
 -- | 'action' is an executable to be run via 'spawn' if the Window cannot be found.
 --   Presumably this executable is the same one that you were looking for.
@@ -49,13 +48,14 @@ runOrRaise action = raiseMaybe $ spawn action
 raise :: Query Bool -> X ()
 raise = raiseMaybe $ return ()
 
-{- | raiseMaybe: this queries all Windows based on a boolean provided by the
+{- | 'raiseMaybe' queries all Windows based on a boolean provided by the
    user. Currently, there are three such useful booleans defined in
    XMonad.ManageHook: title, resource, className. Each one tests based pretty
    much as you would think. ManageHook also defines several operators, the most
    useful of which is (=?). So a useful test might be finding a Window whose
-   class is Firefox. Firefox declares the class "Firefox-bin", so you'd want to
-   pass in a boolean like '(className =? "Firefox-bin")'.
+   class is Firefox. Firefox declares the class "Firefox", so you'd want to
+   pass in a boolean like '(className =? "Firefox")'.
+
    If the boolean returns True on one or more windows, then XMonad will quickly
    make visible the first result. If no Window meets the criteria, then the
    first argument comes into play.
@@ -69,14 +69,14 @@ raise = raiseMaybe $ return ()
    some cute things with this hook. Suppose you want to do the same thing for
    Mutt which you just did for Firefox - but Mutt runs inside a terminal window?
    No problem: you search for a terminal window calling itself 'mutt', and if
-   there isn't you run a terminal with a command to run mutt! Here's an example,
-   borrowing 'runInTerm' from XMonad.Utils.Run:
+   there isn't you run a terminal with a command to run Mutt! Here's an example
+   (borrowing "XMonad.Utils.Run"'s 'runInTerm'):
 
-  > , ((modm, xK_m                   ), raiseMaybe (runInTerm "-title mutt" "mutt") (title =? "mutt"))
+  > , ((modm, xK_m), raiseMaybe (runInTerm "-title mutt" "mutt") (title =? "mutt"))
 -}
 raiseMaybe :: X () -> Query Bool -> X ()
 raiseMaybe f thatUserQuery = withWindowSet $ \s -> do
     maybeResult <- filterM (runQuery thatUserQuery) (W.allWindows s)
     case maybeResult of
-      [] -> f
+      []     -> f
       (x:_)  -> focus x
-- 
cgit v1.2.3