freakhill

require 'ripper'
require 'sourcify'

def lines(source)
  Enumerator.new do |out|
    source.split("\n")[1..-2].reduce("") do |buffer, line|
      buffer << "\n#{line}"
      Ripper.sexp_raw(buffer) ? (out << buffer) && "" : buffer
    end
  end

freakhill

#!/usr/bin/env ruby-head

class VeryBasicObject < BasicObject
  undef :==
  undef :!=
  undef :!
end

class Captured < VeryBasicObject
  def method_missing meth, *args

freakhill

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-

# easy to break use at your own risk

# this script renames pdf files in a folder (and subfoler) (on unixy machines)
# with a naive heuristic to find the title (that unfortunately is never in the *title* metadata)

require 'pdf-reader'

freakhill

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-

`find "/Users/freakhill/Dropbox/アプリ/gutenberg" -name "*.epub"`.split("\n").each do |f|
  File.basename(f) =~ /^(.*)\.epub$/
  title = $1
  if File.exists? File.join(File.dirname(f), "#{title}.mobi")
    puts "skipping #{$1}"
    next
  end

freakhill

import scala.reflect.runtime.universe._

class A[E](e:E)(implicit t: TypeTag[E]){
  def c(o:Any) = {
    val TypeRef(_, klass_symbol, _) = t.tpe
    println(s"ClassSymbol extracted from TypeTag[E] '${klass_symbol.asClass}' : ClassSymbol")
    println(s"Class extracted from o:Any parameter = '${o.getClass}' : Class[??]")
    runtimeMirror(getClass.getClassLoader).runtimeClass(klass_symbol.asClass) == o.getClass
  }
}

freakhill

package jp.ne.wakuwaku.test;

import jp.ne.wakuwaku.sdk.Wakuwaku;
import jp.ne.wakuwaku.sdk.Wakuwaku.Coupon;
import jp.ne.wakuwaku.sdk.Wakuwaku.InitException;
import jp.ne.wakuwaku.sdk.Wakuwaku.NoEmailProvidedException;
import jp.ne.wakuwaku.sdk.Wakuwaku.NoWalletInstalledException;
import android.app.Activity;
import android.app.AlertDialog;
import android.content.Context;

freakhill

*~
.*
*.dat
*.eld
.smex-items
.emacs_workgroups_*
tmp*
places
ede-projects.*
ac-dict/

freakhill

(ns test.core
  (:require [ clojure.core.typed :as t ]))

(t/ann-protocol P2
                olol (t/IFn [P2 Kw * -> t/Any]))
(t/defprotocol> P2
  (olol [this & rest]))

(t/ann-record R2 [])
(defrecord R2 []

freakhill

/target
/classes
/checkouts
pom.xml
pom.xml.asc
*.jar
*.class
/.lein-*
/.nrepl-port

freakhill

self-installs