« Virtual PC Is Now Free! | Main | Wimmo »

2006年7月25日

タブは邪魔だけどスクリーンの一覧は欲しい

[ カテゴリ： Emacsen ]

なんて話を、ElScreenでたまに聞くことがあります。 たとえば、frame-titleに表示するなんて云うのはどうなんでしょうね?

こんな感じで。 

(defun elscreen-frame-title-update ()
  (when (elscreen-screen-modified-p 'elscreen-frame-title-update)
    (let ((screen-list (sort (elscreen-get-screen-list) '<))
	  (screen-to-name-alist (elscreen-get-screen-to-name-alist)))
      (setq frame-title-format
	    (mapconcat
	     (lambda (screen)
	       (format "%d%s %s"
		       screen (elscreen-status-label screen)
		       (get-alist screen screen-to-name-alist)))
	     screen-list " ")))))

(eval-after-load "elscreen"
  '(add-hook 'elscreen-screen-update-hook 'elscreen-frame-title-update))
Posted at 00:41

Comments

Post a comment




Remember Me?