Re: Tabs

[Michael Heerdegen]

Juri Linkov <address@hidden> writes:

> Now configuration is even simpler:
>
>   (add-hook 'Info-mode-hook
>             (lambda ()
>               (setq-local tab-line-tabs-function
>                           (lambda ()
>                             (mapcan
>                              (lambda (b)
>                                (when (with-current-buffer b (derived-mode-p 
> 'Info-mode))
>                                  (list b)))
>                              (buffer-list))))))

Works for me, thanks.

What I didn't get working is to show tabs only for Info buffers and hide
it for all others.  Whatever I tried tabs are either displayed in every
window or in none.

This is what I have so far:

#+begin_src emacs-lisp
(customize-set-variable 'tab-bar-show 1)
(setq-default tab-bar-tabs-function #'ignore)
(add-hook 'Info-mode-hook
          (defun my-Info-mode-hook-configure-tab-bar ()
            (setq-local
             tab-bar-tabs-function
             (lambda ()
               (mapcan
                (lambda (b)
                  (when (with-current-buffer b (derived-mode-p 'Info-mode))
                    (list `(,(if (eq b (current-buffer)) 'current-tab 'tab)
                            (name . ,(buffer-name b))
                            (binding . (lambda () (interactive) 
(switch-to-buffer ,b)))
                            (close-binding . (lambda () (interactive) 
(kill-buffer ,b) (force-mode-line-update)))))))
                (buffer-list))))))
#+end_src

Can I get it work?

TIA,

Michael.