vallog: 2011/11

2011/11/28

プロシュート兄貴

「書いてみたい」…そんな言葉は使う必要がねーんだ。                                                                                                                        
なぜなら、プログラマや、プログラマの仲間は、
その言葉を頭の中に思い浮かべた時には！
実際にプログラムを書いちまって、もうすでに終わってるからだッ！
だから使った事がねェーッ。

オマエもそうなるよなァ～～～、プログラマなら…
わかるか？オレの言ってる事…え？

『書いてみた』なら、使ってもいいッ！

ジョジョ名セリフ集

これを読んでプロシュート兄貴を思い出したので。

「無料です」のおはなし | Kwappa談話室

「興味がある」「勉強したい」「作ろうと思ってる」。ぐずぐず言う前(もしくは言った後)に、ハローワールドからでいいから、コードをひとつ書いて公開すればいい。

プロシュート兄貴の言う通りにやるのはハードルたけぇーなー。

terminalから輝度を調節

ubuntu 11.10, thinkpad x1

11.04 - How can I change brightness through terminal - Ask Ubuntu - Stack Exchange

% brightness 10

ソースはこちら。

vallog: terminalから音量調節(ubuntu, amixer)

2011/11/27

Pixel Licker Games

明日早起きなのに。。

terminalから音量調節(ubuntu, amixer)

% amixer set Master 60%

ubuntu11.10のunityだとthinkpad x1のキーボードの右側にある音量調節ボタンで調節できた。けど、stumpwmだとmute、unmuteしかできなかったので調べた。

コマンドにしとく。ソースはこちら。

% volume 70

参考

alsamixerとamixer、GUIのミキサー - 試験運用中なLinux備忘録

2011/11/26

Island Life - 多段ビルド文化

2011/11/25

2011/11/24

2011/11/23

2011/11/22

twitter client (terminal, shell, cui)

shellから使えるtwitterクライアントを探してた。

ttytter, termtter, twidgeを試した結果、twidgeが一番良かった。他の二つは好みではなかった（特に自動更新なとこ）。twidgeはHaskell製らしい。apt-getから入った。

と、思ったらutf-8使うにはソース編集してコンパイルし直さないとダメだったのでボツ。
なんかいいのないかなー。

2011/11/21

2011/11/20

Simple script to get battery charge and time remaining... (Page 1) / Community Contributions / Arch Linux Forums

シェルスクリプトで適当なcsvを作る

いつもはgoshで作るけど、シェルスクリプトで簡単に作れた話。

for i in {1..12}
do
  echo '' > hoge$i.csv
  for j in {1..30}
  do
    echo $i$j','`uuidgen`','$RANDOM'\n' | sed 's/ //g' | sed '/^$/d' >> hoge$i.csv
  done
done

cygwinでwindowsのアプリケーションを実行する

昔きくちゃん先生に書いてもらったヤツ。

$ start doc/hoge.pdf
# adobe reader でPDFが開く

とか

$ start .
# explorerが開く

$ start pic/fuga.png
# 画像ビューワで画像が開く

といった感じ。
で、そのstartってのはこれ。

 #!/bin/sh
`cygpath -S -u`/cmd /c start `echo "$*" | xargs -n 1 cygpath -w`

「それcygstartでできるよ」って言われそうだけど、なぜか会社のPCでcygstartが動かない、

追記

Pro Git - Table of Contents

.stumpwmrcさらし

The Stump Window Manager

StumpWMは入れただけでほとんど使っていなかった。
しばらく使ってみたら快適だったので気になるところだけ.stumpwmrcを書いてみた。
今後活躍の機会が増えるかも。ソースはこちら。

vallog: バッテリーの状態を表示するシェルスクリプト（状態、パーセント、残り時間）

バッテリーの状態を表示するシェルスクリプト（状態、パーセント、残り時間）

[charged|charging|discharging] [parcent] [time]
gnu screenのステータスラインとStumpWMのmode-lineに表示しようかと。

$  battery
discharging 19% 0:44

ソースはこちら。

参考

2011/11/19

パブリックドメイン・アーカイブ

2011/11/18

2011/11/17

vimの行番号

