--- a/src/editor.tp	Tue Aug 06 00:53:03 2013 -0700
+++ b/src/editor.tp	Wed Aug 07 10:01:28 2013 -0700
@@ -49,18 +49,22 @@
 		stopPropagation <- :Blah {
 		}
 	}
+
 	selection <- #{
 		valid? <- true
 		in <- {
 			(innode domNode) onclick: fakeEvent
 		}
 		out <- {
-			fakeEvent <- #{
-				stopPropagation <- :Blah {
-				}
-			}
 			((astnode up) domNode) onclick: fakeEvent
 		}
+		next <- {
+			(((astnode up) getNext: astnode) domNode) onclick: fakeEvent
+		}
+
+		previous <- {
+			(((astnode up) getPrev: astnode) domNode) onclick: fakeEvent
+		}
 	}
 }
 
@@ -80,6 +84,13 @@
 			}
 			((astnode up) domNode) onclick: fakeEvent
 		}
+		next <- {
+			console log: "selection next"
+			(((astnode up) getNext: astnode) domNode) onclick: fakeEvent
+		}
+		previous <- {
+			(((astnode up) getPrev: astnode) domNode) onclick: fakeEvent
+		}
 	}
 }
 
@@ -321,6 +332,18 @@
 		}
 	}
 
+	(q: "#next") onclick!: :event {
+		if: (selection valid?) {
+			selection next
+		}
+	}
+
+	(q: "#prev") onclick!: :event {
+		if: (selection valid?) {
+			selection previous
+		}
+	}
+
 	path <- (window location) pathname
 	if: (path indexOf: "/edit/") = 0 {
 		editFile: (path substr: 5)