33 lines
1.2 KiB
EmacsLisp
33 lines
1.2 KiB
EmacsLisp
;;; 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
|