1

ファイルのグループを定義するためにタブバーを使用しています。一部は「Emacs バッファ」グループに属し、他は「Dired」グループに属し、その他すべての ATM は「ユーザ バッファ」グループに属します。

アジェンダ ファイルを使用しているときに別のグループを追加したい - すべてのファイルを「ユーザー バッファ」に表示してタブ ビューを散らかす代わりに、「アジェンダ バッファ」と呼ばれる目的のグループにファイルを表示したい"。どうすればそれができますか？

現時点では、これは私の構成です：

(defun tabbar-buffer-groups ()
  "Return the list of group names the current buffer belongs to.
This function is a custom function for tabbar-mode's tabbar-buffer-groups.
This function group all buffers into 3 groups:
Those Dired, those user buffer, and those emacs buffer.
Emacs buffer are those starting with “*”."
  (list
   (cond
    ((string-equal "*" (substring (buffer-name) 0 1)) "Emacs Buffer")
    ((eq major-mode 'dired-mode) "Dired")
    ((eq major-mode 'sr-mode) "Dired")
    (t "User Buffer")
    )))

(setq tabbar-buffer-groups-function 'tabbar-buffer-groups)
4

1 に答える 1

2

次のように関数に条件を追加します。

(defun tabbar-buffer-groups ()
  "Return the list of group names the current buffer belongs to.
This function is a custom function for tabbar-mode's tabbar-buffer-groups.
This function group all buffers into 3 groups:
Those Dired, those user buffer, and those emacs buffer.
Emacs buffer are those starting with “*”."
  (list
   (cond
    ((string-equal "*" (substring (buffer-name) 0 1)) "Emacs Buffer")
    ((member (buffer-file-name) (mapcar 'expand-file-name org-agenda-files)) "Agenda")
    ((eq major-mode 'dired-mode) "Dired")
    ((eq major-mode 'sr-mode) "Dired")
    (t "User Buffer")
    )))
于 2013-04-24T13:12:05.140 に答える