New ssh target, projects+tabs

3 files changed, 23 insertions, 4 deletions

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-<down>" 'other-window)
+(keymap-global-set "M-<up>" (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)