行番号を非表示にするにはどうすんのかなーって。

:set number

:set nonumber

これ読んでみてーなー。

Vimテクニックバイブル　～作業効率をカイゼンする150の技

あとこっちも欲しい。必要ないかなーなんて思ってたけど、目次見たらすごかった。

Emacs Lispテクニックバイブル

ちなみにこれは持ってる。だいぶお世話になった。

Emacsテクニックバイブル　～作業効率をカイゼンする200の技～

gauche-library-directory探訪001：gauche/macroutil.scm

gaucheのライブラリをのぞいて、目についたものを書いていくシリーズ（謎

前回

vallog: gauche-library-directory探訪000：はじめに

gauche/macroutil.scm

前回の方法で移動したディレクトリのgaucheディレクトリから。macroutil.scmという目を引くファイルがあったのでのぞいてみた。xmac, xmac1というマクロが定義されていた。

$ rlwrap gosh
gosh> (gauche-version)
"0.9.2"
gosh> (use gauche.macroutil)
gosh> (xmac (let1 a 1 (print a)))
(let ((a 1)) (print a))
gosh> (xmac (xmac (let1 a 1 (print a))))
(unwrap-syntax (%macroexpand (let1 a 1 (print a))))

見ての通り%macroexpandマクロの結果がunwrap-syntaxに渡されている。こんなマクロがあったなんて知らなかった。ドキュメントを調べてみたらundocumentedだった。

gauche-library-directory探訪000：はじめに

gaucheのライブラリをのぞいて、目についたものを書いていくシリーズ（謎
ライブラリならドキュメントを見れば済むんだけど、今回はライブラリのソースものぞいてみるということで。

準備

gaucheにgauche-library-directoryという手続きがある。

Gauche ユーザリファレンス: 6.23 システムインタフェース

こんな感じ。

$ rlwrap gosh
gosh> (print (gauche-library-directory))
/usr/local/share/gauche-0.9/0.9.2/lib

今後しばらくのぞいていくのは上記のディレクトリ。ということでshellで以下のように移動する。

$ cd `echo '(print (gauche-library-directory))' | gosh`

まずはどこからのぞくか。次回に続く（？）

2011/11/16

最近の雑多なコマンド（gauche）

某所で見たTwitterのfollow関係を表示するスクリプトのコマンド版。

$ ./twitter-friendship valvallow hoge

プログレス付きのタイマーコマンド。~~結果はnotify-sendか何かに渡すということで。~~←変更が必要そう。←プログレスをエラーポートに出力するようにした。

$ ./progress-timer -t hoge -s 10s timer

$ notify-send `progress-timer -s 3s -t hoge fuga`

2011/11/14

2011/11/13

人名を冠したソフトウェア開発の19の法則

shellからterminalの幅と高さを取得（tput）

$ tput cols
191
$ tput lines
44

tcpdump

$ sudo tcpdump -n -i wlan0

chromium proxy

preferenceからやるよりこっちが簡単

chromium-browser --proxy-server=proxy:port

gaucheでgoogleの非公開apiを使って天気を取得するコマンド

某所で掲題のようなgaucheのコードを見かけたのでコマンドにしてみた。

$ ./weather kumamoto
kumamoto:2011-11-12
condition:Cloudy
temp_f:60
temp_c:15
humidity:Humidity: 77%
icon:/ig/images/weather/cloudy.gif
wind_condition:Wind: E at 0 mph

day_of_week:Sat
low:52
high:73
icon:/ig/images/weather/mostly_sunny.gif
condition:Partly Sunny

day_of_week:Sun
low:46
high:70
icon:/ig/images/weather/mostly_sunny.gif
condition:Mostly Sunny

day_of_week:Mon
low:37
high:63
icon:/ig/images/weather/sunny.gif
condition:Clear

day_of_week:Tue
low:41
high:64
icon:/ig/images/weather/sunny.gif
condition:Clear

