From e037d2fb71b533b506469d78a58ff351194d6e36 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 13 Jan 2022 18:01:12 -0600
Subject: Whatever

---
 lisp/+tab-bar.el |  8 ++++++++
 lisp/remember.el | 19 ++++++++++++++++---
 2 files changed, 24 insertions(+), 3 deletions(-)

(limited to 'lisp')

diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el
index 1dc1f68..1ee7606 100644
--- a/lisp/+tab-bar.el
+++ b/lisp/+tab-bar.el
@@ -21,6 +21,14 @@
 (defvar +tab-bar-show-original nil
   "Original value of `tab-bar-show'.")
 
+(defun +tab-bar-basename ()
+  "Generate the tab name from the basename of the buffer of the
+  selected window."
+  (let* ((tab-file-name (buffer-file-name (window-buffer (minibuffer-selected-window)))))
+    (if tab-file-name
+        (file-name-nondirectory tab-file-name)
+      (+tab-bar-tab-name-truncated-left))))
+
 (defun +tab-bar-tab-name-truncated-left ()
   "Generate the tab name from the buffer of the selected window.
 This is just like `tab-bar-tab-name-truncated', but truncates the
diff --git a/lisp/remember.el b/lisp/remember.el
index 39476d1..a759419 100644
--- a/lisp/remember.el
+++ b/lisp/remember.el
@@ -1,4 +1,17 @@
-;; ABANDON ALL HOPE YE WHO ENTER HERE
+;;; remember.el --- Remember variables and modes -*- lexical-binding: t; -*-
+
+;;; Code:
+
+(defmacro remember-remember (alist)
+  (let* ((template (format "remember--%s-%%s" (gensym)))
+         (reset-fn (intern (format template "recall")))
+         (things (cl-loop for (sym . newval) in alist
+                          as rem = (intern (format template sym))
+
+                          ;; Collect original values
+                          
+                          )))))
+
 
 (defmacro remember-set (&rest symbols)
   "Setup a closure remembering symbols to apply with
@@ -6,7 +19,7 @@
 SYMBOLS is a plist: the properties are symbols or mode names, and
 their values what to set after `remember-setup'."
   (let* ((template (format "remember--%s-%%s" (gensym)))
-         (reset-fn (intern (format template "reset" "fn")))
+         (reset-fn (intern (format template "reset")))
          (list (cl-loop for sym in symbols by #'cddr
                         collect `(,(intern (format template sym))
                                   ,sym)
@@ -39,5 +52,5 @@ their values what to set after `remember-setup'."
 
 ;; test
 
-(setq fn (remember-set display-fill-column-indicator-mode disable))
+(set 'fn (remember-set display-fill-column-indicator-mode disable))
 (funcall fn)
-- 
cgit 1.4.1-21-gabe81