From 06e7319ce3b281bd014d67801cf66bc0f8cc4381 Mon Sep 17 00:00:00 2001 From: Eric Brown Date: Tue, 5 Aug 2014 20:15:52 +0200 Subject: [PATCH] lisp/net/eww.el (eww-bookmarks-directory): New variable. * lisp/net/eww.el (eww-bookmarks-directory): New variable. (eww-write-bookmarks): Use it. (eww-read-bookmarks): Ditto. --- lisp/ChangeLog | 6 ++++++ lisp/net/eww.el | 10 ++++++++-- 2 files changed, 14 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5ec506b63b0..adca3166187 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2014-08-05 Eric Brown (tiny change) + + * net/eww.el (eww-bookmarks-directory): New variable. + (eww-write-bookmarks): Use it. + (eww-read-bookmarks): Ditto. + 2014-08-05 Lars Magne Ingebrigtsen * net/shr.el (shr-copy-url): Also copy the image URL. diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 02fc575c261..f99148162e4 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -57,6 +57,12 @@ :group 'eww :type 'string) +(defcustom eww-bookmarks-directory user-emacs-directory + "Directory where bookmark files will be stored." + :version "24.5" + :group 'eww + :type 'string) + (defcustom eww-use-external-browser-for-content-type "\\`\\(video/\\|audio/\\|application/ogg\\)" "Always use external browser for specified content-type." @@ -1118,12 +1124,12 @@ Differences in #targets are ignored." (message "Bookmarked %s (%s)" eww-current-url eww-current-title)))) (defun eww-write-bookmarks () - (with-temp-file (expand-file-name "eww-bookmarks" user-emacs-directory) + (with-temp-file (expand-file-name "eww-bookmarks" eww-bookmarks-directory) (insert ";; Auto-generated file; don't edit\n") (pp eww-bookmarks (current-buffer)))) (defun eww-read-bookmarks () - (let ((file (expand-file-name "eww-bookmarks" user-emacs-directory))) + (let ((file (expand-file-name "eww-bookmarks" eww-bookmarks-directory))) (setq eww-bookmarks (unless (zerop (or (nth 7 (file-attributes file)) 0)) (with-temp-buffer -- 2.39.5