kch

# Operating with plain arrays:

class Array
  def scanl(init, &f)
    return [init] if empty?
    reduce([init]){ |xs, x| xs << f.(xs.last, x) }
  end
  
  def scanl1(&f)
    return if empty?  # might consider returning []

kch

// ==UserScript==
// @name        ⌘⌫ Element
// @description ⌘⌫ deletes element under cursor, ⌘Z puts back
// @match       *://*.*
// ==/UserScript==

let undoWindow        = 3000 // can undo for this long
let undoCooldown      = 1500 // will prevent default undo for this long after last undo
let scheduledDeletion = null // timeout id for deleteElements
let lastHide          = 0    // timestamp for last element was hidden

kch

// ==UserScript==
// @name        Youtube ensure HD
// @description Sets youtube player to highest resolution if drops from an HD res
// @match       *://www.youtube.com/watch*
// @match       *://youtu.be/watch*
// ==/UserScript==

let intervalID = setInterval(()=> {
  let qs         = (q)       => document.querySelector(q)
  let qsa        = (q)       => [...document.querySelectorAll(q)]

kch

#!/usr/bin/env ruby

s = ARGF.read =~ /Freitag, 13. Mai 2016.*?(?=\n\n)/m && $&
s.gsub! /^(\d\d)\.(\d\d)\u00A0Uhr\n/, "\\1:\\2h -- "
days = []
s.lines.each do |l|
  case l
  when /^\d\d:\d\dh -- Einlaß/ then :pass
  when /Mai 2016$/             then days << [l, []]
  when /^\d\d:\d\dh -- /       then days.last[1] << l.sub(/\Z/, " -- @ #{$x}")

kch

infix operator « { precedence 131 associativity left }
func «<A,B,C>(a:A, f:(A,B) -> C) -> B -> C { return { f(a,$0) } }

infix operator » { precedence 131 associativity left }
func »<B,C>(f:(B) -> C, b:B) -> C { return f(b) }

infix operator < { precedence 131 associativity left }
func <<A,B,C>(a:A, f:(A,B) -> C) -> B -> C { return { f(a,$0) } }

infix operator > { precedence 131 associativity left }

kch

struct Placeholder {}
let __ = Placeholder()

func partial<A,B,Z>(f:(A,B) -> Z, a:Placeholder, b:B) -> (A) -> Z { return { f($0,b) } }
func partial<A,B,Z>(f:(A,B) -> Z, a:A, b:Placeholder) -> (B) -> Z { return { f(a,$0) } }

func partial<A,B,C,Z>(f:(A,B,C) -> Z, a:Placeholder, b:B, c:C) -> (A) -> Z { return { f($0,b,c) } }
func partial<A,B,C,Z>(f:(A,B,C) -> Z, a:A, b:Placeholder, c:C) -> (B) -> Z { return { f(a,$0,c) } }
func partial<A,B,C,Z>(f:(A,B,C) -> Z, a:A, b:B, c:Placeholder) -> (C) -> Z { return { f(a,b,$0) } }

kch

tell application "iTunes"
	-- this script only makes sense for iTunes radio, so bail if not it
	if container of current playlist is not equal to source "iTunes Radio" then return
	
	-- mute first because ads are so fucking annoying
	set mute to true
	
	-- tracks shorter than this number of seconds should be muted as they're likely ads
	set _k_mute_threshold to 32
	

kch

Keybase proof

I hereby claim:

• I am kch on github.
• I am kch (https://keybase.io/kch) on keybase.
• I have a public key whose fingerprint is 896A A376 3566 F68D 066B 5BEF EAF6 44A0 0B63 A2DE

To claim this, I am signing this object:

kch

Pedro's Amazing Guide To Rooftop Bars

Very few people respect the art of rooftop drinking these days.

The problem faced by Rooftop bars is that their customers often believe they're being respectful because they're wearing a suit or a fancy dress.

Nevermind all the people that COMPLETELY FUCKED UP MUSIC AS WE KNOW IT while dressing well. We're still associating fancy dressing with respect.

kch

#!/usr/bin/env ruby

($stderr.puts(DATA.read.gsub("$0", File.basename($0))); exit 1) if ARGV.length != 1

require 'appscript'

safari_app     = Appscript.app("Safari")
safari_process = Appscript.app('System Events').processes['Safari']

safari_app.activate