make right and left navigate; add git commit to plist

Makefile

@@ -1,5 +1,5 @@
 why.app: why documentTypes.plist
-	go tool appify -author "David Ashby" -id "in.yetaga.why" -name "why" -icon ./icon.png -plist ./documentTypes.plist ./why
+	go tool appify -author "David Ashby" -version `git rev-parse --short HEAD` -id "in.yetaga.why" -name "why" -icon ./icon.png -plist ./documentTypes.plist ./why
 	rm why.app/Contents/README
 
 documentTypes.plist: filetypes/filetypes.go filetypes/cmd/gen.go

main.go

@@ -232,7 +232,7 @@ func main() {
 				// list closed by 'a'
 				destroyFileList(true)
 			}
-		case "Up":
+		case "Up", "Right":
 			if curr > 0 {
 				updateImage(filepath.Join(directoryState.currentDirectory, directoryState.images[curr-1]), img)
 				if lb != nil {
@@ -241,7 +241,7 @@ func main() {
 					lb.See(curr - 1)
 				}
 			}
-		case "Down":
+		case "Down", "Left":
 			if curr < len(directoryState.images)-1 && curr != -1 {
 				updateImage(filepath.Join(directoryState.currentDirectory, directoryState.images[curr+1]), img)
 				if lb != nil {