kga

#!/usr/bin/env perl
use strict;
use warnings;

use Perl6::Say;
use YAML;

use Config::Pit;
use LWP::UserAgent;
use HTTP::Request::Common;

kga

#!/usr/bin/env perl
use strict;
use warnings;

use Imager;

my $history = shift;

my @frames;
my $img = Imager->new;

kga

#!/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;

kga

#!/usr/bin/env perl
use strict;
use warnings;

use Encode;
use XML::Simple;
use LWP::Simple;

my @id = qw/to sa/;

kga

// ==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();

kga

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 {

kga

// ==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'));

kga

// ==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];

kga

#!/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';

kga

// ==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);