kch

# config/initializers/structure_dump_cleanup.rb
# Clean trailing newlines and spaces from SQL schema dump file after dumping
module StructureDumpWhitespaceCleanup
  def structure_dump(cfg, fn, *) = super.tap{ @dump_file = fn }

  def dump_schema(...)
    super.tap do
      next unless fn = @dump_file
      File.write fn, File.read(fn).gsub(/[ \t]+\n/, "\n").sub(/\s+\n\z/, "\n")
    end

kch

#!/opt/homebrew/opt/ruby/bin/ruby

# iTerm2 file opener for semantic history
#
# Setup: iTerm2 » Settings » Profiles » Advanced » Semantic History » Always run command…
# Command: /path/to/iterm2-edit \5 \1
#
# Parses text selections and opens appropriate handler:
# - Text files: $EDITOR with line:col positioning
# - Binary files: system default app

kch

[program:fswatch-chmod]
# For each changed file:
# - skips if not regular file
# - skips if no shebang
# - finds enclosing git repo (if any)
# - skips if file tracked and unchanged in that repo (prevent mangling checkouts / rebases)
# - otherwise makes file executable
# - ignore files inside .git but allow in .git/hooks/
command=bash -c '
    /opt/homebrew/bin/fswatch -v -r ~/bin ~/src --exclude /\.git/ --include /\.git/hooks/ |

kch

#!/usr/bin/env ruby

# git-reword: Interactive tool for bulk editing commit messages' first line
#
# Opens the rebase todo sequence for editing, amends any commit messages with
# the inline-reworded message. Other rebase operations are performed normally.
#
# If you reword inline but also use a reword action on the same line, the
# inline edit wins.
#

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) } }