 (secretary/defroute "/" []
   (session/put! :current-page #'home-page))
 
+(secretary/defroute "/stalky" []
+  (session/put! :current-page #'Stalky))
+
 (secretary/defroute "/about" []
-  (session/put! :current-page #'about))
+  (session/put! :current-page #'About))
 
 (secretary/defroute "/filters" []
   (session/put! :current-page #'Filters))
+
 ;; -------------------------
 ;; History
 ;; must be called after routes have been defined

;; State

(defonce people-atom (local-storage (atom []) :people))
(defonce filters (local-storage (atom ["(startsWith? :KeyscanStatus \"In\")"]) :filters))

(def all-profile-keys '(:IsObjectivesAdmin :LaborCategoryID :FirstName :LaborRoleID :OversightPercent :WorkTeamID :BusinessUnitName :MobileNumber :PhotoFileName :IsCandidateAdmin :CanCommunicateClient :UserSystemID :Email :CreatedDate :BillingTargetHoursPerYear :Title :MobileNumberCountryCode :IsClient :IsScheduleConfirmationRulesEnforced :LastName :IsScheduleAdmin :UserName :Extension :TimeZoneName :HomeNumber :IsNotAPerson :UserID :KeyscanUpdated :HasDirectReports :IsAdmin :BusinessUnitID :CountryID :CompanyBusinessUnitID :TimeZoneID :PhotoPath :Name :Roles :CompanyBusinessUnitName :IsWeeklyReviewAdmin :Enabled :TagName :Supervisors :KeyscanStatus :OutOfOfficeReason :Status))
; (take! (genome/<get-all-active-klickster-profiles) (fn [profiles] (->> (apply merge profiles ) keys prn)))

       [:h3 "Examples"]
       [:p "Here are some example filters to get you started!"]
       [Examples current-profile [
                                  "(starts-with? :FirstName \"M\")" 
                                  "(= :LaborRoleID \"APPLDEVL\")"
                                  "(= :WorkTeamID $WorkTeamID) ; Klicksters in your team "
                                  "(substring? :Title \"Quality\") ; Klicksters that have 'Quality' in their title"
                                  "(> :UserID $UserID) ; Klicksters that got hired after you"
                                  "(= :KeyscanStatus \"In 4th Flr N\")"
                                  "(or (starts-with? :FirstName \"M\") (substring? :Title \"Edit\"))"
                                  "(starts-with? :KeyscanStatus \"In\")"
                                  "(includes? :Supervisors $UserID) ; Klicksters who report to you"
                  ]]
       [:hr]
       [:h3 "References"]