$ ./weather -j kumamoto
{"date":"2011-11-12","current":{"condition":"Cloudy","temp_f":"60","temp_c":"15","humidity":"Humidity: 77%","icon":"/ig/images/weather/cloudy.gif","wind_condition":"Wind: E at 0 mph"},"in_the_future":[{"day_of_week":"Sat","low":"52","high":"73","icon":"/ig/images/weather/mostly_sunny.gif","condition":"Partly Sunny"},{"day_of_week":"Sun","low":"46","high":"70","icon":"/ig/images/weather/mostly_sunny.gif","condition":"Mostly Sunny"},{"day_of_week":"Mon","low":"37","high":"63","icon":"/ig/images/weather/sunny.gif","condition":"Clear"},{"day_of_week":"Tue","low":"41","high":"64","icon":"/ig/images/weather/sunny.gif","condition":"Clear"}]}#%

ソースはこちら。

2011/11/12

竹内関数で音楽生成 - aikeの日記

冠婚葬祭のひみつ

先日、未来の二つの顔 (創元SF文庫)を読み終わったので、母親から借りている本10冊くらいの中から適当に見繕って読んでいた。ここ数日風邪でダウンしていたので本を消化していたわけです。

で、その中に掲題の本があった。

冠婚葬祭のひみつ (岩波新書)

これ面白い（笑）母親からも「これ面白いから読んでみ」ってことだった。まだ読み終わったわけではないけど頭っから掴みはOK。「へぇーへぇー」状態。

冒頭は結婚式についての話から入るんだけど、神前式のルーツは意外に新しくて明治33年に行われた、後の大正天皇の結婚式からというお話。当時は日清戦争と日露戦争の間の年で、国としては「神の国」のイメージを固め、富国強兵を推し進めたいという背景からだそう。
かといって、神前式の前は仏前式だったかというとそうでもなく、そもそも仏教的には開祖が妻帯者（親鸞）だった浄土真宗以外は出家者の結婚なんてもっての外だったらしい。なるほど。僧侶の妻帯が認められたのは明治以降だという。なんと仏前式の歴史もそうとう短いぞ。
じゃあ、寺は葬式だけやってたのか？というとそうではなく、江戸時代以前の寺は「葬式？んなもん在家にやらしときゃいんだよ」というスタンスだったらしく、葬式にも大して関わっていなかったんだって。（じゃあ何してたの？）

江戸時代以前は僧侶もフリーランスが多かったらしい。江戸時代に入ってからキリシタンの取締が強化され、寺が周辺住民の管理を行う役所みたいな役割を担うようになる。どこそこの誰々は○○寺の門徒（つまりキリシタンではないことの証明）、というような住民台帳ようなもの（宗門人別帳）の管理をするようになった。
で、これ以降、寺が葬式に関わるようになる。地域の寺にはそれぞれ本寺（本家的なもの）があり、定期的に上納金を払わないといけないわけ。で、地域の寺はどこからそのお金を集めるかというと、自分たちの下のヒエラルキーに位置する門徒。建前として仏壇や位牌や戒名という制度ができて、葬式と定期的な先祖供養を寺が行うんだから手数料と謝礼払うのは当然だよね？仏壇も買うよね？戒名ないとあの世でどんな目に合うかわかってる？という搾取システムができあがったんだと。面白ぇー。

これが冒頭。

以前から結婚式や葬式に対してモヤモヤした感覚があった。
新郎新婦ですらよく知らない、政治的な理由で出席しているどこの誰かわからない社会的地位だけは高い小汚いおっさんの超絶つまらん話をえんえん聞かされ、出席者の中に友人が少ないなーと思って聞いてみるとこれまた新郎新婦本人たちとは直接関係のないところの事情でわけのわからん老人たちがたくさん出席するため友人の招待を減らしたとかいう誰のためかわからない結婚式。
葬式は葬式で、「故人とはそんなに交流なかったけど、こないといけない気がした」みたいなアホ面下げた参列者がたくさんいる通夜。談笑ばかりしてたいして悲しそうでもない葬儀参列者。なんだんだ？と思っていたので、結婚式はともかく、葬式は本心から「故人に最後のお別れをしたい」と思える人の葬儀にだけ出席するようにしていた。それも最近は少し考えが変わって、行けば遺族が喜んでくれそうな場合は行くようにしようかなーと思うようになった。

