Tony Morris avatar Tony Morris committed 3028167

help combinators for default config

Comments (0)

Files changed (2)

DescriptiveKeys.cabal

 Name:               DescriptiveKeys
-Version:            0.0.1
+Version:            0.0.2
 License:            BSD3
 License-File:       LICENSE
 Author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>

src/XMonad/Config/DescriptiveKeys.hs

 , defaultDescribeKeys
 , HelpPromptConfig(..)
 , helpPrompt
+, helpPromptAndSet
+, defaultHelpPromptAndSet
 ) where
 
 import qualified Data.Set as S
                  in M.insert ms (inputPromptWithCompl xpc stp compl ?+ describek) (keys c d)
    }
 
+helpPromptAndSet ::
+  DescriptiveKeys
+  -> XPConfig
+  -> (ButtonMask, KeySym)
+  -> SearchTextPrompt
+  -> (XConfig Layout -> DescribeKeys)
+  -> XConfig l
+  -> XConfig l
+helpPromptAndSet k c m s d =
+  helpPrompt (\l -> HelpPromptConfig {
+    descriptiveHelp = k
+  , xpConfigHelp    = c
+  , keyHelp         = m
+  , searchTextHelp  = s
+  , describeHelp    = d l
+  }) .
+  setDescriptiveKeys k
+
+defaultHelpPromptAndSet ::
+  DescriptiveKeys
+  -> XPConfig
+  -> XConfig l
+  -> XConfig l
+defaultHelpPromptAndSet k c =
+  helpPromptAndSet k c (mod4Mask, xK_F1) defaultSearchTextPrompt (defaultDescribeKeys k)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.