mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Next: Make search-engine objects.

master
Pierre Neidhardt 2020-05-13 11:02:10 +02:00
parent 1b136f6021
commit 57e30f7982
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.config/next/init.lisp
View File

@ -131,9 +131,9 @@ Recognized formats:
(loop for object = (read stream nil :eof)
until (eq object :eof)
when (eq (car object) 'defengine)
collect (list ;; (nth 1 object) ; No need for name?
(getf (nthcdr 3 object) :keybinding)
(format-c->lisp (nth 2 object)))))
collect (make-instance 'search-engine
:shortcut (getf (nthcdr 3 object) :keybinding)
:search-url (format-c->lisp (nth 2 object)))))
(defmethod deserialize-eww-bookmarks (stream)
"This version of deserialize-bookmarks is compatibly with Ambrevar's EWW