(page "index.html"
  (:require [datascript.core :as d]
            [clojure.string :as cstr]))

(def db (let [schema {:aka {:db/cardinality :db.cardinality/many}}
              conn (d/create-conn schema)]
          (d/transact! conn [ {:db/id -1
                               :name "Maksim"
                               :age 45
                               :aka ["." "Max Otto von Stierlitz", "Jack Ryan"]} ])
          (d/transact! conn [ {:db/id -1
                               :name "Foom"
                               :age 45
                               :aka ["."]} ])
          conn))

(def search-query
  '[:find  ?n (distinct ?k)
    :in $ ?startsWith %
    :where
    (dothings ?startsWith ?e)
    [?e :name ?n]
    [?e :aka ?k]])

(def search-rules
  '[[(dothings ?startsWith ?e)
     [?e :name ?n]
     [(?startsWith ?n)]]
    [(dothings ?startsWith ?e)
     [?e :aka ?n]
     [(?startsWith ?n)]]])

(defn do-query [prefix]
  (d/q search-query
       @db
       (fn [e] (cstr/starts-with? (cstr/lower-case e)
                                  (cstr/lower-case prefix)))
       search-rules))

(def initial-state
  {})

(defn init-search-panel [state]
  (let [initial-search ""
        initial-results (do-query initial-search)]
    (assoc state :search-panel {:current-search initial-search
                                :search-results initial-results})))

(defn init-add-contact [state]
  (assoc state :add-contact {}))

(defc state
  ((comp init-search-panel
         init-add-contact)
   initial-state))

(defc= search-panel
  (get state :search-panel)
  #(dosync
    (swap! state assoc :search-panel %)))

(defc= search
  (get search-panel :current-search)
  #(dosync
    (reset! search-panel {:current-search %
                          :search-results (do-query %)})))

(d/listen! db :datascript->hoplon #(swap! search-panel assoc :search-results
                                          (do-query (:current-search @search-panel))))

(defc= search-results (get search-panel :search-results))

(defc= add-contact-data
  (:add-contact state)
  #(swap! state assoc :add-contact %))

(defc= new-contact-name
  (:name add-contact-data)
  #(swap! add-contact-data assoc :name %))

(defc= new-contact-age
  (:age add-contact-data)
  #(swap! add-contact-data assoc :age %))

(defc= new-contact-aka
  (:aka add-contact-data)
  #(swap! add-contact-data assoc :aka ["." %]))

(defn starts-with? [s ss]
  (cstr/starts-with? s ss))

(def event-value
  #(.-value (.-target %)))

(html
 (head (link :href "app.css" :rel "stylesheet" :type "text/css"))
 (body (h1 "My Contacts")
       (section :id "add-contact"
                (form (input :type "text"
                             :placeholder "name"
                             :value new-contact-name
                             :keyup #(reset! new-contact-name (event-value %)))
                      (input :type "text"
                             :placeholder "age"
                             :value new-contact-age
                             :keyup #(reset! new-contact-age (event-value %)))
                      (input :type "text"
                             :placeholder "aka"
                             :value (cell= (and new-contact-aka (second new-contact-aka)))
                             :keyup #(reset! new-contact-aka (event-value %)))
                      (button :click #(do (.preventDefault %)
                                          (d/transact! db
                                                       [{:db/id -1
                                                         :name @new-contact-name
                                                         :age @new-contact-age
                                                         :aka @new-contact-aka}]))
                              "Add Contact")))
       (section :id "do-search"
                (div search)
                (input :type "text" :value search :keyup #(reset! search (event-value %))
                       :placeholder "query »")

                (div :id "results"
                     (for-tpl [[name aka] search-results]
                       (div (h2 name)
                            (ul
                             (for-tpl [alias (cell= (rest aka))]
                               (li alias)))))))
       ))