flyingmachine

#name: ns
# --
(in-ns '${1:name})

flyingmachine

#!/usr/bin/env ruby

# Simple, not robust script for pairing sql fields to values
# example usage: pbpaste | ./sql_pairs.rb


sql = STDIN.read
# sql = %{INSERT INTO "users" ("username", "email") VALUES ('joe schmoe', '[email protected]')}

begin

flyingmachine

(defn dissipation
  [decrements]
  (let [size (count decrements)]
    (loop [acc []
           sum size
           acc-position 0
           decrements decrements]
      (cond
       (= size (count acc))
       acc

flyingmachine

Table of Contents

• 1 jonathan corum keynote
  • 1.1 adjusting stories based on audience - can't do that with a graphic
  • 1.2 have an audience
  • 1.3 focusing on the people rather than the mechanism
  • 1.4 designing for bart simpsons vs lisa simpsons
• 1.4.1 quick overview vs ability to deep dive

flyingmachine

(defun nrepl-start-http-server ()
  (interactive)
  (nrepl-load-current-buffer)
  (nrepl-set-ns (nrepl-current-ns))
  (nrepl-interactive-eval "(def server (-main)) (println server)"))

(eval-after-load 'nrepl
  '(define-key clojure-mode-map (kbd "C-c C-v") 'nrepl-server))

flyingmachine

(defmacro defnpd
  ;; defn with default positional arguments
  [name args & body]
  (let [unpack-defaults
        (fn [args]
          (let [[undefaulted defaulted] (split-with (comp not vector?) args)
                argcount (count args)]
            (loop [defaulted defaulted
                   argset {:argnames (into [] undefaulted)
                           :application (into [] (concat undefaulted (map second defaulted)))}

flyingmachine

(div :class "filters"
       (loop-tpl :bindings [name ["bob" "joe"]]
        (div
         (h3 (text "~{name}"))
         (ul
          (loop-tpl :bindings [attr ["a" "b"]]
           (li (text "~{attr}")))))))

flyingmachine

(div :class "filters"
       (loop-tpl :bindings [name ["bob" "joe"]]
        (div
         (h3 (text "~{name}"))))
       (ul
          (loop-tpl :bindings [attr ["a" "b"]]
           (li (text "~{attr}")))))

flyingmachine

(defn app [req]
  {:status 200
   :headers {"Last-Modified" "Wed, 28 May 2014 19:41:37 GMT", "Content-Length" "2"}
   :body "ok"})
(org.httpkit.server/run-server app {:port 7071})

@(org.httpkit.client/get "http://localhost:7071" {:timeout 500})
; => {:opts {:url "http://localhost:7071", :method :get, :timeout 500}, :error #<TimeoutException org.httpkit.client.TimeoutException: read timeout: 500ms>}

flyingmachine

(let [saying (promise)]
  (future (deliver saying (do (wait 100 "Cheerio!"))))
  @(let [saying (promise)]
     (future (deliver saying (do (wait 400 "Pip pip!"))))
     @(let [saying (promise)]
        (future (deliver saying (do (wait 200 (println "'Ello, gov'na!")))))
        (println @saying)
        saying)
     (println @saying)
     saying)