diff options
Diffstat (limited to 'lisp/acdw-cus-edit.el')
-rw-r--r-- | lisp/acdw-cus-edit.el | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/lisp/acdw-cus-edit.el b/lisp/acdw-cus-edit.el deleted file mode 100644 index 89273f0..0000000 --- a/lisp/acdw-cus-edit.el +++ /dev/null | |||
@@ -1,32 +0,0 @@ | |||
1 | ;;; acdw-cus-edit.el -*- lexical-binding: t -*- | ||
2 | |||
3 | (defun acdw-cus/expand-widgets (&rest _) | ||
4 | "Expand descriptions in `Custom-mode' buffers." | ||
5 | (interactive) | ||
6 | ;; "More/Hide" widgets (thanks alphapapa!) | ||
7 | (widget-map-buttons (lambda (widget _) | ||
8 | (pcase (widget-get widget :off) | ||
9 | ("More" (widget-apply-action widget))) | ||
10 | nil)) | ||
11 | ;; "Show Value" widgets (the little triangles) | ||
12 | (widget-map-buttons (lambda (widget _) | ||
13 | (pcase (widget-get widget :off) | ||
14 | ("Show Value" | ||
15 | (widget-apply-action widget))) | ||
16 | nil))) | ||
17 | |||
18 | (defvar acdw-cus/imenu-generic-expression ; thanks u/oantolin! | ||
19 | '(("Faces" (rx (seq bol | ||
20 | (or "Show" "Hide") " " | ||
21 | (group (zero-or-more nonl)) | ||
22 | " face: [sample]")) | ||
23 | 1) | ||
24 | ("Variables" (rx (seq bol | ||
25 | (or "Show Value" "Hide") " " | ||
26 | (group (zero-or-more | ||
27 | (not (any "\n:")))))) | ||
28 | 1)) | ||
29 | "Show faces and variables in `imenu'.") | ||
30 | |||
31 | (provide 'acdw-cus-edit) | ||
32 | ;;; acdw-cus-edit.el ends here | ||