マスタカの ChangeLog メモ

■ モバイル Suica の年会費 [携帯]

ITmedia - 一般カード利用のモバイルSuicaユーザーは、年会費が必要に

[2008-01-19-1] からモバイル Suica を使い始めたが、入会から１年経っ
たことで次回入金からは年会費 1000 円がかかるそう。ただ、うまくやれ
ば年会費は払う必要はないみたい。以下まとめ。

定期券を使うためには、年会費を払うかビューカードに登録する必要があ
る。ビューカードは年会費 500 円だが、ビューカードにもいろいろな種類
があるようで、うまくやれば年会費を払う必要はなさそう。
年会費無料でモバイルSuicaを使う方法

電子マネーについては、ビューカードに登録せずに使い続けることが可能。
New Days などで現金チャージすれば良い。

ここまで書いたけど、現状ほとんど定期しか使っていないので、普通の
Suica に戻すことになりそう。(´・ω・`)

追記(2009-07-02):
昨日、モバイル Suica を解約しました。68 円余っていたので、チロルチョ
コを 3 つ買って余りを 8 円にしました。こうすることで、解約手数料を
8 円にできました。
JR東日本：モバイルSuica＞各種手続き＞退会＞払いもどし額の計算方法

■ lenny から squeeze へのアップグレード [Debian]

2/14 に lenny がリリースされた。

http://www.debian.or.jp/blog/debian50r0.html
http://kmuto.jp/d/index.cgi/debian/lenny-release.htm

それに伴い、現在のテスト版が lenny(レニー、ゼンマイで歩く双眼鏡) から
squeeze(スクィーズ、三つ目のエイリアン) に変わったので、アップグレードした。

1. 必要なファイルを全てバックアップ
2. /etc/apt/sources.list の lenny の文字列を squeeze に置換。
3. アップグレード

# aptitude update
# aptitude install aptitude
# aptitude upgrade
# aptitude dist-upgrade

まだ 2 週間しか経っていないこともあるけど、拍子抜けするくらい
簡単だった。いい時代になったなあ。(´∀｀)

http://www.debian.org/releases/lenny/i386/release-notes/ch-upgrading.ja.html

■ 口内炎への効果的な治療法 [Life]

今週の「ためしてガッテン」で、口内炎の効果的な治療法をやっていたの
でメモメモ。

1. 殺菌成分入りのうがい薬(イソジンで良いと思う)で口を良くすすぐ。
   番組では、20 秒 を 3 回やってました。
2. すすぎ終わったら、水でうがい薬を洗い流す。
   殺菌成分は細胞組織自体にも効いてしまうそう。速やかに回復させるた
   め、うがい薬を洗い流します。

http://www3.nhk.or.jp/gatten/archive/2009q1/20090225.html

■ Tab Mix Plusでの「タブを保護」「タブをロック」「タブを凍結」の違い [Firefox]

タブを保護 - 保護されたタブは閉じられない。タブを誤って閉じるのを防ぐ。
タブをロック - ロックされたタブ内のリンクはすべて新しいタブに開く。
タブを凍結 - 「タブを保護」と「タブをロック」を両方一度に行う。

「タブを凍結」はデフォルトでは右クリックメニューに表示されない。
Tab Mix Plus のオプションから、表示させることが出来る。

http://smallsteps06.blogspot.com/2006/09/tab-mix-plus.html

■ favicon on Apache2 [Apache][Firefox]

非公開の web server をローカルに立てて、保存した html は
http://localhost/~masutaka/.. にアクセスすれば表示できるようにして
いる。でも、favicon の指定がうまくできない。
もちろん [2007-01-19-1] の方法を使えば出来るけど、全ての html に指
定するのは面倒くさいよね。

** 試したこと その１ **
~masutaka/public_html に favicon.ico を置いた。
~masutaka/public_html/.htaccess に以下を記載。

AddType image/x-icon .ico
<Files favicon.ico>
  ErrorDocument 404 favicon.icoへのフルパス
</Files>

→ダメ。読み込まれなかった。

~/public_html/.htaccess に hogehoge と書いたら、Apache のエラーログ
が表示されていたので、.htaccess は読み込めているようだ。

ちなみに設定ファイルは以下のように読み込まれていた。mime.types には
"image/x-icon ico" と書いてあるので、前述の設定は必要ないのかも。

/etc/apache2/apache2.conf
→ /etc/apache2/mods-enabled/mime.conf
  → /etc/mime.types

** 試したこと その２ **
時々、Apache のエラーログに

File does not exist: /var/www/favicon.ico

と出ているので /var/www に置いてみた。
→ブックマークに favicon が反映された。うまくいかない場合は、ブラウ
ザを再起動すれば良いかも。

** 試したこと その３ **
そうこうしているうちに Favicon Picker 3 というものを見つけた。各ブッ
クマークのプロパティから
- Browse (ローカルにある任意の Favicon の指定)
- Reset (Favicon の再読み込み)
- Blank (Favicon のクリア)
を行える。こういうのはデフォルトで欲しいなあと思う、今日このごろ。

イマイチだけど、結局こうした。/var/www はバックアップを取っていない
ので、実体を置きたくないというのがその理由。

# ln -s ~masutaka/public_html/favicon.ico /var/www

■ 寿司の正しい食べ方 [ネタ]

日本人なら、知っておくべきかも。


参考情報: アカウントを持ってなくてもニコニコ動画を視聴できる方法

■ GNU diff の地味だけど便利な機能 [UNIX]

http://0xcc.net/blog/archives/000208.html からのコピペ。

--side-by-side は2段組で結果を表示するオプションです。変更されてい
ない行を含めて2つのファイルの内容全体と変更点が表示されるのがポイン
トです。変更された行の前後だけでなくファイル全体をまとめて読みたい
ときに使えます。デフォルトの表示の横幅は130文です。必要に応じて
--width オプションで変更できます。

--strip-trailing-cr は行末の CR を無視する機能です。改行コードが
CRLF と LF で食い違っているけど、中身はほぼ同じ、というファイルを比
較するときに使えます。

■ Emacs23 のフォント [Emacs]

tdiary のテーマをいじっていたら、darkwhite というテーマを見つけた。

これ自体はなんてことないテーマなのだが、「シンプルで目にやさしいテー
マのつもりです」とのこと。試しに Emacs の背景色にしてみたら、フォン
トの線が細すぎてかなり見えづらい。テカテカ液晶め。。。→ [2008-10-05-2]

しかし、今まで使っていた「東雲ゴシック」から Debian Lenny のデフォ
ルトフォント「VL ゴシック」に変更したら、かなり見やすくなった。テカ
テカ液晶のせいで、今まで Emacs の背景を Black にしていたんだけど、
やっと変えられたよ。(^^)v

東雲ゴシック

VL ゴシック


Emacs の設定(変更前)

(setq default-frame-alist
      '((background-color . "black")
        (foreground-color . "gray80")
        (font . "-shinonome-gothic-medium-r-normal--16-*-*-*-*-*-*")
        以下略

Emacs の設定(変更後)

(setq default-frame-alist
      '((background-color . "#E2DDC3")
        (foreground-color . "black")
        (font . "-unknown-VL ゴシック-normal-normal-normal-*-16-*-*-*-*-0-iso10646-1")
        以下略

※ default-frame-alist に setq する以外に以下の方法でも設定可能。

(set-face-background 'default "#E2DDC3")
(set-face-foreground 'default "black")
;; for Emacs22
(set-default-font "-unknown-VL ゴシック-normal-normal-normal-*-16-*-*-*-*-0-iso10646-1" nil)
;; for Emacs23
(set-frame-font "-unknown-VL ゴシック-normal-normal-normal-*-16-*-*-*-*-0-iso10646-1" nil)

■ tdiary のテーマを使う [chalow]

[2007-09-17-4]の改良版。
他のテーマにも応用が効くようにしてみた。以下は lightning テーマの場合。

1. lightning.css の先頭に以下を追記する。

@import "clfix.css";

2. lightning.css と同じディレクトリに、下記 clfix.css を置く。
   for lightning theme

他のテーマもいくつか対応したので、各 clfix.css へのリンクを張って
おきますね。

for clover theme
for darkwhite theme
for digital_gadgets theme
for orange-blue theme
for orange-border theme
for sleepy_kitten theme
for summer_wave theme
for treetop theme
for winter theme

tdiary のテーマギャラリーはこちら。外観が一覧で確認できるのでオススメ。

追記(2009-06-13):
tar で固めて、ここに置きました。
ソースコードに色付けする prettify.css も import するようにしていま
す。[2009-06-13-1] をご覧下さい。

■ 入力したパスワードを端末に表示させない方法 [sh]

スクリプト中でこんなプロンプトを出して、パスワードを読み取りたい場合。

Password:

read コマンドを使えば可能だが、入力した文字列が見えてしまう。そこで
"stty -echo" を使う。端末への表示を抑制できる。入力が終わったら
"stty echo" で元に戻す。

trap 'stty echo' INT
stty -echo
printf "Password: "
read password
echo ""
stty echo
trap INT

trap を使っているのは、スクリプトが途中で終了した場合も
"stty echo" させるため。

最後の trap は sh だとエラーになってしまった。bash だと OK。どんな
意味なんだろう？

■ Mew でメーリングリストに返信する時に宛先を構築し直す。 [Mew]

某掲示板で話題になっていたので、昔作った関数を見直してみた。

○機能
- 返信先のアドレスに、自分が加入している ML が含まれていると、
  そのアドレス以外のアドレスを全て宛先から除外する。
- 削除されたアドレスは、メール本文の先頭に以下のように挿入される。

!!! Deleted Value !!!
To: who@example.com
Cc:
Dcc: masutaka@example.com

- 自分が加入している ML は mew-subscribed-mailing-list に設定すること。

○ソース

(defvar mew-subscribed-mailing-list
  '("mew-dist@mew.org"
    "mew-win32@mew.org")
  "加入している ML をリストで記述。正規表現指定不可。
nil ならどの ML にも加入していないものとする。")

(defun mew-draft-restructure-header ()
  "返信先のアドレスに、自分が加入している ML が含まれていると、
そのアドレス以外のアドレスを全て宛先から除外する。
自分が加入している ML は mew-subscribed-mailing-list に設定すること。
削除されたアドレスは、メール本文の先頭に挿入される。"
  (save-excursion
    (let ((deleted-alist))
      (setq deleted-alist (mew-draft-restructure-header-internal))
      (when deleted-alist
        (let (str deleted-list address)
          (setq str "### Deleted Value ###\n")
          (dolist (field (list mew-to: mew-cc: mew-dcc: mew-bcc:))
            (setq deleted-list (assoc field deleted-alist))
            (when deleted-list
              (setq str
                    (concat str field " "
                            (mapconcat 'format (cdr deleted-list) ", ")
                            "\n"))))
          (setq str (concat str "\n"))
          (mew-header-goto-body)
          (insert str))))))

(defun mew-draft-restructure-header-internal ()
  "To:, Cc:, Bcc:, Dcc: から不要なアドレスを削除し、
削除したフィールドの名前と値をリストで返す。
To: が空になった場合は、Cc: のアドレスを To: に置き換える。"
  (let (subscribed-ml-exist deleted-alist)
    (catch 'loop
      (dolist (field (list mew-to: mew-cc:))
        (dolist (address (mew-header-parse-address-list (list field)))
          ;; 加入している ML があった場合は即座にループから抜ける。
          (if (mew-member-case-equal
               address mew-subscribed-mailing-list)
              (throw 'loop (setq subscribed-ml-exist t))))))
    (when subscribed-ml-exist
      ;; To と Cc から mew-subscribed-mailing-list 以外のアドレスを削除し、
      ;; Bcc と Dcc は自分のアドレスを削除する。
      (setq deleted-alist `(,@(mew-draft-restructure-to-cc)
                            ,@(mew-draft-restructure-bcc-dcc)))
      ;; To が空になっていたら、Cc を To にしてしまおう。
      (unless (mew-header-parse-address-list (list mew-to:))
        (let ((cc (mew-header-parse-address-list (list mew-cc:))))
          (mew-header-delete-lines (list mew-to: mew-cc:))
          (mew-header-insert mew-to: (mapconcat 'format cc ", ")) )))
    deleted-alist))

(defun mew-draft-restructure-to-cc ()
  "To: と Cc: から不要なアドレスを削除し、
削除したフィールドの名前と値をリストで返す。"
  (let (deleted-alist)
    (dolist (field (list mew-to: mew-cc:) deleted-alist)
      (let (enable-address-list delete-address-list)
        (dolist (addr (mew-header-parse-address-list (list field)))
          (if (mew-member-case-equal addr mew-subscribed-mailing-list)
              (setq enable-address-list `(,@enable-address-list ,addr))
            (setq delete-address-list `(,@delete-address-list ,addr))))
        (setq deleted-alist (cons (cons field delete-address-list) deleted-alist))
        (if enable-address-list
            (mew-header-replace-value
             field
             (mapconcat 'format enable-address-list ", "))
          (mew-header-delete-lines (list field)))))))

(defun mew-draft-restructure-bcc-dcc ()
  "Bcc: および Dcc: フィールドを削除し、
削除したフィールドの名前と値をリストで返す。"
  (let (deleted-alist)
    (dolist (field (list mew-dcc: mew-bcc:) deleted-alist)
      (let ((deleted-address-list))
        (setq deleted-address-list
              (mew-header-parse-address-list (list field)))
        (when deleted-address-list
          (setq deleted-alist (cons (cons field deleted-address-list) deleted-alist))
          (mew-header-delete-lines (list field)))))))

(add-hook 'mew-draft-mode-newdraft-hook 'mew-draft-restructure-header)

■ Tab Mix Plus [Firefox]

Firefox3 が出た当初は使えなかったが、今見たら使えるようになっていた。
タブバーの多段表示はうれしい。

Firefox 用アドオン - Tab Mix Plus

■ GNU Emacs 23.0.90 [Emacs]

http://lists.gnu.org/archive/html/emacs-devel/2009-02/msg00051.html

23.1 リリースに向けて、pretest 版が出たみたい。今年中にはリリースさ
れるのかな？

デフォルトのツールキットが Lucid から GTK+ に変わったことと、アンチ
エイリアスがサポートされて、フォントが綺麗になったことが大きな変更
点みたい。

試しに VL ゴシックを試してみたけど、行間が無駄に広いなあ。また今度
調べてみよう。

■ 本購入 [Book][Ruby]

また Amazon で買ってしまった。

正義で地球は救えない

[2009-01-05-3] の「ほんとうの環境問題」の続編。何となく気になって買っ
てしまった。

Rubyレシピブック 第2版 268の技

今回はこれが目的。前から実践的な本が欲しかったんだよね。

このダジャレで生きのびろ!

ここで紹介されていた本。私としてはこういうの買うのは珍しいんだけど、
ついでに買ってしまった。

■ ruby で自分が定義したルールを使って sort する方法 [Ruby]

# ユーザ定義のルールをハッシュで定義
ref = {"Hitoshi"=>0, "Sizuo"=>1, "Yoshi"=>2, "Taka"=>3, "Guo"=>4}

# sort したいデータを配列で持つ
data = ["Guo", "Guo", "Sizuo", "Taka", "Taka", "Yoshi"]

# ソート
p data.sort{|a, b|
  ref[a] <=> ref[b]
}

結果

["Sizuo", "Yoshi", "Taka", "Taka", "Guo", "Guo"]

■ Iceweasel の midi 再生プラグイン [Firefox]

Debian パッケージに mozplugger があるが、うまく動かないらしい。
ffmpeg をコンパイルすれば OK らしい。気が向いたら試してみよう。