想要在fundamental mode 禁用tabbar应该怎么做？

YanhaoMo · 2018 年11 月 29 日 09:04

一般情况下我可以这么做：

(add-hook 'prog-mode-hook 'tabbbar-local-mode)

但是，fundamental mode 貌似没有 hook可以用。

zhouchongzxc · 2018 年11 月 29 日 09:20

after-change-major-mode-hook

YanhaoMo · 2018 年11 月 29 日 09:39

还是有，没效果

manateelazycat · 2018 年11 月 29 日 10:30

小莫, 用我的 awesome-tab 吧

直接在 awesome-tab/awesome-tab.el at 09afdd4b87e2494c69137506465f458dd3b293a8 · manateelazycat/awesome-tab · GitHub 加上 (not (derived-mode-p 'fundamental-mode)) 就可以了.

YanhaoMo · 2018 年11 月 29 日 11:08

居然被勇哥认出来了

我来试试勇哥的 awesome-tab :)

xuchunyang · 2018 年11 月 29 日 11:16

fundamental-mode 没有 Hook 可用，可话说回来 tabbar 怎么就在 fundamental-mode 开启了？我没用过 tabbar，假设有个 tabbbar-global-mode，正确的做法是告诉它忽略 fundamental-mode。

cireu · 2018 年11 月 29 日 13:40

认亲现场? 紫薯布丁

YanhaoMo · 2018 年11 月 30 日 13:35

效果不对啊勇哥

这样虽然不显示buffer-name了，但是有一个空白行好难看

YanhaoMo · 2018 年11 月 30 日 13:50

(tabbar-mode t)就开启了啊

xuchunyang · 2018 年11 月 30 日 14:06

Global Mode 应当允许用户控制何时启动以及何时不启动，而不是开启了之后让用户想办法关掉，本末倒置。参考 global-company-mode 的 company-global-modes 选项。

(define-globalized-minor-mode your-global-tabbar-mode tabbar-local-mode
  (lambda () (not (eq major-mode 'fundamental-mode))))

YanhaoMo · 2018 年11 月 30 日 14:23

报错了

manateelazycat · 2018 年11 月 30 日 23:50

空行可以解决

YanhaoMo · 2018 年12 月 1 日 00:29

求赐教～

manateelazycat · 2018 年12 月 1 日 05:01

github.com

manateelazycat/awesome-tab/blob/09afdd4b87e2494c69137506465f458dd3b293a8/awesome-tab.el#L1725


      
          
          
;;;;;;;;;;;;;;;;;;;;;;; Default configurations ;;;;;;;;;;;;;;;;;;;;;;;
          
          
;; Uniquify tab name when open multiple buffers with same filename.
          (setq uniquify-separator "/")
          (setq uniquify-buffer-name-style 'post-forward-angle-brackets)
          (setq uniquify-after-kill-buffer-p t)
          
          
;; Some buffer's header line is empty that make its window insufficient of space to display all content
          ;; Feel free to add hook in below list. ;)
          (dolist (hook (list
                         'magit-status-mode-hook
                         'magit-popup-mode-hook
                         'reb-mode-hook
                         ))
            (add-hook hook '(lambda () (setq-local header-line-format nil))))
          
          
;; Rules to control buffer's group rules.
          (defvar awesome-tab-groups-hash (make-hash-table :test 'equal))
          
          
(defun awesome-tab-init-groups-name ()

YanhaoMo · 2018 年12 月 1 日 05:37

问题就在这儿了，fundamental 没有hook可以用

manateelazycat · 2018 年12 月 1 日 05:58

你这么做的原因是什么？

YanhaoMo · 2018 年12 月 1 日 06:09

我把所有带**的buffer name都隐藏了，所以在很多地方都只显示一个空白的head line。

YanhaoMo · 2018 年12 月 1 日 06:13

tabbar 貌似不能设置只在特定的major mode启用，所以要全局启用tabbar，然后在不想要tabbar的mode里(tabbar-local-mode)，很蛋疼。

xuchunyang · 2018 年12 月 1 日 10:21

向开发者求助，从源头上解决问题。