roguestar-gl-0.4.0.0: src/CommandLine.hs

module CommandLine(CommandLineOptions, keymap_name, parseCommandLine) where

import Keymaps.Keymaps

data CommandLineOptions = CommandLineOptions {
	keymap_name :: Maybe KeymapName
}

-- Extremely minimal implementation for now: switch to System.Console.GetOpt or just use a config. file?
parseCommandLine :: [String] -> CommandLineOptions
parseCommandLine [the_keymap_name] = CommandLineOptions $ Just the_keymap_name
parseCommandLine _ = CommandLineOptions Nothing