MichaelBlume

def rec_schema_transform(transform):
    def recur(schema):
        if not isinstance(schema, dict):
            return
        transform(schema)
        for k, v in schema.items():
            if k in ("properties", "patternProperties", "dependencies"):
                for _, subschema in v.items():
                    recur(subschema)
            elif k in ("additionalProperties", "additionalItems") and v:

MichaelBlume

#!/usr/bin/env runhaskell
import Data.List
import Control.Concurrent
import System.IO

takeBlock :: [String] -> (String, [String])
takeBlock (firstLine:moreLines) = (block, restLines) where
  block = intercalate "\n" (firstLine:indLines)
  (indLines, restLines) = span (isPrefixOf " ") moreLines

MichaelBlume

#!/usr/bin/env python
import envoy
import requests
import time

r = envoy.run("find /Users/mike/Dropbox/writing | grep -v DS_Store | xargs wc -c")
count = r.std_out.split()[-2]
kb_written = int(count) // 1024

url = "https://www.beeminder.com/api/v1/users/mblume/goals/writing/datapoints.json"

MichaelBlume

(defn my-split-with [pred coll]
  (let [p (promise)
        passes ((fn step [c]
                  (lazy-seq
                    (if-let [[x & xs] (seq c)]
                      (if (pred x)
                        (cons x (step xs))
                        (do (deliver p c) nil))
                      (do (deliver p nil) nil))))
                coll)]

MichaelBlume

import Control.Monad
 
chars :: [Char]
chars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ,.'\"-;:?!()"
 
incrementS :: [[Char]] -> [[Char]]
incrementS [] = [chars]
incrementS ([_] : r) = chars : (incrementS r)
incrementS ((c:cs) : r) = cs : r

MichaelBlume

# Writing some unit tests in Python, I found myself homesick for Clojure's `reify`.

from functools import partial

class Blank(object): pass

def obj(*fs):
    o = Blank()
    for f in fs:
        setattr(o, f.func_name, partial(f, o))

MichaelBlume

#!/usr/bin/env runhaskell
module Main (main) where

-- When you copy a conversation out of your google chat logs, it looks like
-- this
--
-- Alice
-- hi
-- how are you
-- Bob Smith

MichaelBlume

from itertools import takewhile, ifilter

def fibs():
    fib0 = 1
    fib1 = 1
    while True:
        yield fib0
        newfib = fib0 + fib1
        fib0 = fib1
        fib1 = newfib

MichaelBlume

#!/bin/bash
echo -n "Updating system so it uses the new JDK..."
update-alternatives --quiet --install "/usr/bin/java" "java" "/usr/lib/jvm/jdk1.8.0/bin/java" 2
update-alternatives --quiet --install "/usr/bin/javac" "javac" "/usr/lib/jvm/jdk1.8.0/bin/javac" 2
update-alternatives --quiet --set java /usr/lib/jvm/jdk1.8.0/bin/java
update-alternatives --quiet --set javac /usr/lib/jvm/jdk1.8.0/bin/javac
echo "done."
exit 0

MichaelBlume

(ns schema->gen
  "Functions for generating test data from schemas."
  (:require [four.stateful :as four]
            [re-rand :refer [re-rand]]
            [schema.core :as sch]
            [simple-check.generators :as gen]))

(defn ^:private re-randify-regex
  "schema requires ^$ while re-rand forbids them"
  [re]