Commits

Anonymous committed 9a76815

render-input-field, render-password: support `tabindex' attribute.

Comments (0)

Files changed (1)

src/utils/html.lisp

     (:span :class "close-button"
 	   (render-link close-action (humanize-name button-string)))))
 
-(defun render-input-field (type name value &key id class maxlength style size onfocus onblur)
+(defun render-input-field (type name value &key id class maxlength style size onfocus onblur tabindex)
   (with-html
     (:input :type type :name (attributize-name name) :id id
             :size size
 	    :value value :maxlength maxlength :class class
             :style style
+            :tabindex tabindex
             :onfocus onfocus
             :onblur onblur)))
 
 (defun render-password (name value &key (id (gen-id)) (class "password") maxlength style
-                        default-value size visibility-option-p)
+                        default-value size visibility-option-p tabindex)
     "Renders a password in a form.
 'name' - name of the html control. The name is attributized before being rendered.
 'value' - a value on html control.
   (render-input-field "password" name value
                       :size size :id id :class class
                       :maxlength maxlength :style style
+                      :tabindex tabindex
                       :onfocus (when default-value
                                  (format nil "if (this.value==\"~A\") this.value=\"\";" default-value))
                       :onblur (when default-value