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/init.el | 2 ++ .config/emacs/modules/bd--essential-windowing.el | 8 ++++---- .config/emacs/modules/bd--project.el | 17 +++++++++++++++++ 3 files changed, 23 insertions(+), 4 deletions(-) create mode 100644 .config/emacs/modules/bd--project.el (limited to '.config/emacs') diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 1018c27..98eea04 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -65,5 +65,7 @@ (require 'bd--roam) (require 'bd--emms) (require 'bd--modeline) +(require 'bd--project) + (server-start) diff --git a/.config/emacs/modules/bd--essential-windowing.el b/.config/emacs/modules/bd--essential-windowing.el index 14b7065..0759ad4 100644 --- a/.config/emacs/modules/bd--essential-windowing.el +++ b/.config/emacs/modules/bd--essential-windowing.el @@ -14,10 +14,10 @@ ;; no fringe (fringe-mode '(0 . 0)) -(keymap-global-set "M-n" 'other-window) -(keymap-global-set "M-p" (lambda () - (interactive) - (other-window -1))) +(keymap-global-set "M-" 'other-window) +(keymap-global-set "M-" (lambda () + (interactive) + (other-window -1))) ;; dedication 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