Customize 'customize'

... somewhat. still needs work.

1 files changed, 25 insertions, 1 deletions

@@ -163,11 +163,35 @@
   (blink-cursor-mode +1))
 
 (setup cus-edit
+  
   (:option custom-file (acdw/dir "custom.el")
            custom-magic-show nil
            custom-magic-show-button t
            custom-unlispify-tag-names nil
-           custom-variable-default-form 'edit))
+           custom-variable-default-form 'edit)
+
+  (defun unpackaged/custom-toggle-all-more-hide ()
+    "Toggle all \"More/Hide\" widgets in current buffer."
+    (interactive)
+    (widget-map-buttons (lambda (widget _)
+                          (pcase (widget-get widget :off)
+                            ("More" (widget-apply-action widget)))
+                          nil)))
+  (add-hook 'Custom-mode-hook #'unpackaged/custom-toggle-all-more-hide)
+
+  (defun unpackaged/custom-set-at-point ()
+    "Set current value of widget at point."
+    (interactive)
+    (cl-labels ((find-widget (widget property)
+                             (if (widget-get widget property)
+                                 widget
+                               (find-widget (widget-get widget :parent) property))))
+      (when-let* ((widget (find-widget (widget-at) :custom-set)))
+        (when (eq (widget-get widget :custom-state) 'modified)
+          (widget-apply widget :custom-set)))))
+  
+  (:with-map custom-field-keymap
+    (:bind "C-c C-c" unpackaged/custom-set-at-point)))
 
 (setup debugger
   (:hook visual-line-mode)