From 3fdf270456da15447c5a57851610888e2f510574 Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Mon, 10 Nov 2014 20:00:25 +0100
Subject: Add commands A and Z

---
 judge/main.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'judge')

diff --git a/judge/main.ml b/judge/main.ml
index 18cba43..47d29ba 100644
--- a/judge/main.ml
+++ b/judge/main.ml
@@ -75,6 +75,8 @@ end = struct
         curr_view := NavGame (g, n+1)
       | NavGame (g, n), 'f' when n = List.length (C.hist g) - 1 ->
         curr_view := NavGame (g, -1)
+      | NavGame(g, _), 'a' -> curr_view := NavGame(g, 0)
+      | NavGame(g, _), 'z' -> curr_view := NavGame(g, -1)
       | ViewLastGame, '\t' | NavGame _, '\t' -> curr_view := MatchList false
       | Question(_, y, n), 'y' -> y()
       | Question(_, y, n), 'n' -> curr_view := n
-- 
cgit v1.2.3