noisesmith

(defn now-plus [n]
  "Returns current time plus `n` minutes as string"
  (let [f (SimpleDateFormat. "yyyy-MM-dd'T'HH:mm:ss.SSS'Z'")]
    (.setTimeZone f (TimeZone/getTimeZone "GMT" ))
    (.format f (Date. (+ (System/currentTimeMillis) (* n 60 1000))))))

noisesmith

(ns driver
  (:require type))

(defn reproduce
  []
  (println (= type.Type (class (type/->Type)))))

noisesmith

{["e" "i"] 1864658105,
 ["c" "e"] 366389557,
 ["w" "e"] 693805971,
 ["v" "w"] 311238704,
 ["o" "v"] 1348289060,
 ["g" "o"] 1895243578,
 ["a" "t"] 443334995,
 ["h" "h"] 21807643,
 ["t" "m"] 797779624,
 ["l" "h"] 1961272944,

noisesmith

(ns clojure.gdx.myscreen
  (:import (com.badlogic.gdx Gdx Screen)
           (com.badlogic.gdx.scenes.scene2d Stage)
           (com.badlogic.gdx.scenes.scene2d.ui Label Label$LabelStyle)
           (com.badlogic.gdx.graphics Color)
           (com.badlogic.gdx.graphics.g2d BitmapFont)
           (com.badlogic.gdx.graphics.g2d SpriteBatch)))

(declare ^Stage stage)

noisesmith

Clojure 1.7.0
user=> (require '[clojure.core.async :as > :refer [chan go go-loop thread <! >! <!! >!!]])
nil
user=> (def requests (chan))
#'user/requests
user=> (def results (chan))
#'user/results
user=> (go-loop [result "\n\ninit\n\n"] (println "got" (subs result 0 (min (count result) 10))) (recur (<! results)))
#object[clojure.core.async.impl.channels.ManyToManyChannel 0x45273d40 "clojure.core.async.impl.channels.ManyToManyChannel@45273d40"]
user=> got 

noisesmith

(defn home-api-map
  []
  { :banner (model/pick :banner {:where {:slug "home"}})
    :intro-headline (model/pick :headline {:where {:slug "intro"}})
    :intro-slides (model/gather :slides {:where {:slug "intro"} :include {:slides {}}})
    :intro-highlights (model/gather :highlight {:where {:slug "intro"}})
    :tenants (model/gather :tenant)
    :partners (model/gather :neighborhood-partner)
    :whats-here-headline (model/pick :headline {:where {:slug "whats-here"}})
    :project-highlights (model/gather :project-highlights {:include {:highlights {}}})

noisesmith

(ns client (:require [world :refer [map->World]]))

(map->World {})

noisesmith

$ rlwrap java -cp bench.jar clojure.main
Clojure 1.7.0
user=> (deftype T [] Object (finalize [this] (println "gone")))
user.T
user=> (let [t (T.)] (type t))
user.T
user=> (reduce +' (range 999999999))
gone

noisesmith

user=> (ns foo (:import [java.util.Date]))
nil
foo=> (Date.)
CompilerException java.lang.IllegalArgumentException: Unable to resolve classname: Date, compiling:(NO_SOURCE_PATH:21:1) 
foo=> (ns foo (:import java.util.Date))
nil
foo=> (Date.)
#inst "2015-12-20T13:39:43.209-00:00"

noisesmith

kingfisher.core=> (s/check {s/Any s/Any} {"ooh" "OK"})
nil
kingfisher.core=> (s/defschema MySchema {:query {s/Any s/Any} :some_id java.lang.Long :foos {s/Any s/Any} :id String})
#'kingfisher.core/MySchema
kingfisher.core=> (s/check MySchema {:query {}})
{:some_id missing-required-key, :foos missing-required-key, :id missing-required-key}
kingfisher.core=> (s/check MySchema {:query {} :some_id 1 :foos {} :id "OK"})
nil