eww: Don't ask for recipient when encoding bookmarks
parent
927a3425d7
commit
fff9001582
|
@ -216,15 +216,20 @@ word(s) will be searched for via `eww-search-prefix'."
|
|||
;; Ignore protocol when sorting.
|
||||
(replace-regexp-in-string "^[a-zA-Z]+://" "" (plist-get a :url))
|
||||
(replace-regexp-in-string "^[a-zA-Z]+://" "" (plist-get b :url))))))
|
||||
(with-temp-file (expand-file-name "eww-bookmarks.gpg" eww-bookmarks-directory)
|
||||
;; PATCH: Remove newline for tags.
|
||||
;; PATCH: Remove newline for tags.
|
||||
(with-current-buffer (find-file-noselect
|
||||
(expand-file-name "eww-bookmarks.gpg" eww-bookmarks-directory))
|
||||
(erase-buffer)
|
||||
(insert
|
||||
(replace-regexp-in-string
|
||||
(rx ":tags" ?\n (1+ space)) ":tags "
|
||||
(with-temp-buffer
|
||||
(insert ";; Auto-generated file; don't edit -*- mode: emacs-lisp; -*-\n")
|
||||
(pp eww-bookmarks (current-buffer))
|
||||
(buffer-string))))))
|
||||
(buffer-string))))
|
||||
(save-buffer))
|
||||
;; TODO: Kill buffer if it wasn't opened?
|
||||
)
|
||||
(advice-add 'eww-write-bookmarks :override 'ambrevar/eww-write-bookmarks)
|
||||
|
||||
(defvar ambrevar/eww-quickmark-prefix ""
|
||||
|
|
Loading…
Reference in New Issue