 
 (defn text-search-result-state [search-str] ;; dummy state
   (atom {:heading "Suche"
-         :topic (str "Ergebnisse für \"" search-str "\":")
-         :list (filter #(= "-" (:kategorie %))
-                       (read-string (get-stored signmapname)))}))
+         :topic (str "Ergebnisse für \"" search-str "\"")
+         :list (search search-str)}))
 
 (def photo-search-result-state ;; [photo];; dummy state
   (atom {:heading "Suche"



(defn ^:export onDeviceReady []
  (prompt "PhoneGap is working"
          ))


(defn  ^:export initialize []
  (fill-store signmapname)
  (.addEventListener js/document "deviceready" onDeviceReady true))

;;
;; shortcuts for kioo templating

(ns traffic.app
  (:require [traffic.storage :refer [fill-store empty-store get-stored]]
            [clojure.string :refer [split]]
            [kioo.om :refer [content set-attr do-> substitute listen wrap]]
            [kioo.core :refer [handle-wrapper]]
            [om.core :as om :include-macros true]
            [om.dom :as dom :include-macros true]
            [cljs.reader :refer [read-string]]
            [clojure.set :refer [intersection]])
  (:require-macros [kioo.om :refer [defsnippet deftemplate]]))

(declare main-page main-state detail-page)

(def signmapname "traffic-signs")

;;
;; helper functions
;;

(defn get-tags [str]
  (set (split (.toLowerCase str) #"\W+")))


;;
;; Exported functions
