lynaghk

(defn lowercase-keys
  [m]
  (into {} (for [[k v] m]
               [(.toLowerCase k) v])))

(defn remove-hop-by-hop-headers
  "Removes hop-by-hop headers from a ring request/response map.
Assumes header keys are lowercase strings.

See:

lynaghk

(defn map-into
  "Forwards `(f (<! recv))` to `send`; returns `send` for convenience."
  [send f recv]
  (go (loop []
        (let [val (<! recv)]
          (when-not (nil? val)
            (>! send (f val))
            (recur)))))
  send)

lynaghk

#this works

docker run -i -privileged -v /examples:/examples my-box ruby /examples/run.rb

#this doesn't

(cd /examples && tar -cf - .) | docker run -i -privileged my-box bash -c "mkdir foo && cd foo && tar -mxf - && ruby run.rb"

lynaghk

;;with adv. optimizations on my macbook air

(ns foo
  (:require [datascript :as d]))

(d/q '[:find (sum ?x)
       :with ?idx
       :in [[?idx ?x]]]
     (map-indexed vector (range 10000)))
     

lynaghk

module Saucelabs
  SAUCE_USERNAME = ''
  SAUCE_TOKEN = ''
  
  def self.setup_saucelabs_connection!(driver=nil)
    WebMock.allow_net_connect!
    driver ||= {
      capability: :chrome,
      platform: 'Windows 8',
      version: '',

lynaghk

#!/bin/bash

set -e

lein uberjar
rsync target/weathertron.jar weathertron@weathertron:.
ssh root@weathertron svc -t /etc/service/weathertron

lynaghk

(defun cider-send-dwim (arg)
  "Send the appropriate forms to the REPL to be evaluated."
  (interactive "P")
  (let ((expr (cider-last-sexp)))
    (set-buffer (cider-current-repl-buffer))
    (unless (eq (current-buffer) (window-buffer))
      (pop-to-buffer (current-buffer) t))
    (goto-char (point-max))
    (insert expr)
    (cider-repl-return)

lynaghk

;;Export datoms, replacing eids w/ tempids so that the datoms can be imported into a second datascript/datomic db.

(let [db (d/db conn)

      eids (->> (d/q '{:find [?eid]
                       :in [$ %]
                       :where [(exportable ?eid)]}
                     db export-rules)
                (map first)
                set)

lynaghk

I'm modeling a state machine in ClojureScript and am using clojure.spec to check invariants in each state.

However, I'd like to remove this checking in the production build, since it adds ~ 200kB minified code size and 100ms startup time.

I haven't been able to find a tidy way to do this --- this writeup explains the approaches I've considered and their tradeoffs.

Here's the current setup:

(ns app.state-machines.foo

lynaghk

<deps> = node (<'->'> names)?
node = name weight
names = name (<','> name)*
weight = <'('> #"[0-9]+" <')'>
name = #"[A-z]+"