Add `:setq-default' macro to save a little load time

1 files changed, 31 insertions, 18 deletions

@@ -39,6 +39,18 @@
                      (car recipe)
                    recipe))))
 
+;; Set options using `setq-default', instead of `customize-set-variable'
+;; From what I can tell, `customize-set-variable' loads "all the dependencies
+;; for each SYMBOL it sets (see `custom-load-symbol').  Since I don't want to do
+;; that all the time, here's `:set'.  DON'T USE THIS HARDLY EVER.  Honestly, I
+;; might want to do a `:option-after' instead (with `:after-loaded' set to t)...
+(setup-define :setq-default
+  (lambda (variable value)
+    `(setq-default ,variable ,value))
+  :documentation "Set options with `setq-default'.  USE SPARINGLY!"
+  :debug '(sexp form)
+  :repeatable t)
+
 ;; Bind keys to `acdw/map'
 (setup-define :acdw/map
   (lambda (key command)
@@ -244,19 +256,19 @@
       w32-pass-apps-to-system nil
       w32-apps-modifier 'hyper)
 
-;; Dired
+;;; Dired
 (setup dired
-  (:option dired-recursive-copies 'always
-           dired-recursive-deletes 'always
-           delete-by-moving-to-trash t
-           dired-listing-switches "-Al"
-           ls-lisp-dirs-first t
-           dired-ls-F-marks-symlinks t
-           dired-no-confirm '(byte-compile
-                              chgrp chmod chown copy
-                              hardlink load move
-                              shell touch symlink)
-           dired-dwim-target t)
+  (:setq-default dired-recursive-copies 'always
+                 dired-recursive-deletes 'always
+                 delete-by-moving-to-trash t
+                 dired-listing-switches "-Al"
+                 ls-lisp-dirs-first t
+                 dired-ls-F-marks-symlinks t
+                 dired-no-confirm '(byte-compile
+                                    chgrp chmod chown copy
+                                    hardlink load move
+                                    shell touch symlink)
+                 dired-dwim-target t)
   (:also-load dired-x)
   (:hook dired-hide-details-mode
          hl-line-mode)
@@ -268,12 +280,13 @@
   (add-to-list 'exec-path "C:/Program Files/Mozilla Firefox"))
 
 (setup browse-url
-  (:option browse-url-browser-function 'eww-browse-url
-           browse-url-secondary-browser-function (if (executable-find "firefox")
-                                                     'browse-url-firefox
-                                                   'browse-url-default-browser)
-           browse-url-new-window-flag t
-           browse-url-firefox-new-window-is-tab t))
+  (:setq-default browse-url-browser-function 'eww-browse-url
+                 browse-url-secondary-browser-function
+                 (if (executable-find "firefox")
+                     'browse-url-firefox
+                   'browse-url-default-browser)
+                 browse-url-new-window-flag t
+                 browse-url-firefox-new-window-is-tab t))
 
 (setup shr
   (:option shr-width fill-column