Function: nnmairix-widget-build-editable-fields

nnmairix-widget-build-editable-fields is a byte-compiled function defined in nnmairix.el.gz.

Signature

(nnmairix-widget-build-editable-fields VALUES)

Documentation

Build editable field widgets in nnmairix-widget-fields-list.

VALUES may contain values for editable fields from current article.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnmairix.el.gz
      (widget-insert " Show full threads\n\n")) ;; )

(defun nnmairix-widget-build-editable-fields (values)
  "Build editable field widgets in `nnmairix-widget-fields-list'.
VALUES may contain values for editable fields from current article."
  ;; how can this be done less ugly?
  (let ((ret))
    (mapc
     (lambda (field)
       (setq field (car (cddr field)))
       (setq ret
             (nconc
              (list
               (list
                (concat "c" field)
                (widget-create 'checkbox
                               :tag field
                               :notify (lambda (widget &rest _ignore)
                                         (nnmairix-widget-toggle-activate widget))
                               nil)))
              (list
               (list
                (concat "e" field)
                (widget-create 'editable-field
                               :size 60
                               :format (concat " " field ":"
                                               (make-string (- 11 (length field)) ?\ )
                                               "%v")
                               :value (or (cadr (assoc field values)) ""))))
              ret))
       (widget-insert "\n")
       ;; Deactivate editable field
       (widget-apply (cadr (nth 1 ret)) :deactivate))
     nnmairix-widget-fields-list)
    ret))