rwillig

(defelem info  [{:keys  [id title body]} _]
  (let [mark (cell=  (first (filter #(= (:id %) id) markers)))]
    (div 
      (strong title )
      (p body)
      (div :toggle (cell= (not (nil? (:rt-position mark)))) 
          (div :text (cell= (str "Route Position: " (:rt-position mark))))
          (div :text (cell= (str "Miles from route start: " (meters->miles (:distance mark)))))
          (div :text (cell= (let [t  (.clone shift-start)
                                t  (.add t (clj->js {:seconds (:duration mark)}))] 

rwillig

(set-env!
  :resource-paths #{"src/clj"}
  :wagons       '[[s3-wagon-private  "1.1.2"]]
  :repositories #(conj % ["private"  {:url  "s3p://rsw-hdfs/releases/"
                                            :username (System/getenv "AWS_KEY") 
                                            :passphrase (System/getenv "AWS_PASS")}])
  :dependencies '[[org.clojure/clojure "1.6.0"]
                  [clj-time "0.8.0"]
                  [raywillig/geo-graph "0.0.5"]
                  [org.clojure/math.combinatorics "0.0.4"]])

rwillig

(set-env!
  :resource-paths #{"src/clj"}
  :repositories #(conj % ["private"  {:url  "s3p://rsw-hdfs/releases/"
                                            :username (System/getenv "AWS_KEY") 
                                            :passphrase (System/getenv "AWS_PASS")}])
  :dependencies '[[org.clojure/clojure "1.6.0"]
                  [ring "1.3.1"]
                  [tsp "2.1.2"]
                  [pandeiro/boot-http  "0.4.2"]
                  [metosin/ring-http-response "0.5.2"]

rwillig

(defn sign [url secret]
  (let [key (prepare-secret secret)
        key-spec (SecretKeySpec. key "HmacSHA1")
        uri (uri/uri url)
        request (str (:path uri) "?" (:query uri))
        mac (Mac/getInstance "HmacSHA1")
        n (. mac init key-spec)
        sig-bytes (. mac doFinal (.getBytes request))
        sig (Base64/encodeBase64URLSafeString sig-bytes)]
    sig))

rwillig

(defmacro with-debug
  [& body]
  ('binding [`*debug* true] `(do ~@body)))

rwillig

Ray-Willigs-MBP:google-maps ray$ jar tvf target/google-maps-3.18.jar 
   104 Thu Feb 05 17:41:54 EST 2015 META-INF/MANIFEST.MF
     0 Tue Jan 01 00:00:00 EST 1980 cljsjs/common/
     0 Tue Jan 01 00:00:00 EST 1980 cljsjs/
125718 Thu Feb 05 17:09:58 EST 2015 cljsjs/common/google_maps_api_v3.ext.js
     0 Tue Jan 01 00:00:00 EST 1980 META-INF/maven/cljsjs/google-maps/
     0 Tue Jan 01 00:00:00 EST 1980 META-INF/maven/cljsjs/
     0 Tue Jan 01 00:00:00 EST 1980 META-INF/maven/
     0 Tue Jan 01 00:00:00 EST 1980 META-INF/
  1246 Thu Feb 05 17:41:54 EST 2015 META-INF/maven/cljsjs/google-maps/pom.xml

rwillig

(set-env!
  :dependencies  '[[adzerk/boot-cljs          "0.0-2727-0"      :scope "test"]
                   [adzerk/boot-cljs-repl     "0.1.8"           :scope "test"]
                   [adzerk/boot-reload        "0.2.4"           :scope "test"]
                   [tailrecursion/boot-ring   "0.1.0"           :scope "test"]]
  :asset-paths    #{"assets"}
  :target-path    "resources/public")

(require
  '[adzerk.boot-cljs :refer [cljs]]

rwillig

(deftask prod
  "Build for production deployment."
  []
  (comp
    (sass :sass-file  "application.scss" :output-dir "css")
    (hoplon)
    (cljs :optimizations :advanced)))

(deftask package
  "package uberwar for tomcat"

rwillig

(defelem donor-comment [{:keys [donor quote pic] :as attr} _]
  (let [preamble    (span :class="bold-text" "“We support " 
                          (span :class "red-text" "SUPPORT")
                         " Chabad on Campus because " )
        quote-span  (p :class "comment-text" (preamble) @quote)
        img         (if @pic (img :src @pic) (div))
        attribution (h6 :class "text-right text-uppercase" @donor)]
    (div :class "comment" (img) (quote-span "”"  (attribution)))))

rwillig

                      <loop-tpl bindings='{{ [[k {:keys [donor photo quote] :as the-donor}] (cell= (map-indexed vector app/testimonials))]   }}'>
                        <app.donor-comment donor='{{ donor }}' pic='{{ photo}}' quote='{{ quote }}'></app.donor-comment>
                      </loop-tpl>