Skip to content

Instantly share code, notes, and snippets.

View mattn's full-sized avatar
🍛
I love curry 🍛

mattn mattn

🍛
I love curry 🍛
View GitHub Profile
javascript:var s=document.createElement('script');window.hatettercb=function(s){var h='<div id="hatetter" style="font-size:12px;border:1px black dotted;padding:2px;position:absolute;top:5px;background:white;z-index:9999;"/>';for(var n=0;n<s.length;n++)h+='<img src="'+s[n].user.profile_image_url+'" width=16/><span>&nbsp;'+s[n].user.screen_name+'</span><span>'+s[n].text+'</span><br/>';var d=document.createElement('div');d.innerHTML=h+'</div>';document.body.appendChild(d);};s.type='text/javascript';s.src='http://hatetter.blogdb.jp/mattn/statuses/friends_timeline.json?callback=hatettercb';document.body.appendChild(s);void 0
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xatom.h>
#include <X11/Xlocale.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
int
main(int argc, char *argv[])
echo "building libevent-1.4.11-stable on mingw32"
gcc -c -DHAVE_CONFIG_H -Icompat -Iwin32-code -I. buffer.c evbuffer.c evdns.c event.c event_tagging.c evrpc.c evutil.c http.c log.c signal.c strlcpy.c win32-code\win32.c
ar cr libevent.a buffer.o evbuffer.o evdns.o event.o event_tagging.o evrpc.o evutil.o http.o log.o signal.o strlcpy.o win32.o
use 'http://gist.github.com/xxx' as hatena.profile;
void
freeaddrinfo (struct addrinfo* info)
{
free(info->ai_addr);
free(info);
}
int
getaddrinfo (const char* host, const char* port, const struct addrinfo* hint, struct addrinfo** info)
{
use strict;
use warnings;
use TheSchwartz::Moosified;
use DBD::SQLite;
my $dbh = DBI->connect("dbi:SQLite:dbname=test.db");
my $client = TheSchwartz::Moosified->new();
$client->databases([$dbh]);
$client->insert('My::Worker', { args1 => 1, args2 => 2 } );
@mattn
mattn / .bashrc
Created May 29, 2009 16:36
mpc complete function for bash
function _mpc() {
local cur prev temp word cword
COMPREPLY=()
cur=${COMP_WORDS[COMP_CWORD]}
prev=${COMP_WORDS[COMP_CWORD-1]}
if [ $COMP_CWORD -eq 1 ]; then
COMPREPLY=( $(mpc --help 2>&1 | sed -n "s/^mpc \\($cur[a-z]\\+\\) .*$/\\1/p") )
return
elif [ $COMP_CWORD -eq 2 ]; then
case "$prev" in
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use CGI; # qw/-utf8/;
use DateTime::Format::W3CDTF;
use WebService::Simple;
use WebService::Simple::Parser::JSON;
use YAML;
require 'rubygems'
require 'sinatra'
get '/hello' do haml "%p Hello, #{params['name'] or 'World'}" end
From 93ab3cc5e4cee992cdd8cb0737c33f745f6852a1 Mon Sep 17 00:00:00 2001
From: mattn <[email protected]>
Date: Fri, 5 Jun 2009 15:12:18 +0900
Subject: [PATCH] use File::Spec->canonpath() to check the path.
---
t/path_to.t | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/t/path_to.t b/t/path_to.t