msyds/sydnix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(emacs): Org theming

Browse Source
This commit is contained in:
Madeleine Sydney
2025-02-17 02:51:21 -07:00
parent 7ab9610b6f
commit 12caaa6097
8 changed files with 280 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
users/crumb/programs/emacs/modules/syd-tabs.el
View File

@@ -31,20 +31,22 @@
(defun syd-tab-bar--name-new-tab-h (tab)
"Hooks to `tab-bar-tab-post-open-functions' such that new tabs will be
given \"explicit names\" that are static."
(syd-tab-bar-rename-tab tab (funcall syd-tab-bar-name-function)))
(defun syd-tab-bar--show-tab-bar-h (_tab)
"Show the tab-bar if it is not already visible. See
(syd-tab-bar-rename-tab tab (funcall syd-tab-bar-name-function))))
(defun syd-tab-bar--show-tab-bar-h (_tab)
"Show the tab-bar if it is not already visible. See
`syd-tab-bar-hide-tab-bar-h'."
(unless vim-tab-bar-mode
(vim-tab-bar-mode 1))))
(unless vim-tab-bar-mode
(vim-tab-bar-mode 1)))
(defun syd-tab-bar-new-tab ()
(interactive)
(let ((tab-bar-tab-post-open-functions
(cons (lambda (_tab)
(switch-to-buffer
(funcall syd-tab-bar-default-buffer-function)))
tab-bar-tab-post-open-functions)))
(-cons* (lambda (_tab)
(switch-to-buffer
(funcall syd-tab-bar-default-buffer-function)))
#'syd-tab-bar--show-tab-bar-h
tab-bar-tab-post-open-functions)))
(tab-bar-new-tab)))
(syd-add-hook 'tab-bar-tab-pre-close-functions