* eww.el (eww-tag-textarea): Support <textarea>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03c69d0..b08c4ff 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-06-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * eww.el (eww-tag-textarea): Support <textarea>.
+
 2013-06-16  Rüdiger Sonderfeld  <ruediger@c-plusplus.de>
 
        * shr.el (shr-dom-to-xml): Fixed function call.

diff --git a/lisp/eww.el b/lisp/eww.el
index 6579d1a..f99e5be 100644 (file)
--- a/lisp/eww.el
+++ b/lisp/eww.el
@@ -125,6 +125,7 @@
           '((title . eww-tag-title)
             (form . eww-tag-form)
             (input . eww-tag-input)
+            (textarea . eww-tag-textarea)
             (body . eww-tag-body)
             (select . eww-tag-select))))
       (shr-insert-document document)
@@ -297,6 +298,21 @@
       (apply 'widget-create widget)
       (put-text-property start (point) 'eww-widget widget))))
 
+(defun eww-tag-textarea (cont)
+  (let* ((start (point))
+        (widget
+         (list 'editable-field
+               :size (string-to-number
+                      (or (cdr (assq :cols cont))
+                          "40"))
+               :value (or (cdr (assq 'text cont)) "")
+               :action 'eww-submit
+               :name (cdr (assq :name cont))
+               :eww-form eww-form)))
+    (nconc eww-form (list widget))
+    (apply 'widget-create widget)
+    (put-text-property start (point) 'eww-widget widget)))
+
 (defun eww-tag-select (cont)
   (shr-ensure-paragraph)
   (let ((menu (list 'menu-choice