1 files changed, 16 insertions, 3 deletions

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