jebberjeb

(def ->num {["   "
             "  |"
             "  |"
             "   "] 1
            [" _ "
             " _|"
             "|_ "
             "   "] 2
            [" _ "
             " _|"

jebberjeb

(defmacro ->j-fn [j-fn]
  (let [args (gensym "args")] 
    `(fn [~args] 
       (eval (cons '~j-fn (if (coll? ~args) ~args (list ~args)))))))

;trivial 
((->j-fn .length) "foo")

;useful, since you can't do (map .length ["foo" "bar"])
(map (->j-fn .length) ["foo" "bar"])

jebberjeb

(let [foo {:Error "an error"}
      baz {:Info {:RowsUpdated "some info"}}]

(condp #(get-in %2 %1) baz 
  [:Info :RowsUpdated]  :>> (fn [msg] {:msg msg})
  [:Error] :>> (fn [msg] {:msg msg})))

#_(pred test-expr expr)

jebberjeb

(defn flip [f]
  "Create a function of f, with the argument order reversed"
  (fn [& args]
    (apply f (reverse args))))

((flip get-in) [:foo :bar] {:foo {:bar "foo bar"}})
;=> "foo bar" 

jebberjeb

(ns timbre-test.core
  (:require [taoensso.timbre.profiling :as profiling :refer (p profile)]))

;; Profile partial vs #/fn
(let [padd (partial + 5)
      fadd (fn [n] (+ 5 n)) 
      aadd #(+ % 5)] 

  (defn add-them-all [num]
    (p :partial (padd num))

jebberjeb

!/bin/bash

# paths
CONFUSION_ROOT=~/primedia/confusion
RANDR_ROOT=~/primedia/randr
RNRUI_ROOT=~/primedia/rnr_ui
PORTAL_ROOT=~/primedia/portal
PROXY_ROOT=~

PROXY_APP=ngrok

jebberjeb

START CR3

• Start/Stop of all (7) CR3 Servies:

  • confusion (vagrant & rackup)
  • randr
  • rnr_ui w/ tunnel
  • portal w/ tunnel

• Also layout w/in console

jebberjeb

Enfocus

Why

• We've been evaluating full-stack Clojure options
• Compelling video Brian sent out - http://www.youtube.com/watch?v=jj6eQieGWqo

What is Enfocus2

• Client-side presentation (templating) library -- more about DOM transforms

jebberjeb

(ns test-app.core)

(defn do-it-slow!
  [sleep-time]
  (Thread/sleep sleep-time))

(defn mk-future
  [sleep-time]
  (future (do-it-slow! sleep-time)))

jebberjeb

(*' Long/MAX_VALUE 2)
(* Long/MAX_VALUE 2)