Next: Make search-engine objects.
parent
1b136f6021
commit
57e30f7982
|
@ -131,9 +131,9 @@ Recognized formats:
|
||||||
(loop for object = (read stream nil :eof)
|
(loop for object = (read stream nil :eof)
|
||||||
until (eq object :eof)
|
until (eq object :eof)
|
||||||
when (eq (car object) 'defengine)
|
when (eq (car object) 'defengine)
|
||||||
collect (list ;; (nth 1 object) ; No need for name?
|
collect (make-instance 'search-engine
|
||||||
(getf (nthcdr 3 object) :keybinding)
|
:shortcut (getf (nthcdr 3 object) :keybinding)
|
||||||
(format-c->lisp (nth 2 object)))))
|
:search-url (format-c->lisp (nth 2 object)))))
|
||||||
|
|
||||||
(defmethod deserialize-eww-bookmarks (stream)
|
(defmethod deserialize-eww-bookmarks (stream)
|
||||||
"This version of deserialize-bookmarks is compatibly with Ambrevar's EWW
|
"This version of deserialize-bookmarks is compatibly with Ambrevar's EWW
|
||||||
|
|
Loading…
Reference in New Issue