แบ่งบัฟเฟอร์ในกลุ่ม
มันเป็นไปได้ด้วย tabbar คุณสามารถเพิ่มกฎให้กับกลุ่มบัฟเฟอร์ในกลุ่ม นี่เป็นตัวอย่างพื้นฐาน:
(defun tabbar-buffer-groups ()
"Returns the list of group names the current buffer belongs to."
(list
(cond
;; ADD RULES TO SPLIT BUFFERS IN GROUPS HERE!
;; if buffer is not grouped by the rules you would add above
;; put it in the "General" group:
(t
"General"
))))
ตัวอย่างกฎ:
- รายการชื่อบัฟเฟอร์:
((member (buffer-name)
'("*scratch*" "*Messages*" "*Help*"))
"Common" ;; this is a group name
)
- เกี่ยวกับบัฟเฟอร์ทั่วไปฉันต้องการใส่ "Common" แต่ละบัฟเฟอร์ที่ชื่อขึ้นต้นด้วยดาว นี่เป็นตัวอย่างการสร้างบัฟเฟอร์สำหรับกฎนี้:
((string-equal "*" (substring (buffer-name) 0 1))
"Common"
)
- นี่คือตัวอย่างของการจัดกลุ่มบัฟเฟอร์ตามโหมดหลัก:
((memq major-mode
'(org-mode text-mode rst-mode))
"Text"
)
- นี่คือตัวอย่างของการจัดกลุ่มบัฟเฟอร์ตามโหมดที่ได้มาจาก:
((or (get-buffer-process (current-buffer))
;; Check if the major mode derives from `comint-mode' or
;; `compilation-mode'.
(tabbar-buffer-mode-derived-p
major-mode '(comint-mode compilation-mode)))
"Process"
)
- นี่คือตัวอย่างของการจัดกลุ่มแท็บโดย regexp:
((string-match "^__" (buffer-name))
"Templates"
)
- จัดกลุ่มบัฟเฟอร์ตามโหมดหลัก:
(if (and (stringp mode-name)
;; Take care of preserving the match-data because this
;; function is called when updating the header line.
(save-match-data (string-match "[^ ]" mode-name)))
mode-name
(symbol-name major-mode))
เมื่อคุณสร้างกฎแล้วคุณสามารถกด + หรือ - บนแถบแท็บของแถบเพื่อสลับกลุ่มและยัง◀และ▶เพื่อสลับระหว่างบัฟเฟอร์ หรือเพียงแค่ผูก defuns ต่อไปนี้:
tabbar-forward
tabbar-backward
tabbar-forward-group
tabbar-backward-group
และย้ายระหว่างแท็บและกลุ่มแท็บด้วยคีย์บอร์ด
ส่วนตัวกลุ่มแท็บฉันเพื่อที่ฉันเห็นสิ่งที่อยู่เปิด ido-switch-bufferแต่นำทางพวกเขาด้วย
สลับระหว่างชุดของกฎ
นอกจากนี้ยังสามารถกำหนดกฎการจัดกลุ่มบัฟเฟอร์ที่แตกต่างกันและวงจรระหว่างเหล่านี้ นี่คือตัวอย่างของการวนรอบระหว่างกฎการจัดกลุ่มบัฟเฟอร์สองชุด:
;; tab-groups!
(setq tbbr-md "common")
(defun toggle-tabbar-mode ()
"Toggles tabbar modes - all buffers vs. defined in the `tabbar-buffer-groups'."
(interactive)
(if (string= tbbr-md "groups")
(progn ;; then
(setq tabbar-buffer-groups-function 'tabbar-buffer-groups-common)
(setq tbbr-md "common"))
(progn ;; else
(setq tabbar-buffer-groups-function 'tabbar-buffer-groups)
(setq tbbr-md "groups"))))
;; by default - all tabs:
(setq tabbar-buffer-groups-function 'tabbar-buffer-groups-common)
สลับไปมาระหว่างtabbar-buffer-groups-commonและtabbar-buffer-groupsการจัดกลุ่มแท็บ defuns
จัดเรียงบัฟเฟอร์แถบแท็บตามชื่อ
ฉันพบว่ามีประโยชน์ในการจัดเรียง tabbar buffer ตามชื่อ นี่คือวิธีที่จะได้รับ:
(defun tabbar-add-tab (tabset object &optional append_ignored)
"Add to TABSET a tab with value OBJECT if there isn't one there yet.
If the tab is added, it is added at the beginning of the tab list,
unless the optional argument APPEND is non-nil, in which case it is
added at the end."
(let ((tabs (tabbar-tabs tabset)))
(if (tabbar-get-tab object tabset)
tabs
(let ((tab (tabbar-make-tab object tabset)))
(tabbar-set-template tabset nil)
(set tabset (sort (cons tab tabs)
(lambda (a b) (string< (buffer-name (car a)) (buffer-name (car b))))))))))
