Skip to content

Instantly share code, notes, and snippets.

View hokaccha's full-sized avatar

Kazuhito Hokamura hokaccha

402 followers · 50 following
View GitHub Profile
@hokaccha
hokaccha / twitter2im.pl
Created November 19, 2009 14:29
#!/usr/bin/env perl
use strict;
use warnings;
use AnyEvent::Twitter::Stream;
use AnyEvent::HTTP;
use HTTP::Request::Common;
my $done = AnyEvent->condvar;
@hokaccha
hokaccha / twitter_bot_kareshi.pl
Created December 5, 2009 07:00
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Net::Twitter;
use DateTime;
use DateTime::Format::HTTP;
@hokaccha
hokaccha / added_remap_app_term_commandR2optionL.patch
Created January 25, 2010 14:19
diff -cr KeyRemap4MacBook-5.1.0/files/prefpane/checkbox.xml KeyRemap4MacBook-5.1.0.new/files/prefpane/checkbox.xml
*** KeyRemap4MacBook-5.1.0/files/prefpane/checkbox.xml 2010-01-25 23:05:49.000000000 +0900
--- KeyRemap4MacBook-5.1.0.new/files/prefpane/checkbox.xml 2010-01-25 22:59:20.000000000 +0900
***************
*** 1018,1023 ****
--- 1018,1027 ----
<name>Remap Command_L to Option_L</name>
<sysctl>remap.app_term_commandL2optionL</sysctl>
</item>
+ <item>
@hokaccha
hokaccha / Models.pm
Created February 18, 2010 13:56
package Test::Models;
use strict;
use warnings;
use Ark::Models -base;
register foo => sub {
my $self = shift;
$self->get('conf');
};
@hokaccha
hokaccha / bind.js
Created March 4, 2010 16:26
Function.prototype.bind = function(self) {
var f = this;
return function() {
return f.apply(self, Array.prototype.slice.call(arguments));
};
};
// e.g
var obj = {
name: "hokamura",
@hokaccha
hokaccha / eg.html
Created April 9, 2010 08:15
<!DOCTYPE html>
<html lang="ja" xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta charset="UTF-8" />
</head>
<body>
<div class="blink">hoge</div>
<script type="text/javascript" src="js/jquery.js"></script>
<script type="text/javascript" src="js/jquery-blink.js"></script>
<script type="text/javascript">
@hokaccha
hokaccha / override_paste.vim
Created April 10, 2010 06:10
" コピペ
nnoremap y "xy
vnoremap y "xy
nnoremap d "xd
vnoremap d "xd
nnoremap c "xc
vnoremap c "xc
vnoremap p "xp
nnoremap <C-p> :<C-u>set opfunc=OverridePaste<CR>g@
nnoremap <C-p><C-p> :<C-u>set opfunc=OverridePaste<CR>g@g@
@hokaccha
hokaccha / static_server
Created April 14, 2010 11:06
#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use File::Which qw/which/;
use File::Temp;
use Path::Class qw/dir/;
my $root = '.';
@hokaccha
hokaccha / ws-server.pl
Created April 21, 2010 05:36
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use Getopt::Long;
use Pod::Usage;
use AnyEvent::Socket;
@hokaccha
hokaccha / auto_sugyan_fav.pl
Created April 23, 2010 03:26
#!/usr/bin/env perl
### sugyanのtweetを自動でfavるscript
use strict;
use warnings;
use AnyEvent::HTTP 'http_request';
use Config::Pit 'pit_get';
use Encode 'encode_utf8';