Skip to content

Instantly share code, notes, and snippets.

View test_webhook.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Perl6::Say;
use YAML;
use Config::Pit;
use LWP::UserAgent;
use HTTP::Request::Common;
View 16x16_2_gifani.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Imager;
my $history = shift;
my @frames;
my $img = Imager->new;
View fotolife.pl
#!/usr/bin/env perl
# original code by id:antipop
# http://subtech.g.hatena.ne.jp/antipop/20071121/1195652375
use strict;
use warnings;
use Config::Pit;
use File::Temp;
use IPC::Run qw/run/;
use WebService::Hatena::Fotolife;
View tumblr.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Encode;
use XML::Simple;
use LWP::Simple;
my @id = qw/to sa/;
View ldr-modify-keybind.user.js
// ==UserScript==
// @name LDR modify keybind
// @include http://reader.livedoor.com/reader/*
// ==/UserScript==
location.href = 'javascript:void(' + encodeURIComponent(uneval(function () {
function mod_rate (n) {
return function () {
var feed = get_active_feed();
View ZipCode.pm
package App::SocialSKK::Plugin::ZipCode;
use strict;
use warnings;
use URI;
use URI::QueryParam;
use URI::Escape;
use JSON::Syck;
use base qw(App::SocialSKK::Plugin);
sub get_candidates {
View compare-hatena-graph.user.js
// ==UserScript==
// @name Compare Hatena Graph
// @namespace http://shinten.info/
// @include http://graph.hatena.ne.jp/*
// @require http://gist.github.com/raw/3238/0b1c093e30415be1109f9a36664ebd56e0e7300b
// ==/UserScript==
(function () {
var color = 'rgb(240, 240, 240)';
var graphs = {};
var id = location.href.match(/graph\.hatena\.ne\.jp\/([^\/]+)\//)[1];
View starcat-channel-guide-prettifier.user.js
// ==UserScript==
// @name STARCAT Channel Guide Prettifier
// @include http://tv.starcat.co.jp/channel/weekly/*/*
// ==/UserScript==
var colors = ['#DDFFEE', '#DDFFEE', '#FFFFDD', '#DDF5F5', '#EEEEFF', '#FFEEEE'];
var shows = ['NUMBERS' /* 'HOUSE', 'BONES', 'NCIS', 'NIP/TUCK', 'ブラックファイル' */];
GM_addStyle(colors.map(function (c, i) '.color' + i + ' { background-color: ' + c + '; }').join('\n'));
View ldr2graph.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Config::Pit qw/pit_get/;
use LWP::Simple qw//;
use List::Util qw/sum/;
use WebService::Hatena::Graph;
my $hatena_id = 'KGA';
View hatenabookmark-highlight-favorite-users.user.js
// ==UserScript==
// @name Hatena::Bookmark - Highlight Favorite Users
// @namespace http://d.hatena.ne.jp/KGA/
// @include http://b.hatena.ne.jp/entry/*
// ==/UserScript==
(function() {
var th = $X('//th[contains(., "お気に入り")]')[0];
if (!th) return;
var favs = $X('./following-sibling::td/ul[@class="userlist"]/li/img', th).map(function (img) img.title);