[Emacs-diffs] trunk r118268: Make titles in eww prettier

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 118268
revision-id: address@hidden
parent: address@hidden
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2014-11-03 01:35:44 +0100
message:
  Make titles in eww prettier
  
  (eww-tag-title): Remove newlines and extra whitespace from the
  displayed title.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-11-03 00:30:41 +0000
+++ b/lisp/ChangeLog    2014-11-03 00:35:44 +0000
@@ -7,6 +7,8 @@
        go back to the non-readable version.
        (eww-display-html): Don't try to decode the text if we've been
        passed in a pre-parsed DOM.
+       (eww-tag-title): Remove newlines and extra whitespace from the
+       displayed title.
 
 2014-11-02  Lars Magne Ingebrigtsen  <address@hidden>
 

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2014-11-03 00:30:41 +0000
+++ b/lisp/net/eww.el   2014-11-03 00:35:44 +0000
@@ -350,6 +350,10 @@
   (dolist (sub cont)
     (when (eq (car sub) 'text)
       (setq eww-current-title (concat eww-current-title (cdr sub)))))
+  (setq eww-current-title
+       (replace-regexp-in-string
+        "^ \\| $" ""
+        (replace-regexp-in-string "[ \t\r\n]+" " " eww-current-title)))
   (eww-update-header-line-format))
 
 (defun eww-tag-body (cont)