From a47be8d8fb668a825ef24e192a015c51c44f4963 Mon Sep 17 00:00:00 2001 From: bd Date: Sun, 10 Mar 2024 19:46:37 -0600 Subject: New ssh target, projects+tabs --- .config/emacs/modules/bd--project.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 .config/emacs/modules/bd--project.el (limited to '.config/emacs/modules/bd--project.el') 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) -- cgit v1.2.3