                     [:a {:on-click #(remove-filter idx)} [:i.material-icons "delete"]]
                     ]]) @filters)])
 
-(defn Examples [filter-examples]
+(defn Examples [current-profile filter-examples]
   [:ul.collection
    (map-indexed (fn [idx filter]
                   ^{:key filter}
-                  [:li.collection-item filter [:a.secondary-content {:on-click #(add-filter filter)} [:i.material-icons "playlist_add"]]]) filter-examples)])
+                  [:li.collection-item filter [:a.secondary-content {:on-click #(add-filter @current-profile filter)} [:i.material-icons "playlist_add"]]]) filter-examples)])
 
 (defn Filters []
-  (let [inputatm (atom "")]
+  (let [inputatm (atom "")
+        current-profile (atom nil)
+        current-profile-str (atom "")]
+    (go
+      (let [profile (reset! current-profile (<! (genome/<current-user-profile)))]
+        (reset! current-profile-str (-> profile prettify ))))
     (fn []
       [:div
        [:h3 "Filters"]
        [Current-Filters inputatm]
-       [New-Filter-Field inputatm]
+       [New-Filter-Field current-profile inputatm]
        [:hr]
        [:h3 "Examples"]
        [:p "Here are some example filters to get you started!"]
-       [Examples [
-                  "(startsWith? :FirstName \"M\")" 
-                  "(= :LaborRoleID \"APPLDEVL\")"
-                  "(substring? :Title \"Quality\")"
-                  "(= :KeyscanStatus \"In 4th Flr N\")"
-                  "(or (startsWith? :FirstName \"M\") (substring? :Title \"Edit\"))"
+       [Examples current-profile [
+                                  "(startsWith? :FirstName \"M\")" 
+                                  "(= :LaborRoleID \"APPLDEVL\")"
+                                  "(= :WorkTeamID $WorkTeamID)"
+                                  "(substring? :Title \"Quality\")"
+                                  "(>= :UserID $UserID)"
+                                  "(= :KeyscanStatus \"In 4th Flr N\")"
+                                  "(or (startsWith? :FirstName \"M\") (substring? :Title \"Edit\"))"
                   ]]
        [:hr]
        [:h3 "References"]
-       [Instructions]])))
+       [Instructions current-profile-str]])))
 
 (defn current-page []
   [:div [(session/get :current-page)]])

      (println "Error while evaluating string")
      (prn e))))

;; Todo: Add ":my-bla"
(defn create-filter-fn 
  "Creates a filter function of the form:
  (fn [user] expr-as-fn)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; filter functions
(defn add-filter 
  [profile filter-str]
  (let [transformed-filter (replace-current-user-symbols profile filter-str)]
    (if transformed-filter
      (do
        (swap! filters conj transformed-filter)
        transformed-filter)
      nil)))

(defn vec-remove
  "remove elem in coll"
