Commits

Tony Morris  committed 8f1a802

implementation

  • Participants
  • Parent commits 6ddef75

Comments (0)

Files changed (1)

File src/XMonad/Config/DescriptiveKeys.hs

 module XMonad.Config.DescriptiveKeys
-{-
 (
   Tag(..)
 , Tags
 , defaultDescriptiveKeysPP
 , DescribeKeys(..)
 , defaultDescribeKeys
-) -} where
+, describeTags
+) where
 
 import qualified Data.Set as S
 import qualified Data.Map as M
     then z
     else DescriptiveKeys (\l -> filter (\(DescriptiveKey _ _ _ _ u) -> not (S.null (S.intersection t u))) $ k l)
 
-newtype DescriptiveKeysPP =
+data DescriptiveKeysPP =
   DescriptiveKeysPP {
     descriptiveKeysPP :: [DescriptiveKey] -> String
+  , searchText :: String
   }
 
 defaultDescriptiveKeysPP ::
                            space g = g ++ replicate (16 - length g) ' '
                        in space (mk ++ keysymToString s) ++ case d of
                                                               Description Nothing  -> ""
-                                                              Description (Just e) -> "    " ++ e))
+                                                              Description (Just e) -> "    " ++ e)) "Search key-bindings"
 
 newtype DescribeKeys =
   DescribeKeys {