thomaschrstnsn

# disco træsko

live_loop :timer do
  sleep 0.125
end

live_loop :l303  do
  use_synth :tech_saws
  #play choose([:c4, :f4, :e4, :fs4]), release: rrand(0.15, 0.35), cutoff: rrand(40, 130), res: 0.7
  sync :timer

thomaschrstnsn

based on https://github.com/simonmichael/haskell-atom-setup#set-up-atom

install stack

https://docs.haskellstack.org/en/stable/README/

check stack

should print non-error

thomaschrstnsn

check impls test = map (\(f,i) -> (i, test f))
                       (zip impls [1..(length impls)])

filterCorrect trs = map (\(i, _) -> i) correct
              where correct = filter (\(i, b) -> b) trs


all1 p xs = and (map p xs)
all2 p xs = False -- map p (and xs)
all3 p = and . map p

thomaschrstnsn

Keybase proof

I hereby claim:

• I am thomaschrstnsn on github.
• I am thomaschrstnsn (https://keybase.io/thomaschrstnsn) on keybase.
• I have a public key whose fingerprint is 9ACC 3CEB AD38 4594 87FD FA5F B4E1 39B6 0B18 0002

To claim this, I am signing this object:

thomaschrstnsn

;; cljsbuild warnings
^WARNING:.*                               ;; yellow on black

;; cljs.test in phantom-js errors, i.e. "ReferenceError: Can't find variable: React"
^\w*rror:.*                               ;; red foreground

;; test success, failures, errors (red/green bar)
0 (errors|failures).*                     ;; green background
(?!0)\d+ (errors|failures).*              ;; red background

thomaschrstnsn

new Uri("http://www.interwebs.com/path?query=param", UriKind.RelativeOrAbsolute).Query;
// => ?query=param

new Uri("/path?query=param", UriKind.RelativeOrAbsolute).Query;
// => InvalidOperationException: This operation is not supported for a relative URI.

thomaschrstnsn

(ns pretty-report
  (:require [clojure.test :refer :all]
            [clojure.stacktrace :as stack]
            [io.aviso.ansi :as a]))

(defmulti pretty-report :type)

(defmethod pretty-report :default [m]
  (with-test-out (prn m)))