vallog: 2011

*** Welcome to IELM ***  Type (describe-mode) for help.
ELISP> (get 'hoge :foo)
nil
ELISP> (get 'hoge :bar)
nil
ELISP> (setf (get 'hoge :foo) 100)
100
ELISP> (setf (get 'hoge :bar) 200)
200
ELISP> (get 'hoge :foo)
100
ELISP> (get 'hoge :bar)
200
ELISP> hoge
*** Eval error ***  Symbol's value as variable is void: hoge
ELISP> (setq hoge 'aaaaaaaaaaa)
aaaaaaaaaaa
ELISP> hoge
aaaaaaaaaaa
ELISP> (defun hoge (x) x)
hoge
ELISP> (hoge "hoge")
"hoge"
ELISP> (hoge "hello, world !!")
"hello, world !!"
ELISP> (symbol-value 'hoge)
aaaaaaaaaaa
ELISP> (symbol-function 'hoge)
(lambda
  (x)
  x)

ELISP> (symbol-plist 'hoge)
(:foo 100 :bar 200)

ELISP> (symbol-name 'hoge)
"hoge"
ELISP> (symbol-package 'hoge)
*** Eval error ***  Symbol's function definition is void: symbol-package
ELISP>

twitterで教えてもらったけど、Common Lispのsymbolって5つもスロットあったのか（笑）変数/関数にplistの3つかと思ってた。その点schemeは良し悪しは別としてすごくシンプル。

CLHS: System Class SYMBOL

2011/12/23

2011/12/22

Re: lispのマクロ定義について

lispのマクロ定義について | OKWave

最初の例は動かないんじゃないかなー。取りあえずmacroexpandしたらいいかと。この辺はLOLの評価の梯子（だっけ？）の話がわかりやすかった。

[1]> (defmacro inc! (var)`(setq var (1+ var)))
INC!
[2]> (let ((x 1))(macroexpand '(inc! x)))
(SETQ VAR (1+ VAR)) ;
T
[3]> (defmacro inc! (var)`(setq ,var (1+ ,var)))
INC!
[4]> (let ((x 1))(macroexpand '(inc! x)))
(SETQ X (1+ X)) ;
T
[5]>

On LispもLOLもせっかくWebで読めるので参考にしてはどうでしょう。

こんなとこでドヤ顔しながら回答しても無意味だけど。

vallog: Scheme マクロのデバッグ4種

2011/12/21

ubuntuにGauche-gd入れてなかった

というかgdも入ってなかった。

$ sudo apt-get install libgd2-xpm-dev

Gauche-gd

$ ./configure
$ make
$ sudo make install

しばらく前に仕事でGauche-gd使って画像レンダラコマンドとDSL（振り返るとこれはひどかった・・・）を書いたんだけど、それを自分用に書き直したいなーって思っていたり。あと、当時それらを作るのにGDのことを何もしらなかったのでいろいろサンプルを書いた残骸があるのでブログに書こうと思っていたんだった（忘れてた）。いつか書く（かも）。

2011/12/20

favrand自動更新

以前、指定したTwitterユーザーのふぁぼりをランダムに一つ選択して表示するfavrandというコマンドを作った。

vallog: Twitterのお気に入りをランダムに表示して楽しむ

コマンドにしたお陰で、コマンドとしてもbotとしても動いてたりする。

それは置いといてインターバルを設定して自動で更新するようにしてみた。つまり、いままでは一回の実行で一個のふぁぼを表示していたけど、自動で更新してくれるようにしただけ。自分のふぁぼでも他人のふぁぼでも眺めてるだけでたっぷり時間を消費できる・・・

favrand at master from valvallow/favrand - GitHub

タンブラー版のコマンドも。

tumblrand at master from valvallow/tumblrand - GitHub

2011/12/19

2011/12/18

Island Life - 範囲の指定

2011/12/17

bloggerバグってる？

このブログに下記の記事がある。2011年12月の記事。右側のarchiveの2011/12/14と2011/12/13の間に並んでいるので、個別にアクセスすることができる。だけど、ブログ最下部の「前の投稿」から辿ると表示されない。

しかし「前の投稿」から「vallog: blogの更新をtwitterに通知する」まで辿ってから「新しい」で逆に辿ると表示される。

追記

と、思ったら・・・
全ての記事がトップから「前の投稿」まで流れたら表示されるようになった。つまりこの記事を投稿した時点で上記の症状がなくなった。

2011/12/16

Fractals in Clojure - Buddhabrot Fractal (by Nurullah Akkaya)

2011/12/15

日記

feedburnerでtwitterに通知するようにしたわけです。ただ全ての投稿が通知されるのはどうかと・・・。ということで、feedburnerラベルがついた投稿だけ通知するようにしました。何が言いたいかというとテスト。

vallog: blogの更新をtwitterに通知する

日記本題。awk/sedが便利だし楽しいだしマイブームです。というかshell scriptすげー。便利ー。なんでもうちっと早く触ってみなかったのか。。m4とかももうちっと触ってみたい。

す、す好きなコマンドはなんですか？

2011/12/14

shellで連番の欠番を探す(awk)

欠番に耳あてしてみる。

$ i=10 && while [ $i -ne 0 ] ; do ; od -vAn -N1 -tu4 < /dev/random ; i=`expr $i - 1` ; done | tr -d ' ' | sort -n | uniq > ~/temp/randnums.txt
$ cat ~/temp/randnums.txt
1
13
62
64
114
137
210
240
253
$ cat ~/temp/randnums.txt | awk BEGIN{'FS=","}{print $1}' | awk 'BEGIN{pre=0;}{if(pre+1<$1){for(i=pre+1;i<$1;i++){print "*"i"*"}}{print $1}pre=$1;}'  | head
1
*2*
*3*
*4*
*5*
*6*
*7*
*8*
*9*
*10*
*11*
*12*
13
*14*
*15*
*16*
*17*
*18*
*19*
*20*

取りあえずコマンドにしてみる。

$ cat ~/temp/randnums.txt | toothless | head -n 15
2
3
4
5
6
7
8
9
10
11
12
14
15
16
17

ソースはこちら
そういえば以前同じようなことした。

vallog: 連番リストの歯抜け

おまけ

基本的にこのページは全て awk で記述していく。

awk/sedいいですよねー面白いですよねー。もっとちゃんとやってみたい。

shellで適当な数値セットを作る(while, od, /dev/random, expr)

$ i=10 && while [ $i -ne 0 ] ; do ; od -vAn -N1 -tu4 < /dev/random ; i=`expr $i - 1` ; done | tr -d ' ' | sort -n | uniq
33
84
93
100
133
148
170
241
247

shellで適当にCSVを作る(while, od, /dev/random, shasum, cut, expr)

こないだも同じようなの書きましたけども

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

$ i=30;while [ $i -ne 0 ] ; do ; echo `od -vAn -N1 -tu4 < /dev/random`','`head /dev/urandom | shasum | cut -f 1 -d " "` ; i=`expr $i - 1` ;done
143,7ed6cdfacce9c8180f084f11ff40a487fb9b76cc
172,e8868853fbf06a59d54a80af5d326ee923f5c2a5
20,aa6964527830642d0487d8c91ee729acd596d2c6
16,39653698b5f44272b9323175142c6f697b0b56e5
147,58d0a5b4f8ba2b6b232b3d880b012dbc5c8f7003
124,4b29452a6ceed3bc5cbc5646f89b8d059f35142c
77,79d318be8be409b772f5bc084119816e1d8a7b3d
5,830c44e27e2541f5b3cb93dfad07a35121f19d4a
29,e822b1cd62a150c6f33f5db764e2ea4a684e79d2
90,d32f9c0a7b84f2cdd9621ed8a9265cd95a56c263
65,fd244f7b6c689510e4b5ddf12871497c74fdc499
189,1731b1bf3a5376880b36dc95ec1e7f7195648e20
137,79b3c453d5157bd39d27cd5ce543f652f9b3bcaf
28,9ed7b27b2f119e9d5b90807c8eb95871d2b41f9b
45,52e2a699499889ea4f8c6840ab968f8c56fd3811
148,ff29ed9a549e9252e230321d2aa620850aa1f88f
162,baecf2ff043644044b8ed901e70283a645990d4f
169,9b1d410a6a7e1b3babfe4ccbbef0aa769bad9bf7
117,16d548cb175ccf8e992ed69ec1d43940a15bda85
127,ca7533638cd1cb09d774d3515d4298842c912a93
203,80431c1c5296af45c7974d07ae2aea803167a395
5,0488e6326128587a7a0f8fa071120b78752dacbf
102,c3882ba4b20a38f34cb08b96bd7cec22a0cf47a7
161,9efe9a3c9a9f46fc928ef077123dc3ae188f6973
9,cd5c6555c08ddf3a81b8a682b65a7de3adb25cd4
132,7abe72b0e1341a5b4b24b06dcc75fbc2615fa3c7
229,5ee1c7255d38acbe446e8a30bcf6ddcefd8615bb
193,228f6cdab6ae3d276a1b4b543ca39cf93f499a5f
188,f6b215b5202d7342f7c310402dffedaf349fcbce
54,6e2490ea175f1e4ea009e441fccabe08d2d8c0c7

shellで乱数(od, /dev/random, tr)

$RANDOMってのもありますね。

$ od -vAn -N1 -tu4 < /dev/random | tr -d ' '

$ od -vAn -N4 -tu4 < /dev/random | tr -d ' '

シェルやシェルスクリプトで乱数を使う2つの方法 | エンタープライズ | マイナビニュース

日付を2進数とか16進数に変換してみるshell script(date, bc)

最近「入門UNIXシェルプログラミング―シェルの基礎から学ぶUNIXの世界」って本を読んでて、シェルスクリプト書いてみてます。

普段は何かやりたいことがあればGaucheで書いています。ですがシェルスクリプトで書いた方が手軽な場合も多々あります。やりたいことがあったときにシェルスクリプトで書くか、お気に入りの言語で書くか、この辺の判断はまだできません。シェルスクリプト書くのが結構楽しいので、もうちっと書きながら勉強してみます。

当初考えていたやりたいことを実現するにはシェルスクリプトで十分でした。が、機能を付け加えていくうちに「Gaucheでやればよかった・・・」という状況になりました。。なぜかというとコードが手続き的でわかりにくくて面倒になったからです。まだシェルスクリプトの作法がわからないこともありますが、文法的に手続き的なコードになりやすい印象を受けます（そりゃそうだろうと思いますが）。手続き的なコードが苦手なのであーあーあーあーあー状態。

で、本題。
date2binという名前を見ればわかるように、日付を2進数に変換してみようと思ったのがきっかけでした。そのうち16進数も、8進数も、CSVにも、といろいろやってるうちに面倒なことに。

$ date2bin -n3
--------------------
count          : 0
+%Y-%m-%d      : 2011-12-14
+%s            : 1323788400
+%Y%m%d -> bin : 1001100101101111101101110
+%m%d -> bin   : 10010111110
+%s -> bin     : 1001110111001110110100001110000
+%Y%m%d -> oct : 114557556
+%m%d -> oct   : 2276
+%s -> oct     : 11671664160
+%Y%m%d -> hex : 132DF6E
+%m%d -> hex   : 4BE
+%s -> hex     : 4EE76870
--------------------
count          : 1
+%Y-%m-%d      : 2011-12-15
+%s            : 1323874800
+%Y%m%d -> bin : 1001100101101111101101111
+%m%d -> bin   : 10010111111
+%s -> bin     : 1001110111010001011100111110000
+%Y%m%d -> oct : 114557557
+%m%d -> oct   : 2277
+%s -> oct     : 11672134760
+%Y%m%d -> hex : 132DF6F
+%m%d -> hex   : 4BF
+%s -> hex     : 4EE8B9F0
--------------------
count          : 2
+%Y-%m-%d      : 2011-12-16
+%s            : 1323961200
+%Y%m%d -> bin : 1001100101101111101110000
+%m%d -> bin   : 10011000000
+%s -> bin     : 1001110111010100000101101110000
+%Y%m%d -> oct : 114557560
+%m%d -> oct   : 2300
+%s -> oct     : 11672405560
+%Y%m%d -> hex : 132DF70
+%m%d -> hex   : 4C0
+%s -> hex     : 4EEA0B70
--------------------

$ date2bin -fn3
count,ymd,epoch,ymd_bin,md_bin,epoch_bin,ymd_oct,md_oct,epoch_oct,ymd_hex,md_hex,epoch_hex
0,2011-12-14,1323788400,1001100101101111101101110,10010111110,1001110111001110110100001110000,114557556,2276,11671664160,132DF6E,4BE,4EE76870
1,2011-12-15,1323874800,1001100101101111101101111,10010111111,1001110111010001011100111110000,114557557,2277,11672134760,132DF6F,4BF,4EE8B9F0
2,2011-12-16,1323961200,1001100101101111101110000,10011000000,1001110111010100000101101110000,114557560,2300,11672405560,132DF70,4C0,4EEA0B70

コードはこちら
今回気づいた面白い日付は3/14とか5/12とかでしょうか（今回のコマンド関係ない）。あとはbinary dayくらいですかね。epochで言えば2012/04/02の11時くらいが1333333333でちょっと面白いですね。他にはもう過ぎ去りましたが

$date -d @1234567890 +%Y-%m-%d

$date -d @1111111111 +%Y-%m-%d

とかですか。

ダサいコードで恥ずかしいですが、どんどん晒していきます。

blogの更新をtwitterに通知する

以前はfriendfeed経由でやってました。いつからかfriendfeedからの通知ができなくなったのでtwitterfeedから通知するようにしました。twitterfeedの通知は微妙でした。ので、Twitterへの通知はしばらく止めてました。今度はfeedburnerの通知機能を使うことにしました。

Feedburner から Twitter へブログ更新情報を自動投稿 - WEBマーケティングブログ

ということでテスト。

2011/12/13

2011/12/11

1000

このブログ1000記事目だー
昔書いた下書き記事を含めてだけど。

下書きの記事はpure言語を触ってみた結構長めの話だった。

ちょっと振り返ってみる。

このブログは2009/01/01から書いてる。それ以前の記事は前のブログから移行したもの。
（ということは1000記事目じゃないな）

sicpを読むために「もうひとつの Scheme 入門」を読み始めたのが2008/11くらいからだった。（lispを始めたきっかけは同時期にハッカーと画家を読んだからだけど）
だからこのブログもこのありさまなんだ・・・。

そういえばKPFを始めたのも同じ頃。初めて参加した勉強会というかイベント？（2008/12に福岡であった九州Ruby会議）とTwitterがきっかけ。2008年末にいろいろやったから今があるんだなー（白目

2008年末頃のバイタルは異常。

Twitter / @valvallow: 【急募】熊本でプログラマのための勉強会を開催したいで ...

意識高ぇー（笑）

Twitter / @valvallow: 熊本でも勉強会や読書会があればなぁ・・・などと他人任 ...

当時RTなんてなかったんだぜ・・・信じられるか・・・。

2011/12/10

全自動バルス - kamaruのメモその他諸々

2011/12/09

2011/12/08

extractコマンド

そんなコマンドはないですが、下記リンクのものをコマンドにしています。

ソースはこちら。こんな感じ。 link先ではaunpackがあるじゃんって話ですね。aunpackも使いますが、上記コマンドはリファレンスにもなるのでこれはこれで便利。

ssh先のディレクトリをtarしてローカルにコピーして展開(ssh, cd, tarしてtar)

$ ssh valvallow@server '(cd /foo/bar/baz ; tar cf - .)' | tar xf -

だいたいいつもこれ見る。

vallog: Network File Copy using SSH

dateコマンドで日付の加減算

$ date
Thu Dec  8 19:35:07 JST 2011
$ date --date '-100month'
Fri Aug  8 19:35:19 JST 2003
$ date --date '-100month' +%Y-%m-%d
2003-08-08
$

へぇーへぇー。

vallog: dateコマンドでepochとか

2011/12/07

日記

今日はぬこ様と遊べて楽しかった。
先生んちの98lowかわいかった。

あと10記事くらいで1000記事目だこのブログ。
自動更新のvalloggerに1000を取られないようにしたい。

ベツニトラレテモイイケド、「1000ならxxx！！」ッテカキタイ

そういえば最近、また岐路っぽい。
方向が決まったら日記でも書く。

2011/12/06

2011/12/03

シェル - echoで文字に色をつけるその1 - Miuran Business Systems

2011/12/02

クリスマスツリーを飾りました。Lispで。

もうすぐクリスマスなのでterminalにクリスマスツリーを飾りました。
Lisp（というかScheme（というかGauche 0.9.1以降））で書きました。
和田先生の去年の記事を参考に・・・。

パラメトロン計算機: クリスマスツリー講義

$ christmas-tree -size 6 -color

ソースはこちら。毎度よろしくコマンドにしました。色付けが若干間違ってるのはご愛嬌ということで。

lispギャグ

リリカル☆LispとかマンガでわかるLispの中の人が。

LispギャグAdvent Calendar : ATND

LispやSchemeはいつもAdvent Calendarないですねー。

クリスマスネタとか新年ネタ探そ。

クリスマスツリーは去年見かけて、真似して書きかけたのがある。
書き初めは、仕事で書いたgauche製の画像レンダラがあるのでできそう。ってか普通にGauche-gdだけでいいか。

渾身のlispネタ

bloggerの新UIで投稿できなくなった

ので、旧UIに戻した。
2011/12/02 20:08

2011/12/01

2011年11月の筋トレ

10年以上体重に目立った変化がなかったのに今年になって6kg太った。腹がぷにぷにしてきた。思い切って11月から筋トレを始めた。「痩せるには筋肉つけて代謝を上げればいいはず（ｷﾘｯ」と考えて筋トレ。取りあえず少ない回数から始めて、「続ける」ことを目標にした。これからも焦らず無理せず続けたい。
目標は半年後に腹筋を割ること。誰かアドバイスたのむ。
目指せガチムチｪ・・・

日時	体重	腕立て	腹筋	スクワット
2011-11-02	59.7	20	20	20
2011-11-03	60.4	20	20	20
2011-11-04	59.4	30	30	30
2011-11-05	59.4	30	30	30
2011-11-06	59.8	30	30	30
2011-11-07	59.6	40	0	50
2011-11-08	59.4	40	10	40
2011-11-10	58.9	30	5	30
2011-11-12	58.2	50	50	30
2011-11-14	58.4	50	20	30
2011-11-15	59.0	50	20	0
2011-11-16	57.0	50	30	0
2011-11-17	58.8	70	30	0
2011-11-18	58.8	100	50	0
2011-11-19	59.8	100	50	0
2011-11-20	58.8	100	50	0
2011-11-22	58.8	115	50	0
2011-11-23	59.2	100	50	0
2011-11-25	59.0	140	50	0
2011-11-26	59.0	100	50	0
2011-11-29	58.8	80	30	0
2011-11-30	58.6	100	50	0
22/30日	平均59kg	1445	725	310

スクワットは途中でやめた。腕立ては楽しく続けている。腹筋はツライ・・・。懸垂したい。
夕食後就寝前に筋トレしてるのでまずいと思う。夕食前にシフトしたい。身長は171cm。
ちなみに記録は、筋トレ用にCSV記録用のshellスクリプト書いて、集計と表組はawkでやった。

2011/11/30

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

Ubuntu11.10にRicty入れた

いいなこれ。

2011/11/22

twitter client (terminal, shell, cui)

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

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

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

2011/11/21

On Lisp

公開再開だそうです。

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/12/31

2011/12/30

社会復帰した

27歳になった

仕事でlisp

ぎっくり腰になった(11年ぶり2回目)

J.P.ホーガンを読みあさった

unix/linuxが好きになった

shellコマンドにハマった

プログラムを書いたらとりあえずコマンドにした

客先泊まり込みデスマ

ウィスキーが好きになる

久し振りにKPFを開催

隔週開催していた9LISPが不定期開催(不本意)

ThinkPad買ってubuntu入れた

筋トレ始めた

facebookに地元の友人/知人がたくさん

ガラケーからスマートフォンにした

2011年の目標

2011/12/29

2011/12/28

2011/12/27

2011/12/26

2011/12/25

2011/12/24

2011/12/23

2011/12/22

2011/12/21

2011/12/20

2011/12/19

2011/12/18

2011/12/17

追記

2011/12/16

2011/12/15

2011/12/14

おまけ

2011/12/13

2011/12/12

2011/12/11

2011/12/10

2011/12/09

2011/12/08

2011/12/07

2011/12/06

2011/12/05

2011/12/03

2011/12/02

渾身のlispネタ

2011/12/01

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

前回