Skip to content

Instantly share code, notes, and snippets.

Hagmonk hagmonk

Block or report user

Report or block hagmonk

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
hagmonk / Do they really care?
Created Dec 31, 2008
A dumb little script to analyze your twitter followers.
View Do they really care?
require 'rubygems'
require 'net/http'
require 'hpricot'
class Twitter
def initialize(username, password)
View Refinement on TextMate's Insert Color command
#!/usr/bin/env arch -i386 ruby
# TextMate's default insert color command is pretty lame. I wanted it to detect
# rgb values and use those, outputting the same if detected. Here's my first naive
# cut at improving this script. I think it should fall through a few different
# filters, trying to detect whether it's hex, rgb, or a color name (who uses those?!)
require ENV['TM_SUPPORT_PATH'] + "/lib/ui"
require ENV['TM_SUPPORT_PATH'] + "/lib/exit_codes"
colour =
View SSH tricks
# Quite often I buy some music at home, then want to transfer it to work.
# This command is what I use to find m4a tracks created in the last day,
# and pull them to my work machine.
ssh username@domain "cd /Volumes/Media/iTunes && find . -mtime -1 -name "*.m4a" | tar -T - -cf -" | tar xf -
View ANZAC biscuits
ANZAC biscuits
* 1 cup whole wheat flour
* 1 cup sugar
* 1 cup desiccated coconut
* 1 cup rolled oats
* 1/2 cup butter (i.e. one whole stick of butter)
* 2 tbs honey or golden syrup
View I finally cracked and wrote my own naive Things database syncer.
require 'rubygems'
require 'net/ssh'
require 'net/scp'
thingsPath = "HOME/Library/Application\ Support/Cultured\ Code/Things/Database.xml"
getTimestamp = "ls -lT '#{thingsPath}' | cut -f9-13 -d' '"
getThings = "ps waux | grep [T]hings"
quitThings = "osascript -e 'tell application \"Things\"\nquit\nend tell'"
View gist:241a8083c5d764708010
Procedural answer to the question posted here:
Doing this in other fun mathematica ways is left as an exercise for the reader :)
In[665]:= str = " May 15 May 16 May 19
June 17 June 18
July 14 July 16
hagmonk / calendar.ics
Created Nov 29, 2016
Clojure/conj 2016 Calendar
View calendar.ics
X-WR-CALNAME:Clojure/conj 2016
PRODID:-//Apple Inc.//Mac OS X 10.12.2//EN
hagmonk /
Last active Nov 11, 2018
Clojure Community Collaboration Tools

This document lists ...

  • High level requirements for a community collaboration tool, ranked by importance to the Clojure community.
    • mandatory
    • expected
    • nice to have
  • Extant collaboration tools, with pointers towards existing Clojure communities within them, if any.
  • A detailed analysis of how each tool satisfies the requirements of the Clojure community.
hagmonk / result-set-test.clj
Last active Jun 17, 2017
the not-very-lazy ResultSet
View result-set-test.clj
(ns result-set-test.core
(:require [ :as jdbc]
[clojure.string :as str])
(:import (java.sql ResultSet)
(clojure.lang IReduceInit)))
(def sqlvec ["select left(md5(i::text), 10),
hagmonk / conj2017.ics
Last active Oct 12, 2017
Clojure/conj 2017 calendar
View conj2017.ics
X-WR-CALNAME:Clojure/conj 2017
PRODID:-//Apple Inc.//Mac OS X 10.13//EN
You can’t perform that action at this time.