Skip to content

Instantly share code, notes, and snippets.

View shizone's full-sized avatar

SUMIDA Yuki shizone

View GitHub Profile
@shizone
shizone / Scalaちゃん.svg
Created December 8, 2011 15:10
Scala Advent Calendar jp 2011向けに作ったScalaちゃんのSVG(DLして好きに弄り倒してください)
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@shizone
shizone / boss.scala
Created December 8, 2011 03:11
ボス
class Boss {
protected var age_ : Int = _
def age = age_
def age_=(value: Int): Unit = this.age_ = value
}
val tama: Boss = new Boss {
override def age = if (20 < this.age_) 20 else this.age_
}
tama.age = 0x20
@shizone
shizone / gist:1438364
Created December 6, 2011 14:22
http://codr.cc/356776/rb を見て何となく
scala> sealed trait Color
defined trait Color
scala> case object Black extends Color
defined module Black
scala> case object Pink extends Color
defined module Pink
scala> case class Pants(color: Color)
@shizone
shizone / fhb.user.js
Created November 23, 2011 06:46
Facebook Hentai Button
// ==UserScript==
// @name Facebook Hentai Button
// @namespace http://d.hatena.ne.jp/razon/
// @description Hentai Advent Calendar 2011/11/26.
// @include http://www.facebook.com/plugins/like*
// ==/UserScript==
(function() {
document.getElementsByClassName('liketext')[0].innerHTML='変態!';
}
@shizone
shizone / deploy
Created November 4, 2011 14:40
Sphinx文書をビルドしてGAEに突っ込むJenkins用シェルスクリプト雛形
cd ${WORKSPACE}
make html
cp -fr ${WORKSPACE}/build/html/* ${WORKSPACE}/gae/war/
${APPENGINE_SDK_HOME}/bin/appcfg.sh -e ${EMAIL} --passin update ${WORKSPACE}/gae/war <<EOF
${PASSWORD}
EOF
@shizone
shizone / gist:986884
Created May 23, 2011 15:26
Scala REPLで入力したコードをそのままTwitterへPostするwrap
// twitter4j-coreのパスを指定
:cp <TWITTER4J_HOME>/lib/twitter4j-core-X.X.X.jar
:power
import twitter4j.Twitter
import twitter4j.TwitterFactory
import twitter4j.auth.AccessToken
// 各自Twitter developersでアプリケーション登録して取得した値を設定してください
@shizone
shizone / Excel方眼紙アドイン
Created May 20, 2011 02:47
Excel方眼紙アドイン
Option Explicit
Sub AddNewMenu()
On Error GoTo ErrHand
Dim cbrCmd As CommandBar
Dim cbcMenu As CommandBarControl
Set cbrCmd = Application.CommandBars("Worksheet Menu Bar")
cbrCmd.Controls("方眼紙").Delete