Instantly share code, notes, and snippets.

View .bashrc
tasks_ready() {
which task >/dev/null || return
tasks_ready=$(task ready 2>/dev/null | grep -E '[0-9]+ tasks?')
if [[ -n "$tasks_ready" ]]; then
echo " ($tasks_ready ready)"
fi
}
PS1='\u@\h:\w$(tasks_ready) \$ '
View random-bongos.alda
(defn random-bongos
[ticks vol-min vol-max]
[(octave 4)
(set-duration 0.25) ; 16th notes
(let [notes (-> #{[:c] [:c :sharp] [:d] [:d :sharp] [:e]}
(->> (map #(note (apply pitch %))))
(conj (pause)))
rand-note #(rand-nth notes)
rand-vol #(vol (+ vol-min (rand-int (- vol-max vol-min))))
tick #(vector (rand-vol) (rand-note))]
View madlib.rb
#!/usr/bin/env ruby
template = <<~HEREDOC
{{plural noun}} are {{color}},
{{plural noun}} are {{color}},
{{food}} is {{adjective}},
and so are you.
HEREDOC
def prompt(type)
View hideKanbanBoardNoise.js
var expectedOrgName = 'AdzerkBC';
var expectedBoardName = 'The Sprint Board';
function getOrgName() {
return $('.board-header-btn-org-name .board-header-btn-text').text();
}
function getBoardName() {
return $('.board-header-btn-name .board-header-btn-text').text();
}
View alda-repl-session
$ alda repl
Nov 14, 2016 8:12:00 AM com.jsyn.engine.SynthesisEngine start
INFO: Pure Java JSyn from www.softsynth.com, rate = 44100, RT, V16.7.3 (build 457, 2014-12-25)
Preparing MIDI system... done.
█████╗ ██╗ ██████╗ █████╗
██╔══██╗██║ ██╔══██╗██╔══██╗
███████║██║ ██║ ██║███████║
██╔══██║██║ ██║ ██║██╔══██║
██║ ██║███████╗██████╔╝██║ ██║
View clapping_music.alda
# Clapping Music (1972)
# for two performers
#
# Steve Reich
#
# sheet music:
# https://sites.ualberta.ca/~michaelf/SEM-O/SEM-O_2014/Steve's%20piece/clapping_reich.jpg
(def clap (alda-code "o2 d+8"))
View radiohead-chords.alda
# Ben Levin's "Radiohead Chord Generator" video:
# https://www.youtube.com/watch?v=iYU_2hfFPM0
# Rules:
#
# From a MAJOR chord (e.g. C), you can:
# - move to the parallel minor (Cm)
# - move down to the relative minor (Am)
# - move up 1/2 step to a minor chord (Dbm)
View gist:28f135b0241f29826fd6
$ boot -d clj-image2ascii repl
boot.user=> (require '[clj-image2ascii.core :refer :all])
nil
boot.user=> (convert-image
#_=> (get-image-by-url (java.net.URL. "http://evansheline.com/wp-content/uploads/2011/06/cute-cat.jpg (40KB) "))
#_=> 60 false)
{:width 60, :height 58, :color? false, :image <long-ass string here>}
View pixelrain.mml
#TITLE Pixel Rain
#COMPOSER Quitasol
#PROGRAMER 2005 Dave Yarwood
#BANK-CHANGE 0,1
#BANK-CHANGE 2,2
@v2 = { 15 12 10 8 6 3 2 1 0 }
@v3 = { 15 15 14 14 13 13 12 12 11 11 10 10 9 9 8 8 7 7 6 6 5 }
@v0 = { 11 8 6 4 2 1 0 }
@v1 = { 11 11 10 10 9 9 8 8 7 7 6 6 5 5 4 4 3 3 2 2 1 }
View fizzbuzz-d.clj
(defn fizz-buzz [n]
(let [s (str (when (zero? (rem n 3)) "Fizz")
(when (zero? (rem n 5)) "Buzz"))]
(if (empty? s) n s)))
(doseq [x (map fizz-buzz (range 1 101))]
(println x))