joelittlejohn

[ "$(find ~/.rotate -mtime -7 2>/dev/null)" ] ||  (for p in $(aws-vault list --profiles | grep -v default | grep -v mfa); do aws-vault rotate -n $p; done && touch ~/.rotate)

joelittlejohn

<?php
$wgExtensionCredits['parserhook'][] = array(
	'name'         => 'WebServiceSequenceDiagram',
	'version'      => '1.0',
	'author'       => 'Eddie Olsson', 
	'url'          => 'http://www.mediawiki.org/wiki/Extension:WebSequenceDiagram',
	'description'  => 'Render inline sequence diagrams using websequencediagrams.com'
);

if ( defined( 'MW_SUPPORTS_PARSERFIRSTCALLINIT' ) ) {

joelittlejohn

(ns dynamic.test
  (:require [clojure.test :refer :all]))

;; This example shows how tests can be generated dynamically, by
;; creating new vars with the correct metadata.

(defn add-test
  "Add a test to the given namespace. The body of the test is given as
  the thunk test-fn. Useful for adding dynamically generated deftests."
  [name ns test-fn & [metadata]]

joelittlejohn

Keybase proof

I hereby claim:

• I am joelittlejohn on github.
• I am joelittlejohn (https://keybase.io/joelittlejohn) on keybase.
• I have a public key whose fingerprint is 1DA9 3EE1 7F6A 3324 18B0 DBB9 9ABE 584A 8CED 6563

To claim this, I am signing this object:

joelittlejohn

;; Building a functional queue using two stacks

;; We'll use vectors for our stacks, 'push' == conj
(def ^:private push conj)

;; We'll need be able to fill one stack from another
(defn ^:private refill
  [s1 s2]
  (if (empty? s1)
    s2

joelittlejohn

(let [digits (into [] (map char (concat (range 48 58) (range 65 91) (range 97 123)))) ;; 0-9,A-Z,a-z
      base (biginteger (count digits))
      entropy 64]
  (defn id []
    (loop [id10 (BigInteger. entropy (java.security.SecureRandom.))
           id62 ""]
      (if (and (<= id10 (BigInteger/ZERO)) (seq id62))
        id62
        (let [[d r] (.divideAndRemainder id10 base)]
          (recur d (str id62 (digits (.intValue r)))))))))

joelittlejohn

(ns merge-ascii
  (:require [clojure.java.io :refer [reader writer]]))

(defn choose-char [a b]
  (cond (nil? a) b
        (nil? b) a
        (not= b \space) b
        :else a))

(defn merge [a b out]

joelittlejohn

#!/usr/bin/env bash
# Generates this kind of thing:
# https://github.com/joelittlejohn/jsonschema2pojo/blob/master/CHANGELOG.md
#
# If your issue has 'breaking' label, the issue will be shown in the changelog with bold text
# 
# All versions of this script are dedicated to the Public Domain, no rights reserved,
# as per https://creativecommons.org/publicdomain/zero/1.0/
#
if [ "$#" -ne 2 ]; then

joelittlejohn

;; joebot

(ns tron.bots
  (:require [tron.core :as tron]))

(defn empty-look
  "A mock look function which just checks for the arena
   boundaries."
  [pos]
  (when-not (tron/valid-pos? pos) :wall))

joelittlejohn

echo "# Contributors" > CONTRIBUTORS.md && git log --pretty=tformat:"* %an <%ae>" | tac | awk ' !x[$0]++' >> CONTRIBUTORS.md