[gnus git] branch master updated: m0-7-90-gb1c0e28 =2= * eww.el (eww-tag-textarea): Support <textarea>. ; * shr.el (shr-dom-to-xml): Fixed function call.

       via  b1c0e287664751697a118a8e7fc28c0b8d0e1a98 (commit)
       via  91ae443348a3e146926b6c4e1d053f4bc629656f (commit)
      from  d575d9bfc43bc17a6b36340413153eacfc0016dc (commit)


- Log -----------------------------------------------------------------
commit b1c0e287664751697a118a8e7fc28c0b8d0e1a98
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Sun Jun 16 17:42:37 2013 +0200

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03c69d0..b08c4ff 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-06-16  Lars Magne Ingebrigtsen  <[email protected]>
+
+	* eww.el (eww-tag-textarea): Support <textarea>.
+
 2013-06-16  Rüdiger Sonderfeld  <[email protected]>
 
 	* shr.el (shr-dom-to-xml): Fixed function call.
diff --git a/lisp/eww.el b/lisp/eww.el
index 6579d1a..f99e5be 100644
--- 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

commit 91ae443348a3e146926b6c4e1d053f4bc629656f
Author: Rüdiger Sonderfeld <[email protected]>
Date:   Sun Jun 16 17:30:45 2013 +0200

    * shr.el (shr-dom-to-xml): Fixed function call.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 551d360..03c69d0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-06-16  Rüdiger Sonderfeld  <[email protected]>
 
+	* shr.el (shr-dom-to-xml): Fixed function call.
+
 	* eww.el (eww): New group.
 	(eww-header-line-format): New custom variable.
 	(eww-current-title): New variable.
diff --git a/lisp/shr.el b/lisp/shr.el
index 7f79e1a..fae1742 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -920,7 +920,7 @@ ones, in case fg and bg are nil."
     (dolist (sub (cdr dom))
       (cond
        ((listp (cdr sub))
-        (setq text (concat text (dom-to-text sub))))
+        (setq text (concat text (shr-dom-to-xml sub))))
        ((eq (car sub) 'text)
         (setq text (concat text (cdr sub))))
        (t

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    6 ++++++
 lisp/eww.el    |   16 ++++++++++++++++
 lisp/shr.el    |    2 +-
 3 files changed, 23 insertions(+), 1 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project