Hoplon Forex

hoplon-forex.clj

(page "index.html"
  (:require [ajax.core :refer [GET POST]]))

(def url "http://127.0.0.1:4567/currencies")
(def currencies (cell []))
(def from (cell "USD"))
(def to (cell "USD"))
(def result (cell nil))

(GET url
  {:keywords? true
   :response-format :json
   :handler (fn [res]
              (->> res
                   :currencies
                   (swap! currencies concat)))})

(defn convert
  [from to]
  (GET (str "http://127.0.0.1:4567/" from "/to/" to)
      {:keywords? true
       :response-format :json
       :handler #(reset! result %)}))

(defn get-options
  [currencies]
  (map #(option :value % %) currencies))

(html
  (head
    (link :href "app.css" :rel "stylesheet" :type "text/css"))
  (body
    (h1 "Hoplon Forex")
    (div
      (select
        :change #(reset! from @%)
        :style "margin: 20px"
        (cell= (get-options currencies)))
      (select
        :change #(reset! to @%)
        :style "margin: 20px"
        (cell= (get-options currencies)))
      (button "Convert"
        :click #(convert @from @to))
      (p "Result"
        (cell= result)))))