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

---
 lisp/remember.el | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

(limited to 'lisp/remember.el')

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