;; Unlike JavaScript there is no hoisting in ClojureScript. ClojureScript has lexical scoping.

(def some-x 1)

(let [some-x 2]
  some-x)


;; functions parameters, let bindings locals, and loop locals are not mutable!

(let [fns (loop [i 0 ret []]
            (if (< i 10)
              (recur (inc i) (conj ret (fn [] i)))
              ret))]
  (map #(%) fns))

; simple function
(defn add [a b]
  (+ a b))

;; function with multiple args and default values
(defn another-function
  ([x] (defaults x :default))
  ([x y] [x y]))


;; closure

(let [a 1e3]
  (defn foo []
    (* a a))
  (defn bar []
    (+ (foo) a)))


;; higher order functions

(def a-vector [1 2 3 4 5])


(def a-nested-map 
  {:customer-id 1e6
   :preferences {:nickname "Bob"
                 :avatar "http://en.gravatar.com/userimage/0/0.jpg"}
                 :services {:alerts {:daily true}}})


(def complex-map 
  {[1 2] :one-two 
   [3 4] :three-four})


(def a-set 
  #{:cat :dog :bird})

(defn clearfix [clazz]
  [clazz {:*zoom 1}
   [:&:before :&:after {:display "table"
                        :content " "
                        :line-height 0}]
   [:&:after {:clear "both"}]])

(def header-snippet
  [:header
   [:h1 "Mala"]
   [:h3 "A User Interface template in Clojurescript."]])

(def footer-snippet
  [:footer
   [:a {:href "https://twitter.com/priyatam"} "@priyatam"]])


(defn view [{:keys [active path name]}]
  (html
   [:section {:class "home"}
    header-snippet
    [:nav
     [:ul
      [:li {:class (if active "active" "")}
       [:a {:href (str "#" path)} name]]]]
    footer-snippet]))

;; Plain old Ajax

(defn handler [response]
  (.log js/console (str response)))

(defn error-handler [{:keys [status status-text]}]
  (.log js/console (str "something bad happened: " status " " status-text)))

(GET "/hello" {:handler handler
               :error-handler error-handler})


;; Core.Async

(defn GET [res handler]
  (go (let [response (<! (http/get res {:with-credentials? false}))]
        (logp (:body response))
        (handler (:body response)))))

(ns brutha.example
  (:require [brutha.core :as br :refer [mount]]
            [sablono.dom :as dom]))
            
(mount 
  (html [:p "Hello World"]) 
  (js/document.getElementById "app"))            
            

;; list comprehension
(for [x (range 1 10)
      y (range 1 10)
      :when (and (zero? (rem x y))
                 (even? (quot x y)))]
  [x y])

;; higher order functions over sequences
(map inc [0 1 2 3 4 5 6 7 8 9])

(filter even? (range 10))

(reduce + (range 100))

(partition 2 [:a 1 :b 2 :c 3 :d 4 :e 5])

(remove odd? (range 10))

(take 5 (interleave (repeat "red") (repeat "blue")))