Move core/autoload/set.el into core/core-lib.el

core/core-lib.el

@@ -149,5 +149,35 @@ Examples:
             (t (user-error "@associate invalid rules for mode [%s] (in %s) (match %s) (files %s)"
                            mode in match files))))))
 
+
+;; Provides a centralized configuration system that a) won't evaluate its
+;; arguments if it doesn't need to (performance), b) won't complain if the
+;; setting doesn't exist and c) is more elegant than a bunch of `@after' blocks,
+;; which can cause intermittent stuttering in large quantities. I'm a fan of
+;; concise, do-what-I-mean front-facing configuration, believe it or not.
+;;
+;; Plus, it can benefit from byte-compilation.
+
+(defmacro @def-setting (keyword arglist &optional docstring &rest forms)
+  "Define a setting macro. Like `defmacro', this should return a form to be
+executed when called with `@set'. FORMS are not evaluated until `@set' calls it."
+  (declare (indent defun) (doc-string 3))
+  (unless (keywordp keyword)
+    (error "Not a valid property name: %s" keyword))
+  `(defun ,(intern (format "doom-setting--setter%s" keyword)) ,arglist
+     ,docstring
+     ,@forms))
+
+(defmacro @set (keyword &rest values)
+  "Set an option defined by `@def-setting'. Skip if doesn't exist."
+  (declare (indent defun))
+  (unless values
+    (error "Empty @set for %s" keyword))
+  (let ((fn (intern (format "doom-setting--setter%s" keyword))))
+    (if (functionp fn)
+        (apply fn (eval `(list ,@values)))
+      (when doom-debug-mode
+        (message "No setting found for %s" keyword)))))
+
 (provide 'core-lib)
 ;;; core-lib.el ends here