procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(eww-add-bookmark): Remove newlines from the title.

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2013-06-26 18:59:21 +02:00
parent 2b4f050643
commit a285ce999f
2 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

@ -5,6 +5,7 @@
(eww-mode-map): Add a menu bar.
(eww-add-bookmark): New command.
(eww-bookmark-mode): New mode and commands.
(eww-add-bookmark): Remove newlines from the title.
2013-06-26 Glenn Morris <rgm@gnu.org>

10
lisp/net/eww.el
View file

@ -950,10 +950,12 @@ The browser to used is specified by the `shr-external-browser' variable."
(when (equal eww-current-url
(plist-get bookmark :url))
(error "Already bookmarked")))
(push (list :url eww-current-url
:title eww-current-title
:time (current-time-string))
eww-bookmarks)
(let ((title (replace-regexp-in-string "[\n\t\r]" " " eww-current-title)))
(setq title (replace-regexp-in-string "\\` +\\| +\\'" "" title))
(push (list :url eww-current-url
:title title
:time (current-time-string))
eww-bookmarks))
(eww-write-bookmarks)
(message "Bookmarked %s (%s)" eww-current-url eww-current-title))