 					[nav-link "#/rich-says" "Rich says" :rich-says collapsed?]
 					[nav-link "#/proposal" "Proposals" :proposal collapsed?]]]]])))
 
-(defn rich-says-page []
+(defn rich-says-page "Rich's cites page " []
 	[:div.contain
 	 [:div.row]
 	 [:div.col-md-6

		[:h1 "Rich says:"]
		[:blockquote>span.speech "Write code in Clojure or i kill you!!!"]]])

(defn proposal-page []
	[:div.contain
	 [:div.row
		[:div.col-md-12
		 [:img.proposal-img.pull-left {:src "/img/proposal.jpg"}]
		 [:h1
			"Proposals"]
		 [proposal-list hardcoded-proposals]]]])

(defn home-page []
	[:div.container
	 [:div.jumbotron
		[:h1 "Welcome to club_of_naaarfs"]

																				 :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
