猫熊は燃えつきた？！日記
最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。2005-12-15 (Thu) [長年日記]
○ elscreen の小ネタ
ほとんど一発ネタ。例えば、0, 3, 4, 6 とかとびとびに出来ている screen があったとすると 0, 1, 2, 3 とすき間を詰めてくれる。キーバインドは "C-zP" かな？
(defun elscreen-pack ()
"Pack the spaces between of screens."
(interactive)
(let* ((current (elscreen-get-current-screen))
(oscreens (sort (elscreen-get-screen-list (selected-frame)) '<))
(nums (length oscreens))
(new 0)
orignal target msg)
(while (< new nums)
(setq target (car oscreens))
(when (= current target)
(setq current new))
(unless (memq new oscreens)
(unless msg
(setq msg "Pack the spaces done:"))
(setq msg (concat msg (format " %d->%d," target new)))
(elscreen-clone target)
(elscreen-kill target))
(setq oscreens (cdr oscreens))
(setq new (1+ new)))
(elscreen-goto current)
(elscreen-message (if msg
(substring msg 0 -1)
"No pack")))
○ GNU ID-Utils
最近の elips ML の藤原さんや小関さんのメールを見て導入してみた。当然 elscreen-gf と一緒。
ほとんど使い込んでいないけど『なんで今まで知らなかったのかなぁ〜〜』というぐらい便利な予感がする。
なお、Windows では適当に Cygwin で make したら動いちゃった。
[ツッコミを入れる]
書いている人: 白井秀行 (mailto:ｓｈｉｒａｉ＠ｍｅａｄｏｗｙ。ｏｒｇ)
訪問して下さった人: 今日: 人, 昨日: , 過去: 人 (2007年5月10日から)
