Break out cus-edit functions

1 files changed, 32 insertions, 0 deletions

@@ -0,0 +1,32 @@
+;;; acdw-cus-edit.el -*- lexical-binding: t -*-
+
+(defun acdw-cus/expand-widgets (&rest _)
+  "Expand descriptions in `Custom-mode' buffers."
+  (interactive)
+  ;; "More/Hide" widgets (thanks alphapapa!)
+  (widget-map-buttons (lambda (widget _)
+                        (pcase (widget-get widget :off)
+                          ("More" (widget-apply-action widget)))
+                        nil))
+  ;; "Show Value" widgets (the little triangles)
+  (widget-map-buttons (lambda (widget _)
+                        (pcase (widget-get widget :off)
+                          ("Show Value"
+                           (widget-apply-action widget)))
+                        nil)))
+
+(defvar acdw-cus/imenu-generic-expression ; thanks u/oantolin!
+  '(("Faces" (rx (seq bol
+                      (or "Show" "Hide") " "
+                      (group (zero-or-more nonl))
+                      " face: [sample]"))
+     1)
+    ("Variables" (rx (seq bol
+                          (or "Show Value" "Hide") " "
+                          (group (zero-or-more
+                                  (not (any "\n:"))))))
+     1))
+  "Show faces and variables in `imenu'.")
+
+(provide 'acdw/cus-edit)
+;;; acdw-cus-edit.el ends here