ElScreen のタブにニックネームを設定する

[2009-06-14-2] の補完。

通常、ElScreen のタブにはバッファ名が表示されますが、自分でニックネー
ムを付けることも出来ます。ニックネームを付けると、タブがすっきりキ
レイになります。

下記は、順番に navi2ch, skype.el 用の設定です。(require ’elscreen)
の後に書いて下さい。

(defcustom elscreen-navi2ch-mode-to-nickname-alist
  '(("^navi2ch-" . "Navi2ch"))
  "*Alist composed of the pair of mode-name and corresponding screen-name."
  :type '(alist :key-type string :value-type (choice string function))
  :tag "Navi2ch major-mode to screen nickname alist"
  :set (lambda (symbol value)
         (custom-set-default symbol value)
         (elscreen-rebuild-mode-to-nickname-alist))
  :group 'navi2ch)
(elscreen-set-mode-to-nickname-alist 'elscreen-navi2ch-mode-to-nickname-alist)

(defcustom elscreen-skype-mode-to-nickname-alist
  '(("^skype-" . "Skype"))
  "*Alist composed of the pair of mode-name and corresponding screen-name."
  :type '(alist :key-type string :value-type (choice string function))
  :tag "Skype major-mode to screen nickname alist"
  :set (lambda (symbol value)
         (custom-set-default symbol value)
         (elscreen-rebuild-mode-to-nickname-alist))
  :group 'skype)
(elscreen-set-mode-to-nickname-alist 'elscreen-skype-mode-to-nickname-alist)