   (add-navigation-chan! history ch token->historian))
 
 (defn update-token-ids! [history k v]
-  (prn "history: " history)
   (let [{:keys [ids] :as tmap} (token-as-map history)
         new-ids (reduce-kv (fn [m k' v']
                                (if (= k k')

            (take-while identity)
            (interpose \,)
            (apply str)) 
       (when (pos? (count search)) (str "/search/" search))))

(defn- get-token [history]
   (.getToken history))

                                 (assoc m k' v')))
                             (new-historian-map k v)
                             ids)]
    (set-token! history (assoc tmap :ids new-ids) historian->token)))

(defn set-token-search! [history xs]
  (let [{:keys [search] :as tmap} (token-as-map history)]
    (set-token! history (assoc tmap :search 
                               (map goog.string/urlEncode xs)) 
                historian->token)))
