Re: bad UI defaults

[Per Abrahamsen]

Here is a customization for cursor-blink-alist based on alist

(define-widget 'cursor-type 'menu-choice
  "Cursor type."
  :tag "Type"
  :args '((const :tag "None" nil)
          (const :tag "Default vertical bar" bar)
          (cons :tag "Vertical bar" 
                :value (bar . 2)
                (const :format "" bar) 
                (integer :tag "Width" 2))
          (const :tag "Default horizontal bar" hbar)
          (cons :tag "Horizontal bar" 
                :value (hbar . 2)
                (const :format "" hbar) 
                (integer :tag "Width" 2))
          (const :tag "Filled box" box)
          (const :tag "Hollow box" hbox)
          (sexp :tag "Other" unknown)))

(defcustom cursor-blink-alist nil
  "Blah blah blah"
  :type '(alist :key-type (cursor-type :tag "When the cursor on is")
                :value-type (cursor-type :tag "The cursor off should be")))

I don't believe the alist interface is too complex for a user who want
to customize this rather complex variable, however you can provide
checkboxes for the possible values with the :options argument, like
this if you think it helps

(defcustom cursor-blink-alist nil
  "Blah blah blah"
  :options '(((const :tag "When the cursor on is: None" nil)
              (cursor-type :tag "The cursor off should be")))
  :type '(alist :key-type (cursor-type :tag "When the cursor on is")
                :value-type (cursor-type :tag "The cursor off should be")))

[ We'd probably want to get rid of the hardcoded "Key: " string from
  the alist widget though ]

An alternative is to create another simpler variable:

(defcustom cursor-off-type t
  "Cursor to show when the cursor is in the off state.
The possible values are:
  t: Use the value specified by 'cursor-blink-alist'.
  ..."
  :type 'cursor-type)