ソフトウェアと本の覚え書き

_ [読書] ダン・カイリー『ピーター・パン・シンドローム』

あまり面白くは感じなかった。まず、「シンドローム」を記述して、その対応策を述べるという方法自体に違和感を感じる。納得する部分もなくはないが。

おすすめ度：★★★☆☆

_ [読書] 河合隼雄『「人生学」ことはじめ』

新聞などに書いた文章をまとめたものなので、内容はさまざまな事柄に渡っているが、まとまりに欠けている。

おすすめ度：★★★☆☆

_ [読書] 香山リカ『インターネット・マザー』

この本を読むと、90年代はゲーム、携帯電話、インターネットが普及していくころで現在とはだいぶ異なっていたことを思い出した。

おすすめ度：★★★☆☆

_ [読書] 伊藤比呂美 斎藤学『あかるく拒食　ゲンキに過食』

何人かに対するインタビューと著者となっている2人の対談で構成されていて、雰囲気がよく出ていておもしろかった。

おすすめ度：★★★☆☆

_ [読書] 河合隼雄『子どもと悪』

子どもに対して「明るい」、「元気」、「素直」というような面ばかりを求めがちだが、それらは大人の願望に過ぎなく、そのような願望を押し付けられた子どもはたまったもんじゃないということだ。

おすすめ度：★★★☆☆

_ [Emacs] anything-c-source-other-windows

Emacsでwindows.elを使っていて、これの別windowへの移動をanythingから使えると便利だと思い作ってみた。まだ、あまり使っていないので問題があるかもしれないが。

(setq anything-c-source-other-windows
  '((name . "Other windows")
    (candidates . (lambda ()
		    (let ((i 1) (l (list))
			  (form (format "[w%%c] %%-%ds [%%s]" win:names-maxl)))
		      (while (< i win:max-configs)
			(if (aref win:configs i)
			    (add-to-list 'l (format form
						    (+ win:base-key i)
						    (if (aref win:configs i) 
							(format "%s" (aref win:names-prefix i))
						      "")
						    (aref win:names i)
						    )))
			(setq i (1+ i)))
		      (sort l 'string<))))
    (action . (("Switch to Other Window" . (lambda (arg)
				(if (string-match "^\\[w\\(.\\)\\]" arg)
				    (let ((num (string-to-number (match-string 1 arg))))
				      (win:switch-window num)))))))
    ))

_ [Linux] anything-c-source-other-windows その2

windows.elのwindowをanythingから選択するソースを次のように変更した。これでほとんど不満はない。

(defun win-switch-to-window1()
  (interactive) (let ((last-command-char ?1)) (call-interactively 'win-switch-to-window)))
(defun win-switch-to-window2()
  (interactive) (let ((last-command-char ?2)) (call-interactively 'win-switch-to-window)))
(defun win-switch-to-window3()
  (interactive) (let ((last-command-char ?3)) (call-interactively 'win-switch-to-window)))
(defun win-switch-to-window4()
  (interactive) (let ((last-command-char ?4)) (call-interactively 'win-switch-to-window)))
(defun win-switch-to-window5()
  (interactive) (let ((last-command-char ?5)) (call-interactively 'win-switch-to-window)))
(defun win-switch-to-window6()
  (interactive) (let ((last-command-char ?6)) (call-interactively 'win-switch-to-window)))
(defun win-switch-to-window7()
  (interactive) (let ((last-command-char ?7)) (call-interactively 'win-switch-to-window)))
(defun win-switch-to-window8()
  (interactive) (let ((last-command-char ?8)) (call-interactively 'win-switch-to-window)))
(defun win-switch-to-window9()
  (interactive) (let ((last-command-char ?9)) (call-interactively 'win-switch-to-window)))
(setq anything-c-source-other-windows
      '((name . "Other Windows")
	(candidates . (lambda ()
			(win:store-config win:current-config)
			(let ((i 1) (l (list))
			      (form (format "[w%%c]%%s %%-%ds [%%s]" win:names-maxl)))
			  (while (< i win:max-configs)
			    (add-to-list 'l 
					 (if (aref win:configs i)
					     (format form
						     (+ win:base-key i)
						     (cond ((= i win:current-config) "*")
							   ((= i win:last-config) "+")
							   (t " "))
						     (format "%s" (aref win:names-prefix i))
						     (aref win:names i))
					   (format form (+ win:base-key i) " " "" "")))
			    (setq i (1+ i)))
			  (sort l 'string<))))
	(action . (("Switch to Other Window" . (lambda (arg)
						 (if (string-match "^\\[w\\(.\\)\\]" arg)
						     (let ((num (string-to-number (match-string 1 arg))))
						       (call-interactively (intern (format "win-switch-to-window%d" num)))
						       ))))))
	))

anythingでまだ作られていないwindowを選択したときに、新しいwindowを作成できるように、win-switch-to-window1などの関数を作った。関数を作らないですむ、うまい方法があれば良いのだが、私には分からない。

[追記] win-switch-to-window1などの関数を作ったのは、one-key.elの設定で使うためなので、anythingのsourceを作るには必要ない。私は使わないので、ここに書くことはしないけれど。

_ [Emacs] anything-c-source-buffersのanything-c-buffer-list

anything関連のファイルをバージョンアップしたときに、なぜかanything-c-source-buffersの選択肢の先頭が現在のバッファになるようになった。それを直そうとソースを見ると、現在のバッファが一番最後になるように順番を変更する操作を行っているが、うまく動いていない。その操作は、バッファのリストの先頭を最後に入れ替える操作だが、リストの先頭のバッファが現在のバッファと違うようで、望む動作になっていない。そこで、anything-c-buffer-listを次のように変更すると望む動作になる。

(defun anything-c-buffer-list ()
  "Return the list of names of buffers with boring buffers filtered out.
Boring buffers is specified by `anything-c-boring-buffer-regexp'.
The first buffer in the list will be the last recently used
buffer that is not the current buffer."
  (let ((buffers (mapcar 'buffer-name (buffer-list)))
	(current-buf-name (buffer-name anything-current-buffer)))
    (append (remove current-buf-name buffers) (list current-buf-name))))