From f561373103be38ecb6dc5103ded7737437acb0ed Mon Sep 17 00:00:00 2001
From: bd <bdunahu@colostate.edu>
Date: Thu, 14 Mar 2024 01:20:44 -0600
Subject: Bind switch-tab to meta-#

---
 .config/emacs/init.el                |  2 +-
 .config/emacs/modules/bd--eww.el     |  2 +-
 .config/emacs/modules/bd--project.el | 18 ------------------
 .config/emacs/modules/bd--tabs.el    | 31 +++++++++++++++++++++++++++++++
 4 files changed, 33 insertions(+), 20 deletions(-)
 delete mode 100644 .config/emacs/modules/bd--project.el
 create mode 100644 .config/emacs/modules/bd--tabs.el

(limited to '.config')

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index f30cca8..b8954b0 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -66,7 +66,7 @@
 (require 'bd--roam)
 (require 'bd--emms)
 (require 'bd--modeline)
-(require 'bd--project)
+(require 'bd--tabs)
 
 
 (server-start)
diff --git a/.config/emacs/modules/bd--eww.el b/.config/emacs/modules/bd--eww.el
index 6623323..1088c6b 100644
--- a/.config/emacs/modules/bd--eww.el
+++ b/.config/emacs/modules/bd--eww.el
@@ -16,7 +16,7 @@
                                          "yewtu.be"
                                          "vid.puffyan.us"))
         browse-url-handlers
-        `((,(regexp-opt'("youtube.com" "youtu.be" "yewtu.be" "vid.puffyan.us")) .
+        `((,(regexp-opt'("youtube.com" "youtu.be" "yewtu.be" "vid.puffyan.us" "invidious.protokolla.fi")) .
            (lambda (url &rest _)
              (message "Ludu %s" url)
              (start-process-shell-command "rip-video" nil (concat "rip-video " url))))))
diff --git a/.config/emacs/modules/bd--project.el b/.config/emacs/modules/bd--project.el
deleted file mode 100644
index 6c54a1a..0000000
--- a/.config/emacs/modules/bd--project.el
+++ /dev/null
@@ -1,18 +0,0 @@
-;; -*- lexical-binding: t; -*-
-
-
-(setq tab-bar-show 1)
-(tab-bar-history-mode)
-
-(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)
diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el
new file mode 100644
index 0000000..e9c9ac3
--- /dev/null
+++ b/.config/emacs/modules/bd--tabs.el
@@ -0,0 +1,31 @@
+;; -*- lexical-binding: t; -*-
+
+
+;; turn tabs on, undo/redo mode
+(setq tab-bar-show 1)
+(tab-bar-history-mode)
+
+
+;; bind tabs to 'Meta' like a browser
+(mapcar (lambda (i)
+          (keymap-global-set (format "M-%d" i)
+                             (lambda ()
+                               (interactive)
+                               (tab-bar-select-tab i))))
+        (number-sequence 0 9))
+
+
+;; use project name if it exists
+(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--tabs)
-- 
cgit v1.2.3