Customize 'customize'

1 files changed, 18 insertions, 0 deletions

@@ -136,6 +136,24 @@
            calendar-latitude _location-latitude
            calendar-longitude _location-longitude))
 
+(setup cus-edit
+  ;; I don't use Custom to actually /make/ any customizations, but it's handy to
+  ;; (A) see what options are available and (B) persist some changes across
+  ;; restarts, for example, `safe-local-variables'.
+  (:also-load +cus-edit)
+  (:option custom-file (private/ "custom.el")
+           custom-magic-show nil
+           custom-magic-show-button t
+           custom-raised-buttons nil
+           custom-unlispify-tag-names nil
+           custom-variable-default-form 'lisp
+           +custom-variable-allowlist '(safe-local-variable-values))
+  (when (file-exists-p custom-file)
+    (+custom-load-ignoring-most-customizations t))
+  (advice-add 'custom-buffer-create-internal :after '+cus-edit-expand-widgets)
+  (:with-mode Custom-mode
+    (:local-set imenu-generic-expression +cus-edit-imenu-generic-expression)))
+
 (setup dired
   (:also-load dired-x)
   (:also-straight dired-subtree