command.ml

type file_name = string

type commit_msg = string

type branch_name = string

type key = int

type t =
  | Stage
  | Unstage
  | Quit
  | NavUp of bool
  | NavDown of bool
  | Commit of string
  | DiffMenu
  | DiffFile
  | DiffTracked
  | DiffStaged
  | DiffAll
  | PullMenu
  | Pull of string * string * string
  | PushMenu
  | Push of string * string * string
  | BranchMenu
  | CheckoutBranchPrompt
  | CreateBranchPrompt
  | DeleteBranchPrompt
  | CheckoutBranch of string
  | CreateBranch of string
  | DeleteBranch of string
  | NormalTutorial
  | BackNormal
  | DiffTutorial
  | BackDiff
  | BranchTutorial
  | BackBranch
  | PullTutorial
  | BackPull
  | PushTutorial
  | BackPush
  | StashTutorial
  | BackStash
  | ResetTutorial
  | BackReset
  | Stash
  | StashPop
  | StashApply
  | All
  | StageAll
  | UnstageAll
  | ResetMenu
  | ResetHard of string
  | ResetSoft of string
  | Clear
  | Nop

exception Program_terminate

let parse_key key =
  if key = int_of_char 's' then Stage
  else if key = int_of_char 'u' then Unstage
  else if key = int_of_char 'k' || key = Curses.Key.up then NavUp true
  else if key = int_of_char 'j' || key = Curses.Key.down then
    NavDown true
  else if key = int_of_char 'q' then Quit
  else if key = int_of_char 'c' then Commit ""
  else if key = int_of_char 'D' then DiffMenu
  else if key = int_of_char 'L' then PullMenu
  else if key = int_of_char 'P' then PushMenu
  else if key = int_of_char ' ' then Clear
  else if key = int_of_char 'b' then BranchMenu
  else if key = int_of_char 'i' then NormalTutorial
  else if key = int_of_char 'S' then Stash
  else if key = int_of_char 'a' then All
  else if key = int_of_char 'y' then StageAll
  else if key = int_of_char 'w' then UnstageAll
  else if key = int_of_char 'R' then ResetMenu
  else Nop

let parse_key_diff_mode key =
  if key = int_of_char 's' then DiffStaged
  else if key = int_of_char 't' then DiffTracked
  else if key = int_of_char 'a' then DiffAll
  else if key = int_of_char 'f' then DiffFile
  else if key = int_of_char 'i' then DiffTutorial
  else parse_key key

let parse_key_pull_mode key =
  if key = int_of_char 'p' then Pull ("", "", "remote")
  else if key = int_of_char 'u' then Pull ("", "", "master")
  else if key = int_of_char 'e' then Pull ("", "", "")
  else if key = int_of_char 'i' then PullTutorial
  else parse_key key

let parse_key_push_mode key =
  if key = int_of_char 'p' then Push ("", "", "remote")
  else if key = int_of_char 'u' then Push ("", "", "master")
  else if key = int_of_char 'e' then Push ("", "", "")
  else if key = int_of_char 'i' then PushTutorial
  else parse_key key

let parse_key_branch_mode key =
  if key = int_of_char 'b' then CheckoutBranchPrompt
  else if key = int_of_char 'c' then CreateBranchPrompt
  else if key = int_of_char 'x' then DeleteBranchPrompt
  else if key = int_of_char 'i' then BranchTutorial
  else parse_key key

let parse_key_stash_mode key =
  if key = int_of_char 'p' then StashPop
  else if key = int_of_char 'a' then StashApply
  else if key = int_of_char 'i' then StashTutorial
  else parse_key key

let parse_key_reset_mode key =
  if key = int_of_char 'h' then ResetHard ""
  else if key = int_of_char 's' then ResetSoft ""
  else if key = int_of_char 'i' then ResetTutorial
  else parse_key key

let parse_key_normal_tutorial key =
  if key = int_of_char 'i' then BackNormal else parse_key key

let parse_key_diff_tutorial key =
  if key = int_of_char 'i' then BackDiff else parse_key_diff_mode key

let parse_key_pull_tutorial key =
  if key = int_of_char 'i' then BackPull else parse_key_pull_mode key

let parse_key_push_tutorial key =
  if key = int_of_char 'i' then BackPush else parse_key_push_mode key

let parse_key_branch_tutorial key =
  if key = int_of_char 'i' then BackBranch
  else parse_key_branch_mode key

let parse_key_stash_tutorial key =
  if key = int_of_char 'i' then BackStash else parse_key_stash_mode key

let parse_key_reset_tutorial key =
  if key = int_of_char 'i' then BackReset else parse_key_reset_mode key

let string_of_cmd cmd =
  match cmd with
  | Stage -> "stage"
  | Unstage -> "unstage"
  | NavUp _ -> "navup"
  | NavDown _ -> "navdown"
  | Commit _ -> "commit"
  | DiffMenu -> "diff"
  | DiffStaged -> "diff"
  | DiffTracked -> "diff"
  | DiffFile -> "diff"
  | DiffAll -> "diff"
  | Pull (_, _, _) -> "pull"
  | PullMenu -> "pull"
  | PushMenu -> "push"
  | Push (_, _, _) -> "push"
  | BranchMenu -> "branch"
  | CheckoutBranchPrompt -> "checkout branch prompt"
  | CreateBranchPrompt -> "create branch prompt"
  | DeleteBranchPrompt -> "delete branch prompt"
  | CheckoutBranch _ -> "checkout branch"
  | CreateBranch _ -> "create branch"
  | DeleteBranch _ -> "delete branch"
  | Clear -> "clear"
  | Quit -> "quit"
  | NormalTutorial -> "tutorial"
  | DiffTutorial -> "tutorial"
  | PullTutorial -> "tutorial"
  | PushTutorial -> "tutorial"
  | BranchTutorial -> "tutorial"
  | StashTutorial -> "tutorial"
  | BackStash -> "tutorial"
  | ResetTutorial -> "tutorial"
  | BackReset -> "tutorial"
  | BackNormal -> "back"
  | BackDiff -> "back"
  | BackPull -> "back"
  | BackPush -> "back"
  | BackBranch -> "back"
  | Stash -> "stash"
  | StashPop -> "stash"
  | StashApply -> "apply"
  | StageAll -> "stage all files"
  | UnstageAll -> "unstage all files"
  | All -> "Push all files"
  | ResetMenu -> "reset"
  | ResetHard _ -> "reset"
  | ResetSoft _ -> "reset"
  | Nop -> "nop"