2012-11-01 24 views
9

Tôi đang sử dụng elscreen trong GNU Emacs tôi 24.2.1 Hiện nay, khi tôi chia cửa sổ của tôi, tôi có một bảng điều khiển tab giống nhau trong mỗi nửa: elscreen http://i.zlowiki.ru/121101_0f30ebba.png/800 Lưu ý rằng hai cửa sổ thấp hơn có các tab giống như lớn nhất một .cách đặt các tab elscreen ở trên cùng chỉ?

Làm cách nào để xóa hai bản sao này và chỉ giữ lại hai bản sao hàng đầu?

Nếu quá khó, bạn có thể sử dụng phương án thay thế nào khác cho màn hình GNU?

+2

Ít nhất bạn có thể tắt các tab hiển thị hoàn toàn: (setq elscreen-display-tab nil). Họ không phải là rất hữu ích và tiêu thụ không gian. Bạn cũng có thể chuyển đổi cài đặt này bằng C-z T. Ngoài ra, nếu bạn thay đổi bộ đệm dưới thành một phần khác với phần trên cùng, các tab sẽ biến mất. – Tvaroh

+1

Để hiểu rõ hơn cách 'header-line-format' trong cả công việc' elscreen.el' và 'tabbar.el', chúng ta có thể đánh giá một dòng mã đơn giản trong bất kỳ bộ đệm nào:' (set (make-local-variable ') header-line-format) "Xin chào thế giới") '. Các poster ban đầu có cùng một bộ đệm hiển thị trong ba cửa sổ khác nhau. Inasmuch như 'header-line-format' đang được sử dụng trên cơ sở mỗi bộ đệm, cùng một bộ đệm sẽ hiển thị giống như' header-line-format'. Một bộ đệm khác có thể hiển thị một 'header-line-format' khác nhau, nhưng cùng một bộ đệm được hiển thị trong nhiều cửa sổ thì không thể. – lawlist

+0

Làm cách nào để thay đổi màu văn bản của mặt sau? Nó trông yếu như màu xanh trên nền đen. –

Trả lời

2

Dưới đây là một cái gì đó để làm kỹ thuật những gì bạn hỏi:

(setq elscreen-display-tab nil) ; disable tabs display 

;; get-alist was removed somewhere along the line 
;; You can try substituting all instances of get-alist with assoc-default 
;; instead of using defalias and see if that works; I haven't tried. 
(defalias 'get-alist 'assoc-default) ; get-alist is gone 

;; Put tabs display in your frame title bar instead. 
(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)) 
      (title (concat "| " (mapconcat 
        (lambda (screen) 
        (format "%d%s %s |" 
          screen (elscreen-status-label screen) 
          (get-alist screen screen-to-name-alist))) 
        screen-list " ")))) 
     (if (fboundp 'set-frame-name) 
      (set-frame-name title) 
     (setq frame-title-format title))))) 

(eval-after-load "elscreen" 
    '(add-hook 'elscreen-screen-update-hook 'elscreen-frame-title-update)) 

enter image description here

tôi chắc chắn rằng nó không phải là những gì bạn có trong tâm trí, nhưng hey, nó ở RẤT đầu ngay bây giờ và duy nhất tại hàng đầu.

Các vấn đề liên quan