Commits

Tony Morris  committed bd9786f

pretty printing

  • Participants
  • Parent commits 55b1c7b

Comments (0)

Files changed (1)

File src/XMonad/Config/DescriptiveKeys.hs

 
 data DescriptiveKeysPP =
   DescriptiveKeysPP {
-    categoryPP :: String -> String
+    header :: String
+  , categoryPP :: String -> String
   , descriptionPP :: String -> String
   , keyPP :: ButtonMask -> KeySym -> String
   , tagPP :: Tag -> String
   , categorySep :: String
   , noCategory :: String
   , noDescription :: String
+  , footer :: String
   }
 
 defaultDescriptiveKeysPP ::
   DescriptiveKeysPP
 defaultDescriptiveKeysPP =
   DescriptiveKeysPP {
-    categoryPP = id
+    header = ""
+  , categoryPP = id
   , descriptionPP = id
   , keyPP = \m s -> let pick n str = if n .&. complement m == 0 then str else ""
                         mk = concatMap (++"-") . filter (not . null) . map (uncurry pick) $
   , categorySep = "\n\n"
   , noCategory = "<Uncategorized>"
   , noDescription = "..."
+  , footer = ""
   }