村瀬の作業記録〜2004年7月〜

いろいろ記録しておこう。

2004年7月11日(日)

■ ザ・ゴール - 企業の究極の目的とは何か

「私たちが探し求めているものは最も基本的なことなのだが、同時にそれがすべてでもある」

「私たちが探し求めているものは、いったい何なんだ。
三つの簡単な質問に答えることのできる能力じゃないのか。
『何を変える』、『何に変える』、それから『どうやって変える』かだ。
マネジャーとして求められる、最も基本的な能力を探し求めているんだ。
考えてもみてくれ。
この三つの質問に答えられないような人間に、マネジャーと呼ばれる資格があると思うかね 」
――アレックス・ロゴ

■ 銀河英雄伝説

「人間は主義だの思想だののためには戦わないんだよ。
主義や思想を体現した人のために戦うんだ。
革命のために戦うのではなくて、革命家のために戦うんだ」
――ダスティ・アッテンボロー

2004年7月15日(木)

■ nsmm

思うところがあってひさしぶりに見てみたら nsmm-0.6.3.1.tar.gzが出ていますね。一年以上気がついていなかったわけですが。週末に時間があったらVer.UPしよう。

_ あらま: と思ったらリンクされているし(汗。ありがとうございます。便利に使わせて頂いております。awkのお勉強に役立ちますってのは秘密です。

2004年7月16日(金)

■ emacs

バッファの先頭と最後でbeginning-of-bufferとかいってうるさいのを消す。 meadowの FAQから。

(defun next-line (arg)
  (interactive "p")
  (if (and next-line-add-newlines (= arg 1))
      (let ((opoint (point)))
	(end-of-line)
	(if (eobp)
	    (newline 1)
	  (goto-char opoint)
	  (line-move arg)))
    (if (interactive-p)
	(condition-case nil
	    (line-move arg)
	  ((beginning-of-buffer end-of-buffer)))
      (line-move arg)))
  nil)

(defun previous-line (arg)
  (interactive "p")
  (if (interactive-p)
      (condition-case nil
	  (line-move (- arg))
	((beginning-of-buffer end-of-buffer)))
    (line-move (- arg)))
  nil)

simple.elの中の定義を上書きですね。(ding)を消すだけのようです。

2004年7月19日(月) 海の日

■ nsmm

Ver.Up. 祝日が出るようになったかな。

2004年7月27日(火)

■ ThinkPad T41

こわれる。こげくさいにおいが。HDDは無事。中身を吸い出す。
IBMに電話する。保証期間内なので取りにきてくれる。週末。
買ったのは この日なのでちょうど7ヶ月間です。通常の3倍の稼働率だからか?

■ ThinkPad 535X

を復活させる。思ったほど遅くはないな。が、もうこの機械でコンパイルはできんのう。