[Fencommits] fenfire-hs: 'goto' action (bound to 'g')

[Benja Fallenstein]

Tue Mar 13 16:16:52 EET 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * 'goto' action (bound to 'g')
diff -rN -u old-fenfire-hs/Fenfire/Main.hs new-fenfire-hs/Fenfire/Main.hs
--- old-fenfire-hs/Fenfire/Main.hs	2007-03-13 16:17:06.000000000 +0200
+++ new-fenfire-hs/Fenfire/Main.hs	2007-03-13 16:17:06.000000000 +0200
@@ -170,6 +170,7 @@
         x | x == "Down"  || x == "comma" -> handleAction "down"
         x | x == "Left"  || x == "j"     -> handleAction "left"
         x | x == "Right" || x == "l"     -> handleAction "right"
+        "g" -> handleAction "goto"
         "v" -> handleAction "chgview"
         "p" -> handleAction "resetprop"
         "O" -> handleAction "open"
@@ -256,7 +257,10 @@
                                (graphNamespaces graph) node) $ \uri' ->
                                    put $ stateReplaceNode node
                                        (interpretNode uri') state
-                           _       -> unhandledEvent
+                           _     -> unhandledEvent
+        "goto" -> confirmString "Go to node"
+                      (showNode (graphNamespaces graph) node) $ \s ->
+                          putRotation (Rotation (interpretNode s) 0)
         "undo" | (graph',path'):undos <- fsUndo state -> do
                    put state {fsGraph=graph', fsPath=path', 
                               fsUndo=undos, fsRedo=(graph,path):fsRedo state}