[Fencommits] fenserve: make it possible to move around

[Benja Fallenstein]

Mon Mar 26 03:54:00 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * make it possible to move around
diff -rN -u old-fenserve/vanishing-demo.page new-fenserve/vanishing-demo.page
--- old-fenserve/vanishing-demo.page	2007-03-26 03:54:07.000000000 +0300
+++ new-fenserve/vanishing-demo.page	2007-03-26 03:54:07.000000000 +0300
@@ -122,7 +122,7 @@
                         placeConns rotation' (rev dir) False
     -- place one node view
     placeNode (Rotation node _) = do
-        placeVob (pcdata $ getTextOrIRI node)
+        placeVob $ <a href=("?node="++show node)><% getTextOrIRI node %></a>
         
     getScale :: VV Double
     getScale = do d <- asks vvDepth; return (0.97 ** fromIntegral d)
@@ -190,6 +190,7 @@
 handler req = do
     Right (FileEntry r) <- getEntry ["testdata","blog"]
     graph <- readGraph (bID r)
+    let node = maybe (IRI "ex:post") read $ lookM req "node"
     let ?vs = ViewSettings { hiddenProps=[rdfs_label], maxCenter=3 } in
-        pageHandler (vanishingView 20 30 graph (Path (IRI "ex:post") [])) req
+        pageHandler (vanishingView 20 30 graph (Path node [])) req