Re: Programmatically access all the possible values of a defcustom

[Nicolas Richard]

"Sebastien Vauban" <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org>
writes:
> Now, I'll have to play with the list to obtain what I really want:
> a string like...
>
>    Awk, C, R, Asymptote, Calc, Clojure, CSS, Ditaa, Dot, Emacs Lisp,
>    Fortran

The objects are "widgets", so e.g.

(widget-get (get 'org-babel-load-languages 'custom-type) :key-type)

will get you to the (choice ...) data which is documented at (info
"(widget) composite")

I'm unsure what's the best way to get rid of the [keyword value] pairs
and only map over each inner (const ...) widget ; there ought to be
something defined within the widget library but i couldn't find it. Or
maybe my whole approach is wrong, I don't know.

Anyway, this works for me :

(mapconcat (lambda (widget)
             (widget-get widget :tag))
           (cl-remove-if-not (lambda (it)
                               (and (consp it)
                                    (eq (car it) 'const)))
                             (cdr
                              (widget-get
                               (get
                                'org-babel-load-languages 'custom-type)
                               :key-type)))
           ", ")


-- 
Nico.