トップ «前の日記(2005-12-14 (Wed)) 最新 次の日記(2005-12-16 (Fri))» 編集

猫熊は燃えつきた?!日記

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。
2002|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|
2011|09|
2012|02|


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:shirai@meadowy。org)
訪問して下さった人: 今日: 人, 昨日: , 過去: 人 (2007年5月10日から)
RDF Feed