From a2ceae3cf6f302de2420f072238a29c9fbe8d974 Mon Sep 17 00:00:00 2001 From: Alex Tarkovsky Date: Wed, 5 Sep 2007 22:01:28 +0200 Subject: Docstring parser for generating xmonad build configs with default settings for extensions darcs-hash:20070905200128-bd4fb-ff90db3eb7ebce6ea75956f19ebc6c35d36c08d4.gz --- Commands.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Commands.hs') 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 -- cgit v1.2.3