Merge branch 'main' of https://tildegit.org/acdw/emacs

2 files changed, 24 insertions, 3 deletions

@@ -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
@@ -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)