jgdavey

#!/bin/bash

set -e

USAGE="Usage: $0 [ip_address | reset]"

if [ "$#" == "0" ]; then
  echo "$USAGE"
  exit 1
fi

jgdavey

Vim is a powerful text editor. Clojure is a powerful programming language. While its been possible to edit Clojure code in vim for years, the toolchain has improved greatly over the past year. Today we're going to see how we can integrate vim with our Clojure REPL environment.

Life without integration

In a shell session, let's fire up a Clojure REPL. I'm going to use lein repl to do this. In another shell session, let's start vim and edit a clojure file.

jgdavey

;; Install boot.
;; In the same folder as this file, run:
;;   boot -d com.datomic/datomic-free:0.9.5404 -r $PWD repl
(ns scratch
  (:require [datomic.api :as d]))

(d/create-database "datomic:mem://scratch")
(def conn (d/connect "datomic:mem://scratch"))

(def schema

jgdavey

(ns expiry-chan
  (:require [clojure.core.async :as async :refer [go >! <! chan]]))

(defn expiry-chan [in max-age-millis]
  (let [middler (chan 1024 (map #(vector (System/currentTimeMillis) %)))
        out (chan)]
    (async/pipe in middler)
    (go (loop []
          (if-let [[ts value] (<! middler)]
            (do

jgdavey

Keybase proof

I hereby claim:

• I am jgdavey on github.
• I am joshuadavey (https://keybase.io/joshuadavey) on keybase.
• I have a public key ASC8tdiHKKv4NE6qgIYzZDyVegyL9IrqEoKXxomWczwAuwo

To claim this, I am signing this object:

jgdavey

#!/usr/bin/env bash

if [ -n "$(git status --porcelain)" ]; then
  echo "ERROR: You have a dirty working copy. This command would remove any files not already checked in"
  exit 1
fi

log() {
  if [ -z "$quiet" ]; then
    echo

jgdavey

[alias]
	add-untracked = !"git status --porcelain | awk '/\\?\\?/{ print $2 }' | xargs git add"

jgdavey

#!/usr/bin/env ruby

# Adapted from https://gist.github.com/946311
#
# To use, put something like the following in your .bashrc.local:
#
#    alias harvest='rvm use 1.9.2@harvester;harvester;cd ..;cd -'

author = `git config --global user.name`.chomp

jgdavey

#compdef hitch

__hitch_authors() {
  local expl
  local -a _authors
  if [ -f $HOME/.hitch_pairs ]; then
    _authors=(${${(f)"$(cat $HOME/.hitch_pairs | awk '/:/ { print }')"}/:[ $'\t']##/:})
  fi
  _describe -t hitch-authors 'hitch authors' _authors "$@"
}

jgdavey

function! s:ToggleDoEndOrBrackets()
  let char = getline('.')[col('.')-1]
  if char =~ '[{}]'
    if char=='}'
      norm %
    endif
    norm h
    " Bracket touching previous word
    if getline('.')[col('.')-1] =~ '[^ ;]'
      exe "norm! a "