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

Indentation

Browse source
This commit is contained in:
Benson Chu 2022-10-28 16:30:26 -05:00
parent 1e6dd88de3
commit 8dc030e114
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/switch-tabs.el
View file

@ -44,17 +44,19 @@
(defun switch-or-create-tab (tab-name)
(interactive
(list (my/read-tab-name)))
(let ((tab-index (tab-bar--tab-index-by-name tab-name)))
(if tab-index
(progn
(cl-incf tab-index)
(tab-bar-select-tab tab-index)
tab-index)
(let* ((spec (member tab-name switch-tabs/special-tabs))
(tab-bar-new-tab-to (if spec 'leftmost 'rightmost)))
(tab-bar-new-tab))
(tab-bar-rename-tab tab-name)
(tab-bar--current-tab-index))))
(if (active-minibuffer-window)
(message "Minibuffer still active. Close before switching tabs... ")
(let ((tab-index (tab-bar--tab-index-by-name tab-name)))
(if tab-index
(progn
(cl-incf tab-index)
(tab-bar-select-tab tab-index)
tab-index)
(let* ((spec (member tab-name switch-tabs/special-tabs))
(tab-bar-new-tab-to (if spec 'leftmost 'rightmost)))
(tab-bar-new-tab))
(tab-bar-rename-tab tab-name)
(tab-bar--current-tab-index)))))
(defun last-tab ()
(interactive)