八王子の『鳥良』でお疲れ会でした。
2007年度も終わりということで、年度の締めです。

ちょっと高めのコースにしたので、料理が沢山出てきます。
そのうえ、店員が2時間きっかりで追い出そうとするので、
テーブルの上は終始混沌としていました。

鍋の締めのおじやと、デザートを同時に持ってこられたときは、
本当に酷いお店だなと思いました。
味を楽しむ前に、口に詰め込まなければいけないのはツライです。

一次会のあとは、AGOSTで軽く飲み直して帰りました。

おつかれさまでした。
また、来年もよろしくおねがいします。

投稿者:としのり日時:23:59:59 | パーマリンク | コメント | トラックバック() |

渋谷餃子の王将餃子定食

[Food&Drink]

昼飯、何にするべ。今日の夜は鶏肉なからなぁ。自重して魚かな。

と思ったけれど、ふと餃子を食べたくなったので、王将へ。

とりあえず旨かったです。
大岡山の王将より漬け物が良いす。

ところで、今日出てきた餃子は、見事に全て皮が閉じていません。
閉じてない方が美味しいのでしょうか。

あと、今日はたまたま「チャーハンを作る様子」を沢山見られました。
様子を見ていると、王将のチャーハンはチャーハンというよりも、
「中華風炊き込みご飯を加工している」って感じでした。

投稿者:としのり日時:23:59:59 | パーマリンク | コメント | トラックバック() |

MacBook のターミナル表示文字数を MacBook Pro に近づける

[macbook]

ここしばらく、MacBook Pro の購入を検討しています。
理由は、ちょっとターミナルの表示領域が狭いと感じたから。

僕はフォントサイズを14point以上にするので、
デフォルトのターミナルは、狭くなりがちです。

そこで、MacBook Pro のターミナルの標準状態で表示できる文字数を調べました。
そして、MacBook で、同じ種類、同じサイズのフォントを使ったときに、
Pro の文字数と同じ位の文字数が表示できるように、
ターミナルの文字の文字間と行間を詰めました。

文字間を0.9倍に、行間を0.8倍にしたら、
MacBook Pro 15inchのデフォルトと同じくらいの量の
テキストを表示できるようになりました

もう、結構限界くらいまで詰めていると思います。
うーん、もうちょいいけるか？

投稿者:としのり日時:23:59:59 | パーマリンク | コメント | トラックバック() |

Emacs を使っているときに TDD を意識するための Emacs Lisp

[Emacs]

この記事を読んで、素敵なEmacs Lispだなと思いました。

- TDDの勘所とTDD支援超簡易Emacs Lisp - aikeの日記
-- http://d.hatena.ne.jp/aike/20080217

今回一番厳密に守っていたのは「Think」「Red」「Green」「Refactoring」のモード切り替え。今どこのモードで作業をしているのかを意識して、例えばテストNGが残っている状態(Red)では絶対にリファクタリングをしない、というような進め方をしていました。

背景よりはカーソルかな、と思ったけれど、
カーソルが白いと、見つけられなくなっちゃいます。

その後、以下を参照して、Emacsのステータスバーの色を、C-c + mで変更できるようにしました。

- unknownplace.org - 2008/02/21 - TDD支援elisp
-- http://unknownplace.org/memo/2008/02/21#e001

僕は背景が黒なので、考え中の色を黒にしました。

以下を.emacsに追記しました。

;;
;; via http://unknownplace.org/memo/2008/02/21#e001
;; C-c + mでステータスバーの色が変わる。デフォを黒にした。

(defvar tdd-bgcolor-alist
      '(("Think"      ."black")
        ("Red"        ."#ff4444")
        ("Green"      ."#44dd44")
        ("Refactoring"."#ffaa44")))

(defvar tdd-bgcolor-mode 3)
(defvar tdd-bgcolor-mode-name "")
(let (
      (cell (or (memq 'mode-line-position mode-line-format) 
                (memq 'mode-line-buffer-identification mode-line-format))) 
      (newcdr 'tdd-bgcolor-mode-name)) 
  (unless (member newcdr mode-line-format) 
    (setcdr cell (cons newcdr (cdr cell)))))

(defun tdd-bgcolor-rotate ()
  (interactive)
  (let (pair)
    (if (>= tdd-bgcolor-mode 3)
        (setq tdd-bgcolor-mode 0)
      (setq tdd-bgcolor-mode
                (+ tdd-bgcolor-mode 1)))
    (setq pair
      (nth tdd-bgcolor-mode tdd-bgcolor-alist))
    (setq tdd-bgcolor-mode-name (format "[%s]" (car pair)))
    (message tdd-bgcolor-mode-name)
    (set-face-foreground 'mode-line (cdr pair))))

(global-set-key "\C-cm" 'tdd-bgcolor-rotate)

投稿者:としのり日時:23:59:59 | パーマリンク | コメント | トラックバック() |