44add11c7a
Ideally it would be great to implement tabs switch with C-tab (or C-}) that shows the tabs as long as C is pressed. However Emacs does not support key release events so this function uses a timer as a workaround. To me Emacs looks better when tabs are hidden, and also packages like pdf-continuous-scroll-mode break when tabs are shown.
46 lines
1.4 KiB
EmacsLisp
46 lines
1.4 KiB
EmacsLisp
(defun spacemacs//tabs-timer-initialize (secs)
|
|
(setq spacemacs-tabs-timer (run-with-timer secs nil (lambda () (centaur-tabs-local-mode 1)))))
|
|
|
|
(defun spacemacs//tabs-timer-hide ()
|
|
(spacemacs//tabs-timer-initialize tabs-auto-hide-delay))
|
|
|
|
(defun spacemacs//tabs-switch-and-hide (arg)
|
|
(cancel-timer spacemacs-tabs-timer)
|
|
(centaur-tabs-local-mode 1)
|
|
;; (if arg
|
|
;; (centaur-tabs-backward)
|
|
;; (centaur-tabs-forward))
|
|
(pcase arg
|
|
('backward (centaur-tabs-backward))
|
|
('forward (centaur-tabs-forward))
|
|
('backward-group (centaur-tabs-backward-group))
|
|
('forward-group (centaur-tabs-forward-group)))
|
|
(centaur-tabs-local-mode 0)
|
|
(spacemacs//tabs-timer-hide))
|
|
|
|
(defun spacemacs//centaur-tabs-forward-and-hide ()
|
|
(spacemacs//tabs-switch-and-hide 'forward))
|
|
|
|
(defun spacemacs//centaur-tabs-backward-and-hide ()
|
|
(spacemacs//tabs-switch-and-hide 'backward))
|
|
|
|
(defun spacemacs/tabs-forward ()
|
|
(interactive)
|
|
(if tabs-auto-hide
|
|
(spacemacs//centaur-tabs-forward-and-hide)
|
|
(centaur-tabs-forward)))
|
|
|
|
(defun spacemacs/tabs-backward ()
|
|
(interactive)
|
|
(if tabs-auto-hide
|
|
(spacemacs//centaur-tabs-backward-and-hide)
|
|
(centaur-tabs-backward)))
|
|
|
|
(defun spacemacs/tabs-forward-group-and-hide ()
|
|
(interactive)
|
|
(spacemacs//tabs-switch-and-hide 'forward-group))
|
|
|
|
(defun spacemacs/tabs-backward-group-and-hide ()
|
|
(interactive)
|
|
(spacemacs//tabs-switch-and-hide 'backward-group))
|