[gnus git] branch master updated: m0-7-108-gbac3aef =2= * shr.el (shr-colorize-region): Put the colours over the entire region. ; Make buttons prettier

       via  bac3aefaf4327628b01484f48bfaa0a3a501c161 (commit)
       via  8c1c5126377c8128d039e4dc1f691687f5386d4b (commit)
      from  fa22eb0f4d79fff3e28a98ce07a1035e197b043d (commit)


- Log -----------------------------------------------------------------
commit bac3aefaf4327628b01484f48bfaa0a3a501c161
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Mon Jun 17 17:08:11 2013 +0200

    * shr.el (shr-colorize-region): Put the colours over the entire region.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 749e239..36576d1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-06-17  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* shr.el (shr-colorize-region): Put the colours over the entire region.
+
 	* eww.el (eww-button): New face.
 	(eww-convert-widgets): Use it to make submit buttons more button-like.
 
diff --git a/lisp/shr.el b/lisp/shr.el
index d3b9a36..d348e31 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -838,9 +838,13 @@ ones, in case fg and bg are nil."
     (let ((new-colors (shr-color-check fg bg)))
       (when new-colors
 	(when fg
-	  (shr-add-font start end (list :foreground (cadr new-colors))))
+	  (add-face-text-property start end
+				  (list :foreground (cadr new-colors))
+				  t))
 	(when bg
-	  (shr-add-font start end (list :background (car new-colors)))))
+	  (add-face-text-property start end
+				  (list :background (car new-colors))
+				  t)))
       new-colors)))
 
 (defun shr-expand-newlines (start end color)

commit 8c1c5126377c8128d039e4dc1f691687f5386d4b
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Mon Jun 17 13:07:46 2013 +0200

    Make buttons prettier
    
    * eww.el (eww-button): New face.
    (eww-convert-widgets): Use it to make submit buttons more button-like.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7789881..749e239 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-06-17  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* eww.el (eww-button): New face.
+	(eww-convert-widgets): Use it to make submit buttons more button-like.
+
 	* mm-decode.el (mm-convert-shr-links): Override the shr local map, so
 	that Gnus commands work.
 
diff --git a/lisp/eww.el b/lisp/eww.el
index fc0e413..3383b5f 100644
--- a/lisp/eww.el
+++ b/lisp/eww.el
@@ -43,6 +43,14 @@
   :group 'eww
   :type 'string)
 
+(defface eww-button
+  '((((type x w32 ns) (class color))	; Like default mode line
+     :box (:line-width 2 :style released-button)
+     :background "lightgrey" :foreground "black"))
+  "Face for eww buffer buttons."
+  :version "24.4"
+  :group 'eww)
+
 (defvar eww-current-url nil)
 (defvar eww-current-title ""
   "Title of current page.")
@@ -303,7 +311,8 @@
     (nconc eww-form (list widget))
     (unless (eq (car widget) 'hidden)
       (apply 'widget-create widget)
-      (put-text-property start (point) 'eww-widget widget))))
+      (put-text-property start (point) 'eww-widget widget)
+      (insert " "))))
 
 (defun eww-tag-textarea (cont)
   (let* ((start (point))
@@ -445,7 +454,9 @@
 	(delete-region start end))
       (when (and widget
 		 (not (eq (car widget) 'hidden)))
-	(apply 'widget-create widget)))
+	(apply 'widget-create widget)
+	(when (eq (car widget) 'push-button)
+	  (add-face-text-property start (point) 'eww-button t))))
     (widget-setup)
     (eww-fix-widget-keymap)))
 

-----------------------------------------------------------------------
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 |    5 +++++
 lisp/eww.el    |   15 +++++++++++++--
 lisp/shr.el    |    8 ++++++--
 3 files changed, 24 insertions(+), 4 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