とりあえず暇だったし何となく始めたブログ

家でのメイン環境は Thinkpad X201 + (X)Ubuntu 12.10 を使っていているのだけど、数ヶ月前からだいぶ調子が悪かった。

ニコ生(nsen)を裏でかけっぱなしにしながら作業とかしてると突然ノート PC が再起動する。調べたところどうやら熱らしい。

sensors で温度を見ると90度以上になっていて、100度に到達した瞬間に再起動がかかるっぽい。

当初は温度にがくぶるしながら凌いでたんだけど、Emacs のリポジトリを bzr pull しただけで再起動してくれやがったりして、

良い加減苦しくなってきたので重い腰を上げてちゃんと対処を調べてみた。

で、どうやら thinkfan という Thinkpad の fan speed を自動調節するプログラムを使うのが常道らしい(今まで困ってなかったから全然知らなかった…)。

リハビリがてら、こんな内容で…(はてな記法を忘れていて愕然とした…)

github にあるのでソースコードを git clone してビルドする。

 $ git clone https://github.com/thewtex/tmux-mem-cpu-load.git
 $ cd tmux-mem-cpu-load
 $ cmake .
 $ make
 $ sudo make install

cmake とか使ってるけど、所詮 C++ ソース1ファイルだから、以下のように g++ 直接叩いてコンパイルしても良い。

 $ g++ -Wall tmux-mem-cpu-load.cpp -o tmux-mem-cpu-load

あとは、README.rst を参考に ~/.tmux.conf に以下を追記すれば OK。

set -g status-interval 2
set -g status-right-length 100
set -g status-right "#[bg=colour189] #(tmux-mem-cpu-load 2)  %m/%d/%Y %H:%M "

ソースコードを見ると /proc/stat とか /proc/meminfo とか /proc/loadavg とかいう文字列があるので、Linux じゃないと動かないかも。

とりあえず、Solaris 版はぐぐったら見っかった。

• https://github.com/troydm/tmux-mem-cpu-load-solaris

なんとなく、さくらの VPS 上で作業しました。Ubuntu 10.04 です。

 $ python -V
python 2.6.5

準備

以下のパッケージを入れます。これらの他に gcc や make のようなツールが必要です。build-essential あたりを入れておけば大丈夫に思います。

• python2.6-examples
• python2.6-dev
• libssl-dev

python2.6-examples は、freeze.py を手に入れるために入れます。freeze.py が無いとバイナリが作れません。

python2.6-dev は、こいつを入れていないと、python ファイルから C ソースファイルを変換するときに「config.c.in」が無いと言われて変換に失敗します。

libssl は、変換した C ファイルをビルドするときに必要となります。

ただし、これだけでも駄目です。以下の差分を /usr/share/doc/python2.6/examples/Tools/freeze/makeconfig.py に適用する必要があります。

• http://hg.python.org/cpython/rev/259c8655c592/

これを適用しないと、「undefined reference to `init_warnings'」と言われ、ビルドが成功しません。

成果物

出来上がったバイナリは以下のような感じです。

 $ file ./hello
./hello: ELF 64-bit LSB executable, x86-64, version 1 (SYSV), dynamically linked (uses shared libs), for GNU/Linux 2.6.15, not stripped
 $ du -sh ./hello
4.3M    ./hello

とまあ、けっこう馬鹿でかいファイルができあがります。もちろん出来上がったモノは普通に実行できます。

url-retrieve-synchronously は同期的に HTTP で指定した URL にアクセスすることができますが、相手サイトが重いと反応が中々返ってこず、Emacs が固まってしまいます。

その問題を解決するために、タイムアウトつきの url-retrieve-synchronously を作ってみました。

単純に run-with-timer で url-retrieve のプロセスを監視するタイマを作り、タイマが励起されると url-retrieve のプロセスが殺される仕組みです。

タイマウトは、デフォルトで2秒で発生します。

(require 'url-http)

(defun my-url-retrieve-with-timeout (url coding-system &optional timeout-interval)
  (let ((url-max-redirections 0)	; URL リダイレクトを抑制する
	;; `url-retrieve' のためのコールバック関数
	(url-callback #'(lambda (status coding)
			  (let (p)
			    (setq done t)
			    (when (setq p (url-http-symbol-value-in-buffer
					   'url-http-end-of-headers
					   (current-buffer)))
			      (setq jsonp
				    (decode-coding-string
				     (buffer-substring (1+ p) (point-max))
				     coding))))))
	;; タイムアウト発生時に呼ばれるコールバック関数
	(timeout-callback #'(lambda ()
			      ;; `url-retrieve' のプロセスを止める
			      (when (processp proc)
				(delete-process proc))
			      ;; `url-retrieve' は終わったものと見做す
			      (unless done
				(setq done t))))
	;; タイムアウト時間
	(timeout-interval (if timeout-interval timeout-interval 2))
	(done nil)
	buf proc jsonp timeout)
    (unwind-protect
	;; condition-case を用いて全てのエラーを捕捉する。ここで、捕捉した
	;; エラーは無視する。開発、デバッグ時には condition-case のブロック
	;; を外す。
	(condition-case e
	    (when (setq buf
			(url-retrieve url url-callback (list coding-system)))
	      (setq proc (get-buffer-process buf)
		    ;; タイムアウト監視用の timer を設定する
		    timeout (run-with-timer timeout-interval timeout-interval
					    timeout-callback))
	      ;; `url-retrieve' は非同期なので、同期的に結果を得られるよ
	      ;; うに待ち合わせる。ここでは、
	      ;; `url-retrieve-synchronously' が行っていることとほぼ同等
	      ;; のことをしている。本関数では、URL リダイクレトはしない
	      ;; (はず)なので、URL リダイレクトに対する対策の部分のみ削除
	      ;; してある。
	      (while (null done)
		(when (and proc (memq (process-status proc)
				      '(closed exit signal failed))
			   (eq proc (or (get-buffer-process buf) proc)))
		  (delete-process proc)
		  (setq done t))
		(unless (or (with-local-quit
			      (accept-process-output proc))
			    (null proc))
		  (when quit-flag
		    (delete-process proc))
		  (setq proc (and (not quit-flag)
				  (get-buffer-process buf))))))
	  (error
	   ;; 全てのエラーは無視する
	   nil))
      (when (bufferp buf)
	(kill-buffer buf))
      ;; タイムアウト用の timer を削除する
      (when timeout
	(cancel-timer timeout)
	;; 一応、初期化をしておく
	(setq timeout nil)))
    jsonp))

