Skip to content

Instantly share code, notes, and snippets.

View kentaro's full-sized avatar

Kentaro Kuribayashi kentaro

View GitHub Profile
   _,,....,,_  _人人人人人人人人人人人人人人人_
-''":::::::::::::`''>  ゆっくりした結果がこれだよ!!! <
ヽ::::::::::::::::::::: ̄^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^ ̄
 |::::::;ノ´ ̄\:::::::::::\_,. -‐ァ     __   _____   ______
 |::::ノ   ヽ、ヽr-r'"´  (.__    ,´ _,, '-´ ̄ ̄`-ゝ 、_ イ、
_,.!イ_  _,.ヘーァ'二ハ二ヽ、へ,_7   'r ´          ヽ、ン、
::::::rー''7コ-‐'"´    ;  ', `ヽ/`7 ,'==─-      -─==', i
r-'ァ'"´/  /! ハ  ハ  !  iヾ_ノ i イ iゝ、イ人レ/_ルヽイ i |
!イ´ ,' | /__,.!/ V 、!__ハ  ,' ,ゝ レリイi (ヒ_]     ヒ_ン ).| .|、i .||
`!  !/レi' (ヒ_]     ヒ_ン レ'i ノ   !Y!""  ,___,   "" 「 !ノ i |
makeSearchCommand({
name: "hatena-search",
url: "http://search.hatena.ne.jp/search?word={QUERY}&site=d.hatena.ne.jp&ie=utf8",
icon: "http://search.hatena.ne.jp/favicon.ico",
description:
"Searches <a href=\"http://d.hatena.ne.jp/\">Hatena::Diary</a> for your words."
});
// from http://d.hatena.ne.jp/darashi/20080828/1219894402
makeSearchCommand({
name: "eijiro",
url: "http://eow.alc.co.jp/{QUERY}/UTF-8/",
icon: "http://www.alc.co.jp/favicon.ico",
description: "Searches <a href=\"http://www.alc.co.jp/\">英辞郎 on the WEB</a> for your words.",
});
// ==UserScript==
// @name Ichigo-Mashimaro
// @namespace http://kentarok.org/
// @include http://twitter.com/*
// ==/UserScript==
(function () {
var textarea = document.getElementById('status');
textarea.value = '';
var start = null;
(defun scala ()
(interactive)
(let ((classname-from-file (substring (buffer-name) 0 -6)))
(shell-command
(concat "scalac " buffer-file-name " && "
"scala -classpath . " (read-from-minibuffer "classname: " classname-from-file)))))
import scala.collection.mutable.ArrayStack
object Kemuri extends Application {
private var stack: ArrayStack[Int] = new ArrayStack[Int];
private def eval (c: Char) = {
if (c == '|') {
stack.foreach((i:Int) => print(i.toChar))
stack.clear
}
else if (c == '^') {
package Acme::LWP::RobotUA;
use strict;
use warnings;
use Carp qw(croak);
use base qw(LWP::RobotUA);
sub request {
my $self = shift;
my ($request) = @_;
;;; hatena-let.el ---
;; Copyright (C) 2010 Kentaro Kuribayashi
;; Author: [email protected] <[email protected]>
;; Keywords: javascript
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
require 'formula'
class Bayon <Formula
head 'http://bayon.googlecode.com/svn/trunk'
homepage 'http://code.google.com/p/bayon/'
depends_on 'google-sparsehash' => :build
def install
system "./configure", "--disable-debug", "--disable-dependency-tracking",
#!/usr/bin/env perl
use strict;
use warnings;
use opts;
use URI;
use URI::Escape;
use Perl6::Say;
use Web::Scraper;
opts my $init => { isa => 'Str' },