 
 (defn RCard [user]
   (let [revealed? (atom false)
-        reveal-div-pos (anim/interpolate-if revealed? -300 60)]
+        reveal-div-pos (anim/interpolate-if revealed? -300 70)]
     (fn [user]
       (let [{:keys [id photo name title dept]} user]
         [:div {:class "z-depth-2"

          (when @revealed?
            [:div.row {:style {:margin-bottom 0}}
             [:div  {:style {:position :absolute
                             :bottom @reveal-div-pos 
                             :background :white
                             :width 520
                             :height 220
                             :opacity 0.6}}]
             
             [:div  {:style {:position :absolute
                             :bottom @reveal-div-pos 
                             :width 520
                             :height 220}}
              [:p
               [:h1 name]
               [:h5 title]

        search-results (atom [])
        search-channel (chan)
        <search-user-delayed (debounce search-channel 300)]
    (go-loop []
      (let [keyword (<! <search-user-delayed)
            result (<! (<search-user keyword))]