話がそれた気がした。この本は、そういった感覚に何か裏付けを与えてくれそうな気がしたという話。

2011/11/10

2011/11/09

パインアメ1kgパック

わさおに教えてもらった。光速でポチった。

パインパインアメ 1kg

ちょっとしたクッションくらいの大きさ。

実用 Common Lisp よりデカくて分厚い。

こっちの方がお得みたいだけど。

パインパインアメ 120g×10個

追記

もっとわかりやすい比較にしてみた。

実用 Common Lisp (IT Architects’Archive CLASSIC MODER)

gaucheのtext.progressとtputコマンド（コマンド？）

gaucheにtext.progressなるモジュールがあることを知ったので、早速サンプルを動かしてみました。

Gauche ユーザリファレンス: 11.43 text.progress - テキスト端末上でプログレスを表示する

ふと疑問に思ったのが、こういうことやる時ってcursesってヤツがいるんじゃないの？ってこと。ソース見てみたら、CRで行頭復帰してるだけだった。ウロコー！

こんな感じ。

#!/usr/local/bin/gosh

(use srfi-1)
(for-each (^i (format (current-output-port) "~a\r" i)
              (flush)
              (sys-select #f #f #f 50000))
          (iota 256))

Gauche-cursesとかGauche-ncursesはないかとググったら、メンテされてなさそうなのがひっかかった。ついでにChicken Schemeのeggを調べたらncursesがあった。あとで試してみよう。

ncurses - The Chicken Scheme wiki

で、curses拡張がないならどうしたらいいのか？調べてみたらtputなんてものがあるんですね。

tput を理解する

試しにやってみたらこんな感じ。topコマンドを実行したときみたいな。

!/usr/local/bin/gosh

(use gauche.process)

(dynamic-wind
  (^ _ (run-process '(tput "civis"))
     (run-process '(tput "clear")))
  (^ _(do ((i 0 (+ i 1)))
          ((= i 256))
        (format (current-output-port) "~a\r" (make-list 100 i))
        (sys-nanosleep 10000000)
        (run-process '(tput "cup" 0 0))
        (flush)
        (sys-select #f #f #f 50000)))
  (^ _ (run-process '(tput "cnorm"))))

こりゃ便利だなーということで、以前作ったライフゲームをコマンドにしてみた。

lifegame2.scm at master from valvallow/lifegame - GitHub

$ ./lifegame2.scm -s 100 -w 30

2011/11/08

2011/11/07

2011/11/05

Linuxでterminalからguiを自動操作（automation）

こういうものがあった。

Linux(Ubuntu/Debian)でのGUI操作自動化｜にーとSEの暇つぶし

先日C#で作ってKPFで紹介した「windowを制御するdsl」と同じだ・・・。というかもっとちゃんとしてる。。

試しに無限にクリックし続けるshell script書いて、Love Languages?で試してみたり。

#!/bin/sh

while :
do
        xte 'mouseclick 1'
        sleep 0.3
done

ておくlet

defmacro

(define-macro (teoku-let binds . body)
  `(let ,(map (lambda (ls)
               (cons (car ls)'("ておくれ"))) binds)
     ,@body))

(teoku-let ((wasao 68)
            (gentoo 'linux)
            (kumamoto "熊本"))
       (print wasao)
       (print gentoo)
       (print kumamoto))
;; ておくれ
;; ておくれ
;; ておくれ

syntax-rules

                                                                                                                     
(define-syntax teoku-let
  (syntax-rules ()
    ((_ () body ...)
     (let ()
       body ...))
    ((_ ((var val) x ...) body ...)
     (let ((var "ておくれ"))
       (teoku-let (x ...)
                  body ...)))))

(teoku-let ((wasao 68)
            (gentoo 'linux)
            (kumamoto "熊本"))
       (print wasao)
       (print gentoo)
       (print kumamoto))
;; ておくれ
;; ておくれ
;; ておくれ

JavaベースのScheme

ググった結果をざっくり

他

JVM上のlisp

Clojure - Wikipedia

参考

vallog: JVM上のSchemeといえば・・・

2011/11/04

cygpath の便利なオプション - ブックマクロ開発に

2011/11/03

2011/11/02

2011/11/01

最近の雑多なコマンド（gauche）

現実逃避駆動スクリプティング。使い捨てでいいんだけど、あえてコマンドにしました的な。

jsonとalistを相互に変換。

$ echo '(("a" . 1)("b" . 2)("c" . (("d" . #(1 2 3)))))' | json2alist -a 
{"a":1,"b":2,"c":{"d":[1,2,3]}}

$ echo '(("a" . 1)("b" . 2)("c" . (("d" . #(1 2 3)))))' | json2alist -a | json2alist
(("a" . 1) ("b" . 2) ("c" ("d" . #(1 2 3))))

csvをjsonに。csvをtemplate engineに渡すときにかましたり。

$ echo '1,2,3\n4,5,6\n7,8,9'| csv2json
"{\"title\":\"\",\"lines\":3,\"body\":[[\"1\",\"2\",\"3\"],[\"4\",\"5\",\"6\"],[\"7\",\"8\",\"9\"]]}"

jsonからkeyを取得したり、指定したkeyの値を取得したり。

$ echo '{"a":1,"b":2,"c":{"d":[1,2,3]}}' | pryon -k                                           
a                                                                                                  
b                                                                                                  
c                                                                                                  
$ echo '{"a":1,"b":2,"c":{"d":[1,2,3]}}' | pryon -t                                            
object                                                                                             
$ echo '{"a":1,"b":2,"c":{"d":[1,2,3]}}' | pryon -l                                                
3                                                                                                  
$ echo '{"a":1,"b":2,"c":{"d":[1,2,3]}}' | pryon -e c                                              
{"d":[1,2,3]}                                                                                   
$ echo '{"a":1,"b":2,"c":{"d":[1,2,3]}}' | pryon -e c | pryon -e d                                   
[1,2,3]                                                                                         
$ echo '{"a":1,"b":2,"c":{"d":[1,2,3]}}' | pryon -e c | pryon -e d | pryon -i 2                      
3

最後のやつは、jshonってののライト版的ノリで。ちょっと便利。というかjshonがうまいこと動いてくれなかったので仕方なく。

Jshon: Using with other tools

terminal で json pretty print

terminalからweb apiを呼んで返ってきたjsonを見るときに。pythonはだいたいどこでも入ってるし。

vallog: wgetでpostする

python -m json.tool

wget -O - http://foo:piyo@hogehoge.com/api/fuga | python -m json.tool

例えばこんな感じ。

% wget -O - "https://api.twitter.com/1/statuses/user_timeline.json?id=valvallow&count=1" 2> /dev/null | python -mjson.tool
[
    {
        "contributors": null,
        "coordinates": null,
        "created_at": "Tue Nov 01 15:04:22 +0000 2011",
        "favorited": false,
        "geo": null,  
        "id": 131386101536526337,
        "id_str": "131386101536526337",
        "in_reply_to_screen_name": "sasagawa888",
        "in_reply_to_status_id": 131385453638201344,
        "in_reply_to_status_id_str": "131385453638201344",
        "in_reply_to_user_id": 236352281,
        "in_reply_to_user_id_str": "236352281",
        "place": null,
        "retweet_count": 0, 
        "retweeted": false, 
        "source": "twicli", 
        "text": "@sasagawa888 \u305d\u3046\u3067\u3059\uff3e\uff3e\uff1b", 
        "truncated": false, 
        "user": {
            "contributors_enabled": false, 
            "created_at": "Mon May 14 04:57:45 +0000 2007", 
            "default_profile": false, 
            "default_profile_image": false, 
            "description": "S\u5f0f\u304c\u597d\u304d\u3002\u660e\u65e5\u304b\u3089\u672c\u6c17\u51fa\u3059\u3002\u306e\u3093\u3073\u308a\u751f\u6d3b\u3057\u305f\u3044\u3002", 
            "favourites_count": 2686, 
            "follow_request_sent": false, 
            "followers_count": 1648, 
            "following": true, 
            "friends_count": 1395, 
            "geo_enabled": false, 
            "id": 6023392,
            "id_str": "6023392",
            "is_translator": false,
            "lang": "ja",
            "listed_count": 163,
            "location": "kumamoto",
            "name": "\u3057\u3083\u308c\u3053\u3046\u3079\u4e59",
            "notifications": false,
            "profile_background_color": "FFFFFF",
            "profile_background_image_url": "http://a0.twimg.com/profile_background_images/655452/Half_docro.jpg",
            "profile_background_image_url_https": "https://si0.twimg.com/profile_background_images/655452/Half_docro.jpg",
            "profile_background_tile": false,
            "profile_image_url": "http://a0.twimg.com/profile_images/557761803/dokuro33whitebig_normal.JPG",
            "profile_image_url_https": "https://si0.twimg.com/profile_images/557761803/dokuro33whitebig_normal.JPG",
            "profile_link_color": "000000",
            "profile_sidebar_border_color": "000000",
            "profile_sidebar_fill_color": "D3D3D3",
            "profile_text_color": "000000",
            "profile_use_background_image": true,
            "protected": false,
            "screen_name": "valvallow",
            "show_all_inline_media": false,
            "statuses_count": 30993,
            "time_zone": "Tokyo",
            "url": "http://valvallow.blogspot.com/",
            "utc_offset": 32400,
            "verified": false
        }
    }
]

webならここがいい。

JSON Formatter & Validator

矩形スクリーンショット

$ gnome-screenshot --area

notify-sendでラーメンタイマーというかリマインダ（ubuntuおまけでcygwin+growl for windows）

ちょくちょくあるんですよ、n分後にアラートして欲しいとか、何かしらの処理が終了したら通知して欲しいとか。そこでnotify-sendとmplayerでいい感じに通知してもらえたのでメモ。

例えば下記の場合、3分経ったら上の画像のようなアラートを表示して音楽を流してくれます。

$ sleep 3m && notify-send -i /your/icon/path/terminal.png 'noodle !!'  && mplayer /your/music/path/notify.ogg > /dev/null 2> /dev/null

長いコンパイル、デカいファイルのコピーなんかの時に仕込んでおくと便利そう。いい感じのaliasを設定しときたいですね。

cygwin

cygwinの場合は、growl for windowsがインストールされてい（てかつgrowlが常駐して）れば下記のようにできる。

$ sleep 3m ; /cygdrive/c/Program\ Files/Growl\ for\ Windows/growlnotify.exe /i: "c:\your\icon\path\notify.png" /t:"hoge" 'Ha!!'

参考

追記

alertって名前でshellスクリプト書いてみた。sh -x ./alert でtrace情報っぽいのが出るんですね。

!/bin/sh
                                                                                                  
ICON="/your/icon/path/icon.png"
MUSIC="/your/music/path/music.png"
                                                                                                   
while getopts s:m: OPT
do
        case $OPT in
                "s" ) FLG_SLEEP="TRUE" ; VALUE_SLEEP="$OPTARG" ;;
                "m" ) FLG_MESSAGE="TRUE" ; VALUE_MESSAGE="$OPTARG" ;;
        esac
done 
                                                                                                   
if [ "$FLG_SLEEP" = "TRUE" ]; then
        sleep $VALUE_SLEEP
fi
if [ "$FLG_MESSAGE" = "TRUE" ]; then
        notify-send -i $ICON "$VALUE_MESSAGE"
fi
mplayer $MUSIC > /dev/null 2> /dev/null

以下のように実行すると、3秒後に音楽とともにgrowlっぽいものが表示される。

$ alert -s 3 -m 'Hello, world !!'

登録: 投稿 (Atom)

2011/11/28

2011/11/27

参考

2011/11/26

2011/11/25

2011/11/24

2011/11/23

2011/11/22

2011/11/21

2011/11/20

関連

追記

参考

2011/11/19

2011/11/18

2011/11/17

前回

gauche/macroutil.scm

準備

2011/11/16

2011/11/14

2011/11/13

関連

2011/11/12

目次

関連

2011/11/10

2011/11/09

追記

2011/11/08

2011/11/07

2011/11/05

他

参考

2011/11/04

2011/11/03

2011/11/02

2011/11/01

cygwin

参考

追記