LambdaHack-0.1.20110117: src/Keybindings.hs

module Keybindings where

import Control.Monad
import Control.Monad.State hiding (State)
import Data.Map as M

import Action
import Command
import Display2
import Keys as K

-- | Keybindings.
data Keybindings = Keybindings
  { kdir   :: DirCommand,
    kudir  :: DirCommand,
    kother :: M.Map K.Key Command
  }

handleKey :: Keybindings -> K.Key -> Action ()
handleKey kb k =
  do
    handleDirection k (caction $ kdir kb) $
      handleUDirection k (caction $ kudir kb) $
        case M.lookup k (kother kb) of
          Just c  -> caction c
          Nothing -> abortWith $ "unknown command (" ++ K.showKey k ++ ")"

keyHelp :: Keybindings -> String
keyHelp kb =
  let
    fmt k h = replicate 15 ' ' ++ k ++ replicate ((13 - length k) `max` 1) ' ' ++
                                  h ++ replicate ((30 - length h) `max` 1) ' '
    fmts s  = replicate 15 ' ' ++ s ++ replicate ((43 - length s) `max` 1) ' '
    blank   = fmt "" ""
    title   = fmt "key" "command"
    footer  = fmts "(See file PLAYING.markdown.)"
    rest    = [ fmt (K.showKey k) h | (k, Described h _) <- M.toAscList (kother kb) ]
  in
    unlines ([blank, title] ++ rest ++ [blank, footer, blank])