pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 08:14:15 +00:00
Code Issues Projects Releases Packages Wiki Activity

Switch to tab scratch by default when quit

Browse source
This commit is contained in:
Benson Chu 2020-05-07 11:43:14 -05:00
parent acfc6f1547
commit da98913503
1 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/switch-tabs.el
View file

@ -26,18 +26,17 @@
(defvar show-tab-bar-new-tab nil)
(defun switch-or-create-tab ()
(interactive)
(let* ((current-tab (alist-get 'name (tab-bar--current-tab)))
(tab-name
(->> (tab-bar--tabs-recent)
(mapcar #'(lambda (tab)
(alist-get 'name tab)))
(remove-if #'(lambda (tab-name)
(string= tab-name current-tab)))
(ido-completing-read (format "Switch to tab (%s): "
current-tab))))
(tab-index (tab-bar--tab-index-by-name tab-name)))
(defun switch-or-create-tab (tab-name)
(interactive
(list (let ((current-tab (alist-get 'name (tab-bar--current-tab))))
(->> (tab-bar--tabs-recent)
(mapcar #'(lambda (tab)
(alist-get 'name tab)))
(remove-if #'(lambda (tab-name)
(string= tab-name current-tab)))
(ido-completing-read (format "Switch to tab (%s): "
current-tab))))))
(let ((tab-index (tab-bar--tab-index-by-name tab-name)))
(if tab-index
(tab-bar-select-tab (1+ tab-index))
(tab-bar-new-tab)
@ -61,7 +60,7 @@
old-name))
(tab-bar-close-tab)
(when (<= 2 (length (funcall tab-bar-tabs-function)))
(switch-or-create-tab))
(switch-or-create-tab "scratch"))
t)))
(defun tab-bar-report ()