Skip to content

Instantly share code, notes, and snippets.

Hagmonk hagmonk

View GitHub Profile
View gist:241a8083c5d764708010
(*
Procedural answer to the question posted here:
"http://nbviewer.ipython.org/url/norvig.com/ipython/Cheryl.ipynb"
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
hagmonk / Do they really care?
Created Dec 31, 2008
A dumb little script to analyze your twitter followers.
View Do they really care?
#!/usr/bin/ruby
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 = STDIN.read
View SSH tricks
#!/bin/bash
# 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
Ingredients:
* 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.
#!/usr/bin/ruby
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'"
@hagmonk
hagmonk / calendar.ics
Created Nov 29, 2016
Clojure/conj 2016 Calendar
View calendar.ics
BEGIN:VCALENDAR
METHOD:PUBLISH
VERSION:2.0
X-WR-CALNAME:Clojure/conj 2016
PRODID:-//Apple Inc.//Mac OS X 10.12.2//EN
X-APPLE-CALENDAR-COLOR:#1BADF8
X-WR-TIMEZONE:America/Los_Angeles
CALSCALE:GREGORIAN
BEGIN:VTIMEZONE
TZID:America/Chicago
@hagmonk
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 [clojure.java.jdbc :as jdbc]
[clojure.string :as str])
(:gen-class)
(:import (java.sql ResultSet)
(clojure.lang IReduceInit)))
(def sqlvec ["select left(md5(i::text), 10),
md5(random()::text),
md5(random()::text),
@hagmonk
hagmonk / conj2017.ics
Last active Oct 12, 2017
Clojure/conj 2017 calendar
View conj2017.ics
BEGIN:VCALENDAR
METHOD:PUBLISH
VERSION:2.0
X-WR-CALNAME:Clojure/conj 2017
PRODID:-//Apple Inc.//Mac OS X 10.13//EN
X-APPLE-CALENDAR-COLOR:#CC73E1
X-WR-TIMEZONE:America/Los_Angeles
CALSCALE:GREGORIAN
BEGIN:VTIMEZONE
TZID:America/New_York
View gist:c1d03f8f359708be22a60a0cbecbf400
(mapv #(%1 %2) (cycle [(partial identity) #(* %1 -1)]) [1 2 3 4 5])
You can’t perform that action at this time.