Re: Proposal to add Popper to ELPA

[Mauro Aranda <maurooaranda@gmail.com>]

On 5/9/23 17:49, Karthik Chikmagalur wrote:
 >>  > -  :type '(restricted-sexp :match-alternatives (stringp symbolp
 >> functionp consp))
 >>  > -  :group 'popper)
 >>  > +  :type '(repeat (string :tag "Regular Expression")
 >>  > +         (symbol :tag "Major Mode")
 >>  > +         (function :tag "Predicate Function")
 >>  > +         ;; What is the consp in (restricted-sexp 
:match-alternatives
 >> (stringp symbolp functionp consp))?
 >>  > +         ))
 >>
 >> The different alternatives should be inside a choice:
 >> :type '(repeat (choice (string :tag "Regular Expression")
 >>                         (symbol :tag "Major Mode")
 >>                         (function :tag "Predicate Function"))
 >
 > In addition, cons cells of the form '(string-or-symbol . hide) are
 > allowed.  I'm not sure how to represent this in the customization types
 > list.  I'm okay with omitting this from the customize interface, since
 > it's a niche option that few users will need.

I didn't notice the strings were really regular expressions, so I
adapted the type to use regexp.

The cons widget, as below, does the job but it looks UGLY.  I'm in a
hurry now, so I can't take a look at how to make it prettier.

:type '(repeat (choice regexp
                        (symbol :tag "Major Mode")
                        (function :tag "Predicate Function")
                        (cons (choice regexp
                                      (symbol :tag "Major Mode"))
                              (const :tag "Hide" hide))))