This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ==UserScript== | |
// @name Motsu Tabetai | |
// @namespace http://ikenie.com/ | |
// @include * | |
// @require http://gist.github.com/raw/3242/1a7950e033a207efcfc233ae8d9939b676bdbf46 | |
// @require http://gist.github.com/raw/34615/04333b7e307eb029462680e4f4cf961f72f4324c | |
// ==/UserScript== | |
(function() { | |
var DATABASE_URL = 'http://wedata.net/databases/Motsu/items.json'; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ==UserScript== | |
// @name Motsu Tabetai | |
// @namespace http://ikenie.com/ | |
// @include * | |
// @require http://gist.github.com/raw/3242/1a7950e033a207efcfc233ae8d9939b676bdbf46 | |
// @require http://gist.github.com/raw/34615/04333b7e307eb029462680e4f4cf961f72f4324c | |
// ==/UserScript== | |
(function() { | |
var DATABASE_URL = 'http://wedata.net/databases/Motsu/items.json'; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
- module: Filter::EntryFullText::LDRFullFeed | |
config: | |
force_upgrade: 1 | |
alternative_siteinfo: http://utatane.appjet.net/databases/LDRFullFeed/items.json | |
force_alternative_siteinfo: 1 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Encode; | |
use Getopt::Long; | |
use URI; | |
use LWP::UserAgent; | |
use HTTP::Cookies::Guess; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
plugins: | |
- module: Subscription::Config | |
config: | |
feed: | |
- url: http://twitter.com/fuba | |
meta: | |
follow_xpath: //span[contains(@class, 'entry-content')]/a | |
- module: CustomFeed::Simple | |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
sub capture_thumbnails { | |
my %opt = @_; | |
my $file = $opt{file} or die; | |
my $offset = $opt{offset} || 0; | |
my @stats = stat($file); | |
my $deflength = 60 * ($stats[7]/120000000); | |
my $un_reset = $opt{un_reset}; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
541 my $reqtype = ( ( $method_def->{post} ) || ( (defined $args) && $args->{post} ) ) ? "POST" : "GET"; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
sub text_boxing { | |
my %opt = @_; | |
my $m = $opt{message}; | |
my $ngwords = $opt{ngwords}; | |
return if (grep {my $ngword = $_; $m =~ /$ngword/} @$ngwords); | |
$m =~ s/(\@[^\s]+\s+)+//; | |
my @arms = qw/= ≡ - - - - -=≡ ≡=- 〜/; | |
push @arms, ''; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
sub is_my_reply { | |
my $text = shift; | |
for my $nickname (@nicknames) { | |
if ($text =~ s/\@$nickname//) { | |
return $text; | |
} | |
} | |
return; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use utf8; | |
use strict; | |
use warnings; | |
use URI::Escape qw(uri_escape_utf8 uri_unescape); | |
use File::Slurp; | |
use Encode; | |
use constant DIR => '/Volumes/sanjou530/friio/'; # edit here |
OlderNewer