Function: mairix-widget-build-editable-fields

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

Signature

(mairix-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/net/mairix.el.gz
(defun mairix-widget-build-editable-fields (values)
  "Build editable field widgets in `nnmairix-widget-fields-list'.
VALUES may contain values for editable fields from current article."
  (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)
                                    (mairix-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))
     mairix-widget-fields-list)
    ret))