shiba-yu36

// ==UserScript==
// @name           fillin_hatena_diary_twi_content_with_title
// @namespace      http://shiba-yu36.net/
// @description    fill in hatena diary twitter content with title in edit.
// @include        http://d.hatena.ne.jp/*/edit
// @include        http://d.hatena.ne.jp/*/#edit_in_place
// ==/UserScript==

(function(){

shiba-yu36

// ==UserScript==
// @name           hide_google_left_navi
// @namespace      http://shiba-yu36.net/
// @description    googleの左サイドバーのナビゲーションを表示したり、非表示にしたりするボタンを作成
// @include        http://www.google.com/search?*
// @include        http://www.google.com/images?*
// @include        http://www.google.co.jp/search?*
// @include        http://www.google.co.jp/images?*
// ==/UserScript==

shiba-yu36

// ==UserScript==
// @name count_tweet_words_in_hatena_diary
// @description はてなダイアリーの編集時、twitterへ投稿する欄の文字数を表示
// @namespace http://shiba-yu36.net/
// @include http://d.hatena.ne.jp/*/edit
// ==/UserScript==

(function(){
    
    function xpath(query) {

shiba-yu36

// ==UserScript==
// @name expand_twitter_notation
// @description はてなダイアリー編集中にtwitter記法を展開する
// @namespace http://shiba-yu36.net/
// @include http://d.hatena.ne.jp/*
// ==/UserScript==

(function() {

    var tweet_cache = {};       //tweetのキャッシュ

shiba-yu36

// ==UserScript==
// @name           expand_fotolife_notation
// @description はてなダイアリー編集中にfotolife記法を展開する
// @namespace      http://shiba-yu36.net/
// @include        http://d.hatena.ne.jp/*
// ==/UserScript==

(function() {

    var extention_map = {

shiba-yu36

#!/bin/sh
ssh-agent | grep -v echo > "${HOME}/.ssh/agent-env"
. "${HOME}/.ssh/agent-env"
ssh-add
echo "please type:"
echo ". ~/.ssh/agent-env"

shiba-yu36

use strict;
use warnings;

use OAuth::Lite;
use OAuth::Lite::Consumer;

my $ua = LWP::UserAgent->new;

my $request_url = 'http://gdd-2010-quiz-japan.appspot.com/oauth/5c2cac6d69ddbc14c5b30bcb';

shiba-yu36

use strict;
use warnings;

use String::Random;
use DateTime;
use URI::Escape;
use Digest::HMAC_SHA1 qw(hmac_sha1);
use MIME::Base64;
use LWP::UserAgent;

shiba-yu36

#!perl
use strict;
use warnings;

use XML::Feed;

my $url         = 'http://f.hatena.ne.jp/shiba_yu36/rss';
my $open_search = "http://a9.com/-/spec/opensearchrss/1.0/";
my $hatena      = "http://www.hatena.ne.jp/info/xmlns#";

shiba-yu36

#!perl
use warnings;
use strict;

use LWP::UserAgent;

my $title = 'エントリタイトル';
my $excerpt = 'エントリ要約ですよ';
my $url = 'http://d.hatena.ne.jp/shibaTest/20101022/p1';
my $blog_name = 'Dive into the Tech World!';