Skip to content

Instantly share code, notes, and snippets.

View git2samus's full-sized avatar

Michael Cetrulo git2samus

58 followers · 47 following
View GitHub Profile
@git2samus
git2samus / cdgem.sh
Created February 18, 2011 21:02
cdgem
# # cd into matching gem directory
# cdgem() {
# local gempath=$(gem env gemdir)/gems
# if [[ $1 == "" ]]; then
# cd $gempath
# return
# fi
#
# local gem=$(ls $gempath | g $1 | sort | tail -1)
# if [[ $gem != "" ]]; then
@git2samus
git2samus / run_monaqasat_tests
Created June 2, 2011 15:35
buildhuman
#!/bin/bash -l
shopt -s nullglob
enqueue() {
for rev; do
echo -n "$rev" > "$(mktemp "$queuedir/$(date +%s).XXXXXX")"
done
}
@git2samus
git2samus / gist:1029767
Created June 16, 2011 17:35
ssh-wrapper - for use with https://gist.github.com/1004653 (buildhuman script)
#!/bin/sh
# ssh-wrapper :: helper script for git to run custom ssh commands
#
# example usage:
# GIT_SSH=ssh-wrapper GIT_SSH_KEY=my_private_key.rsa git ...
if [ -s "$GIT_SSH_KEY" ]; then
exec ssh -i "$GIT_SSH_KEY" "$@"
else
@git2samus
git2samus / HS11DIVS.py
Created October 1, 2011 20:40
http://www.reddit.com/r/Python/comments/kxfjn/
#!/usr/bin/env python
def HS11DIVS(a, b, x, l, r):
if a % x:
a += x - a % x
current, matches = a, 0
while current <= b:
current_sum = sum(int(str_digit) for str_digit in str(current))
if l <= current_sum <= r:
@git2samus
git2samus / clock.html
Created October 3, 2011 04:27
http://www.reddit.com/r/coding/comments/kz0b5/
<html>
<head>
<script language="JavaScript">
//Analog clock script- By Kurt (kurt.grigg@virgin.net)
//Script featured on Dynamic Drive
//Visit http://www.dynamicdrive.com for this script and more
fCol='444444'; //face colour.
sCol='FF0000'; //seconds colour.
@git2samus
git2samus / curl_archiver.bash
Created December 9, 2011 16:32
curl streaming-api archiver with throttling
#!/bin/bash
endpoint=https://stream.twitter.com/1/statuses/filter.json
proxy=<your-proxy>
auth=<your-username>:<your-password>
data=track=<your-comma-separated-keywords>
while true; do
tmpdir=$(mktemp -d --tmpdir=${1:-$PWD}) || exit
@git2samus
git2samus / gist:1535169
Created December 29, 2011 17:37
Chromium user-script to automatically refresh Outlook Web Access mailbox
// ==UserScript==
// @match <target-url>
// ==/UserScript==
var interval = 60; // seconds
var links = document.links;
for (var i=0; i<links.length; i++) {
if (links[i].textContent && links[i].textContent.trim() == "Check Messages") {
var cm_link = links[i];
@git2samus
git2samus / gist:2339848
Created April 8, 2012 21:06
merge-sort as a list generator
(defn merge-step [seq1 seq2]
(let [head1 (first seq1)
head2 (first seq2)]
(cond
(nil? head1) seq2
(nil? head2) seq1
:else (if (< head1 head2)
(cons head1 (lazy-seq (merge-step (rest seq1) seq2)))
(cons head2 (lazy-seq (merge-step seq1 (rest seq2))))))))
@git2samus
git2samus / gist:2339850
Created April 8, 2012 21:08
merge-sort as a list generator
(defn merge-step [seq1 seq2]
(let [head1 (first seq1)
head2 (first seq2)]
(cond
(nil? head1) seq2
(nil? head2) seq1
:else (if (< head1 head2)
(cons head1 (merge-step (rest seq1) seq2))
(cons head2 (merge-step seq1 (rest seq2)))))))
@git2samus
git2samus / gist:2341265
Created April 9, 2012 03:52
merge-sort as a recursive function
(defn merge-step
([seq1 seq2]
(merge-step [] seq1 seq2))
([result seq1 seq2]
(let [head1 (first seq1)
head2 (first seq2)]
(cond
(nil? head1) (concat result seq2)
(nil? head2) (concat result seq1)
:else (if (< head1 head2)