racket-expand-hiding: Add defcustom types for rules

racket-custom.el

@@ -582,8 +582,32 @@ ignore POS. Examples: `racket-show-echo-area' and
                        (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)))
+                       (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-kerel-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