Skip to content

Instantly share code, notes, and snippets.

View kurain's full-sized avatar

Ryutaro Kurai kurain

43 followers · 8 following
View GitHub Profile
@kurain
kurain / Rakefile
Created October 17, 2008 15:33
require 'rake/clean'
HOME = ENV["HOME"]
CURRENT = Dir.pwd
Dir.chdir HOME
dotfiles = FileList[".*"]
dotfiles.exclude(/\.$/,
/history$/,
".ssh",
".DS_Store",
@kurain
kurain / your_location_bookmarks.user.js
Created October 27, 2009 10:18
// ==UserScript==
// @name Your Location Bookmarks
// @namespace kurain.net
// @include http://b.hatena.ne.jp/*
// ==/UserScript==
(function () {
var KEY = 'ABQIAAAAesrOSnfHiupcC1SX4HlcpxS4Ub5LNodPnSvUeVQvSorjE2hlyhSzO7n6dOEDwvDXs9DXsJW21wCMkQ';
var prefectures = {
@kurain
kurain / GlyphTable.m
Created March 16, 2010 14:00
Glyphs Table Lookup
//
// GlyphTable.m
//
// Ryutaro Kurai
//
// Original File Name, Author and Licence.
//
// FontLabelStringDrawing.m
// FontLabel
//
@kurain
kurain / cpan-notinstalled.pl
Created May 4, 2010 14:05
to filtering cpan package
#!/usr/bin/perl
use strict;
use warnings;
use UNIVERSAL::require;
my @installed;
my @not_installed;
while (<>) {
@kurain
kurain / highLightOwnStar.user.js
Created May 13, 2010 12:33
highlight your Hatena Star
// ==UserScript==
// @name highlightOwnStar
// @namespace kurain.net
// @include http://*
// @include https://*
// ==/UserScript==
(function(){
function main() {
GM_xmlhttpRequest({
method:"GET",
@kurain
kurain / gist:840206
Created February 23, 2011 09:12
http://maps.google.co.jp/maps?q=%E4%BA%AC%E9%83%BD%E5%BA%9C%E4%BA%AC%E9%83%BD%E5%B8%82%E5%B7%A6%E4%BA%AC%E5%8C%BA%E5%90%89%E7%94%B0%E7%A5%9E%E6%A5%BD%E5%B2%A1%E7%94%BA4&oe=utf-8&hl=ja&client=firefox-a&ie=UTF8&hq=&hnear=%E4%BA%AC%E9%83%BD%E5%BA%9C%E4%BA%AC%E9%83%BD%E5%B8%82%E5%B7%A6%E4%BA%AC%E5%8C%BA%E5%90%89%E7%94%B0%E7%A5%9E%E6%A5%BD%E5%B2%A1%E7%94%BA%EF%BC%94&gl=jp&brcurrent=3,0x600108fee5e22dff:0xc7efeeb4261205e,0&layer=c&cbll=35.024289,135.788347&panoid=taZtJIfdd0Nvj5DvsQEIaQ&cbp=12,264.31,,0,-10.83&ll=35.02429,135.78835&spn=0.001524,0.002653&z=19
@kurain
kurain / build.pl
Created July 20, 2011 11:03 — forked from hakobe/build.pl
use strict;
use warnings;
use AnyEvent;
use AnyEvent::HTTPD;
use AnyEvent::Util qw(run_cmd);
use Cwd;
my $httpd = AnyEvent::HTTPD->new (port => 9090);
my $last_pid = undef;
@kurain
kurain / yukkuri_irc.pl
Created November 21, 2011 10:02
To listen the IRC log
use warnings;
use strict;
use Text::MeCab;
use Perl6::Say;
my $mecab = Text::MeCab->new;
while(<>){
chomp;
my (undef,undef, @elms) = split ' ', $_;
@kurain
kurain / gist:1458407
Created December 11, 2011 04:47
speak_stdin
#!/usr/bin/env perl
use warnings;
use strict;
use Text::MeCab;
my $mecab = Text::MeCab->new;
while(<>){
chomp;
@kurain
kurain / gist:4161525
Created November 28, 2012 14:04
doRuby Service
on run {input, parameters}
set output to do shell script "echo " & quoted form of (input as Unicode text) & " | ruby -Ku"
if output is "" then
display dialog "No output"
end if
return output
end run