otsune

http://www.healthplanet.jp/apis/api.html
タニタの体組成計のSDカードからデーターを投稿するアプリがWindowsにしか対応していないけど、このAPIみたらOauth2.0でXMLかJSON投げりゃ投稿できるっぽいな。
SDカードの中をみたらTANITA/DATA1.CSVに計測ごとに1行追記してるだけだし。

urn:ietf:wg:oauth:2.0:oob でコマンドラインスクリプト走らせりゃ済みそう。

---
アプリ登録して
https://www.healthplanet.jp/oauth/auth?client_id=[CLIENTID]&redirect_uri=https://www.healthplanet.jp/success.html&scope=innerscan&response_type=code
で認証してaccess_code貰って

otsune

// ==UserScript==
// @name          Togetter List Owner Post Counter
// @namespace     http://d.hatena.ne.jp/Pasta-K
// @include       http://togetter.com/li/*
// ==/UserScript==

var mastername = document.querySelector('.icon_author').innerHTML;
var list = document.querySelectorAll('.list_body');
var i,c,postuser;
var all = list.length;

otsune

// ==UserScript==
// @name TogetterFilter
// @namespace TogetterFilter
// @description Togetterを任意のユーザー名を用いてフィルタリング
// @include http://togetter.com/*
// @require https://gist.github.com/434406.txt
// ==/UserScript==
// Based on http://d.hatena.ne.jp/mEGGrim/20101019/1287684499

// ここにフィルタリングしたいユーザーのIDを''で囲い、,で区切って記述して下さい

otsune

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

use WebService::Simple;
use Encode;

my $text = join " ", @ARGV;

my $googletrans = WebService::Simple->new(

otsune

package AnyEvent::TumblrDashboard;
use base qw/AnyEvent::Twitter/;

sub receive_statuses_home {
   my ($self, $weight) = @_;

   weaken $self;
   $self->{schedule}->{statuses_home} = {
      wait    => 0,
      weight  => $weight || 1,

otsune

// Copyright (C) 2005, temp_h.
// Released under the GPL license
// http://www.gnu.org/copyleft/gpl.html
//
// ==UserScript==
// @name           Disable HATENA keyword
// @namespace      http://www.pandora.nu/tempo-depot/js
// @description    Disable HATENA keyword ancher. Ancher nodes will be replaced with span nodes.
// @author         temp_h <[email protected]>
// @include        http://d.hatena.ne.jp/*

otsune

// ==UserScript==
// @name           PDF/PPT viewer with Google docs
// @namespace      http://www.otsune.com/
// @include        http://*
// @include        https://*
// @exclude        http://docs.google.com/*
// @version        0.3
// ==/UserScript==
// Based on http://d.hatena.ne.jp/blooo/20100118/1263818555
// http://coderepos.org/share/browser/lang/javascript/userscripts/pdfppt_viewer_with_google.user.js?

otsune

{
  "name": "Chrome Keyconfig", 
  "version": "1.5.3", 
  "normal_actions": {
    "j": {
      "name": "scroll down", 
      "args": []
    }, 
    "k": {
      "name": "scroll up", 

otsune

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

use WebService::Simple;
use Data::Dumper;

my $nlwnew_version = "0.9.2";

my $nlwnew = WebService::Simple->new(

otsune

// ==UserScript==
// @name           use Perl Journal: Add title with journal title
// @namespace      http://www.otsune.com/
// @include        http://use.perl.org/~*/journal/*
// @require        http://gist.github.com/3242.txt
// ==/UserScript==

(function() {
  var journaltitle = $X('id("journalslashdot")/div[@class="title"]/h3')[0].textContent;
    document.title = journaltitle + ' - ' + document.title;