diff options
author | bd <bdunahu@colostate.edu> | 2024-03-10 19:46:37 -0600 |
---|---|---|
committer | bd <bdunahu@colostate.edu> | 2024-03-10 19:46:37 -0600 |
commit | a47be8d8fb668a825ef24e192a015c51c44f4963 (patch) | |
tree | f5447a7e6e6520aadacd7f76592b8428f003a51e /.config/emacs/modules/bd--project.el | |
parent | 5cf1dc72f1a22ff6b2428d0f1f439f1c8d30c576 (diff) |
New ssh target, projects+tabs
Diffstat (limited to '.config/emacs/modules/bd--project.el')
-rw-r--r-- | .config/emacs/modules/bd--project.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/.config/emacs/modules/bd--project.el b/.config/emacs/modules/bd--project.el new file mode 100644 index 0000000..14b084b --- /dev/null +++ b/.config/emacs/modules/bd--project.el @@ -0,0 +1,17 @@ +;; -*- lexical-binding: t; -*- + + +(setq tab-bar-show 1) + +(defun bd/tab-bar-name-function () + (let ((project (project-current))) + (if project + (car (last + (file-name-split + (directory-file-name + (project-root project))))) + (tab-bar-tab-name-current)))) + +(setq tab-bar-tab-name-function #'bd/tab-bar-name-function) + +(provide 'bd--project) |