Marek Kubica Leonidas-from-XIV

rage-quit support for bash

Put flip somewhere in your $PATH and chmod a+x it.

Copy fuck into ~/.bashrc.

	#!/usr/bin/awk -f

	function hoop(h, w) {
	printf("l 0 %d ", -h);
	printf("c 0 -%u, %u -%u, %u 0 ", w, w, w, w);
	printf("l 0 %d", +h);
	}

	function hand(x, h, o, l) {
	printf("<g transform='translate(%d.5 %d)'>\n", x, h);

	#!/bin/bash

	find -type f \( -name ".db" -or -name ".sqlite" \) -print0 \| while read -d $'\0' FILE
	do
	TYPE=`file "$FILE" \| grep -i sqlite`
	[ -z "$TYPE" ] && continue # this is not an sqlite db
	PRESIZE=`ls -sh "$FILE" \| cut -f 1 -d " "`
	PRESIZEFULL=`ls -s "$FILE" \| cut -f 1 -d " "`
	sqlite3 "$FILE" "VACUUM;"
	POSTSIZE=`ls -sh "$FILE" \| cut -f 1 -d " "`

	module Natl =struct
	type z = Nil_z
	type 'a succ = Nil_succ
	end
	open Natl

	type _ t =
	\| Nil: <f:'a; t:'a; dim:z > t
	\| Cons:
	'elt * <f:'ty; t:'ret; dim:'d > t -> <f: 'elt -> 'ty; t:'ret; dim:'d succ> t

	(ns overtone.examples.compositions.piano-phase
	(:use overtone.live
	overtone.inst.sampled-piano))

	;; Steve Reich's Piano Phase

	(def piece [:E4 :F#4 :B4 :C#5 :D5 :F#4 :E4 :C#5 :B4 :F#4 :D5 :C#5])

	(defn player
	[t speed notes]

	(ns sliders)

	(defmacro slider [l]
	(let [dashes (vec (repeat l "-"))]
	`(do ~@(map (fn [i]
	`(defn
	~(symbol (clojure.string/join (assoc dashes i "*")))
	[]
	~(/ i (- l 1))))
	(range l)))))

	This diff is a modified version of a diff written by Arnis Lapsa.

	[ The original can be found here: https://gist.github.com/ArnisL/6156593 ]

	This diff adds support to tmux for 24-bit color CSI SRG sequences. This
	allows terminal based programs that take advantage of it (e.g., vim or
	emacs with https://gist.github.com/choppsv1/73d51cedd3e8ec72e1c1 patch)
	to display 16 million colors while running in tmux.

	The primary change I made was to support ":" as a delimeter as well

	(def history (Html5History.))
	(.setUseFragment history false)
	(.setPathPrefix history "")
	(.setEnabled history true)

	(let [navigation (listen history EventType/NAVIGATE)]
	(go
	(while true
	(let [token (.-token (<! navigation))]
	(secretary/dispatch! token)))))