This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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)}))] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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"]]) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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"] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defmacro with-debug | |
[& body] | |
('binding [`*debug* true] `(do ~@body))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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]] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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))))) | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<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> | |
OlderNewer