 																				 :email      "stullrich@tomicowski.com"}}])
 
 
+;; App State
+;; ---------
+
+(defonce app-state (atom {:proposals hardcoded-proposals
+													:search    ""}))
+
+
+(defn update-search
+	"Updates :search in app-state"
+	[app-state new-search]
+	(assoc app-state :search new-search))
 
 
 ;; Search logic

	 [:img.img-circle.img-thumb {:src avatar-url}]
	 [:span.nickname nickname]])

(defn nav-link [uri title page collapsed?]
	[:li {:class (when (= page (session/get :page)) "active")}
	 [:a {:href     uri
				:on-click #(reset! collapsed? true)}
		title]])


(defn navbar []
	(let [collapsed? (atom true)]
		(fn []
			[:nav.navbar.navbar-inverse.navbar-fixed-top

					[nav-link "#/rich-says" "Rich says" :rich-says collapsed?]
					[nav-link "#/proposal" "Proposals" :proposal collapsed?]]]]])))

(defn rich-says-page "Rich's cites page " []
	[:div.contain
	 [:div.row]
	 [:div.col-md-6
