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
(ns metosin.dates | |
"Use this namespace to format dates and datetimes for user. | |
Don't use for serializing or deserializing. | |
Clojure side uses always Helsinki timezone. | |
On Cljs side, uses the timezone of browser." | |
#?(:cljs (:require goog.date.UtcDateTime | |
goog.date.Date | |
goog.i18n.DateTimeFormat)) | |
#?(:clj (:import [org.joda.time DateTimeZone]))) |
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
(ns bio.nebula.client | |
"State handler for all of the client-side stuff." | |
(:require-macros [javelin.core :refer [defc defc= cell=]] | |
[hoplon.core :refer [loop-tpl defelem]]) | |
(:require | |
[javelin.core :as j :refer [cell]] | |
[castra.core :as c :refer [mkremote]] | |
[hoplon.core :as h])) | |
;; card component state |
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
(boot/deftask yaml-to-json | |
"Convert YAML file to JSON." | |
[] | |
(let [tmp (boot/tmp-dir!)] | |
(comp (boot/with-pre-wrap fileset | |
(doseq [f (->> fileset boot/input-files)] | |
(let [in-file (tmpd/file f) | |
in-path (tmpd/path f) | |
out-path (change-file-ext in-path "json") | |
out-file (io/file tmp out-path) |
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
(page "test.html") | |
(defc working-set []) | |
(def indexed (partial map-indexed list)) | |
(defn setup-working-set | |
"Initially populate the working set - normally the res" | |
[data] | |
(let [wset (map (fn [c] [c false]) data)] |
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
;; -*- mode: clojure; -*- | |
(set-env! | |
:src-paths #{"src/clj" "src/cljs"} | |
:rsc-paths #{"resources"} | |
:update :always | |
:dependencies '[[org.clojure/clojure "1.7.0-alpha4"] | |
[org.clojure/core.async "0.1.346.0-17112a-alpha"] | |
[com.taoensso/timbre "3.3.1-1cd4b70"] | |
[http-kit "2.1.19"] |