diff options
author | Alex Tarkovsky <alextarkovsky@gmail.com> | 2007-09-05 22:01:28 +0200 |
---|---|---|
committer | Alex Tarkovsky <alextarkovsky@gmail.com> | 2007-09-05 22:01:28 +0200 |
commit | a2ceae3cf6f302de2420f072238a29c9fbe8d974 (patch) | |
tree | bdd6ec53b679432c8a88a1cb60e4bc437b86a3dd /Commands.hs | |
parent | bea7c7116f233a785e4c96a1d577ca2797fe70bf (diff) | |
download | XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.tar.gz XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.tar.xz XMonadContrib-a2ceae3cf6f302de2420f072238a29c9fbe8d974.zip |
Docstring parser for generating xmonad build configs with default settings for extensions
darcs-hash:20070905200128-bd4fb-ff90db3eb7ebce6ea75956f19ebc6c35d36c08d4.gz
Diffstat (limited to 'Commands.hs')
-rw-r--r-- | Commands.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Commands.hs b/Commands.hs index 216f1b2..1b7cac8 100644 --- a/Commands.hs +++ b/Commands.hs @@ -42,7 +42,7 @@ import Data.Maybe -- -- and add a keybinding to the runCommand action: -- --- > , ((modMask .|. controlMask, xK_y), runCommand) +-- > , ((modMask .|. controlMask, xK_y), runCommand commands) -- -- and define the list commands: -- @@ -54,6 +54,11 @@ import Data.Maybe -- 'commands'. (If you like it enough, you may even want to get rid -- of many of your other key bindings!) +-- %def commands :: [(String, X ())] +-- %def commands = defaultCommands +-- %import XMonadContrib.Commands +-- %keybind , ((modMask .|. controlMask, xK_y), runCommand commands) + commandMap :: [(String, X ())] -> M.Map String (X ()) commandMap c = M.fromList c |