racket-expand-hiding: Add defcustom types for rules

greghendershott · Jan 28, 2024 · bbbf67b · bbbf67b
1 parent be2dce3
commit bbbf67b
Showing 1 changed file with 34 additions and 9 deletions.
diff --git a/racket-custom.el b/racket-custom.el
@@ -575,15 +575,40 @@ ignore POS. Examples: `racket-show-echo-area' and
 (defcustom racket-expand-hiding 'standard
   "The macro hiding policy for commands like `racket-expand-file'."
   :tag "Racket Expand Hiding"
-  :type '(choice (const :tag "Disable" disable)
-                 (const :tag "Standard" standard)
-                 (list :tag "Custom" :value (list t t t t nil)
-                       (boolean :tag "Hide racket syntax")
-                       (boolean :tag "Hide library syntax")
-                       (boolean :tag "Hide contracts")
-                       (boolean :tag "Hide phase>0")
-                       (repeat :tag "More rules (see macro-debugger/model/hiding-policies \"Entry\" and \"Condition\")"
-                               sexp)))
+  :type '(choice
+          (const :tag "Disable" disable)
+          (const :tag "Standard" standard)
+          (list :tag "Custom" :value (t t t t nil)
+                (boolean :tag "Hide racket syntax")
+                (boolean :tag "Hide library syntax")
+                (boolean :tag "Hide contracts")
+                (boolean :tag "Hide phase>0")
+                (repeat
+                 :tag "More rules (see macro-debugger/model/hiding-policies \"Entry\" and \"Condition\")"
+                 (list (choice (const :tag "show-if" show-if)
+                               (const :tag "hide-if" hide-if))
+                       (choice (const :tag "lexical" (lexical))
+                               (const :tag "unbound" (unbound))
+                               (const :tag "from-kernel-module" (from-kernel-module))
+                               (list :tag "from-def-module"
+                                     (const from-def-module)
+                                     (choice :tag "module path" string symbol))
+                               (list :tag "from-nom-module"
+                                     (const from-nom-module)
+                                     (choice :tag "module path" string symbol))
+                               (list :tag "from-collection"
+                                     (const from-collection)
+                                     (repeat :tag "collection-string" string))
+                               (list :tag "symbol=?"
+                                     (const symbol=?)
+                                     (symbol))
+                               (list :tag "symbol-like"
+                                     (const symbol-like)
+                                     (string :tag "racket regexp"))
+                               (list :tag "phase>=?"
+                                     (const phase>=?)
+                                     (natnum :tag "natural number"))
+                               (sexp :tag "sexp"))))))
   :group 'racket-other)
 
 ;;; Faces