利用例としては、social ime 相手に使うと以下のような感じです。

もし、2秒以内に social ime から応答が無ければ、my-url-retrieve-with-timeout は nil を返します。

(let ((url (concat "http://www.social-ime.com/api/"
		   "?string=" (url-hexify-string
			       (encode-coding-string "あ" 'utf-8))))
      res)
  (when (setq res (my-url-retrieve-with-timeout url 'euc-jp))
    (split-string (substring res 0 (1- (length res))) "\t" t)))
;; => ("亜" "唖" "娃" "阿" "蛙" "吾" "亞" "呀" "堊" "婀" "椏" "痾" "錏" "鐚" "閼" "鴉" "あ" "ア")

timeout の間隔を短くする場合、my-url-retrieve-with-timeout の第3引数に数値を指定します。

少数でもオッケーです。

(my-url-retrieve-with-timeout url 'euc-jp 0.5)

概要

KBC Poker とは Cherry 軸を搭載した HHKB ライクなメカニカルキーボードです。

日本では最近、Cherry Mini という名前で売られています。

8000円から9000円ぐらいで、HHKB (の Pro)と比べればはるかに安く、おすすめできるキーボードです。

KBC Poker は、軸の違う4種類があり、茶軸版、黒軸版、青軸版、赤軸版があります。

ただ、Cherry 軸は、白軸や灰軸、緑軸等、もっと多くの種類があります。

その中で白軸は、軸だけ簡単に手に入るので、買って植えかえてみました。

# 日本では白軸と言われていますが、海外では Clear みたいです。

画像

植えかえた後の画像が以下です。2枚持っていた赤軸版の KBC Poker 1枚に犠牲になってもらいました。

白軸を載せたキーボードを触った事なかったので、今回入れ替えたキーボードではじめて触りました。

感触は好きです。赤軸や茶軸と比べてはるかに軸の中のバネが強いので、反発力がそれなりにあります。

赤軸や黒軸のようなリニアな感触ではなく、青軸のようなクリック音はなく、茶軸に近い感じです。

ただし、茶軸よりかなり重いです。

茶軸の感触は好きだが、軽すぎてちょっと…という人に良いかもしれません。

おまけ

KBC Poker にはキートップが ABS 樹脂版と PBT 樹脂版があります。

PBT 樹脂版の方が値段が高く、キートップがはるかに綺麗です。

ちなみに、Cherry Mini は ABS 樹脂版です。

両方の画像で上が ABS 版、下が PBT 版です。なお、上の ABS の KBC Poker は白軸に入れ替えたやつです。見た目上は分からないですねｗ

PBT 版は、Yahoo チャイナモールで買えます。

キートップを引き抜くだけの動画をとりました。ニコニコです。音声なしです。

画像

画像です。分解した画像も撮ろうと思ったのですが、分解したところ、

メンブレンのゴム製のキャップが散乱してそれどころではなくなってしまい、撮る気が失せてしまったのでこれだけです。

画像にあるように、キートップの印字は Dvorak がメインに書かれており、小さく Qwerty のも書かれています。

雑感

適当に感じた事です。

• タッチは良くない。Dell の PC についてくるようなキーボードの感触と大差ない感じ。
  # Matias Dvorak キーボードは、メンブレンです。
• キーボードを繋いだ瞬間から Dvorak 配列で使える(メインが Dvorak)。

耐えられないものではありませんが、タッチは本当に良くないです。

Dvorak 配列のキーボードという点でみると、TyepMatirx や KINESIS は Fn+F1 を押したり、キーを入れ替えたりしなければ、Dvorak にできませんが、これはキーボードを繋いだ瞬間から Dvorak です。

Dvorak 配列をメインにすえた数少いキーボードと言えると思います。

それでは、このキーボードが店頭でも買えるようになってもっと Dvorak や Colemak 等の Qwerty 以外の配列が一般的になれば良いなあとか思いながら、そんなこんなで。