diff --git a/.config/nyxt/init.lisp b/.config/nyxt/init.lisp index 1e794512..1af696dd 100644 --- a/.config/nyxt/init.lisp +++ b/.config/nyxt/init.lisp @@ -106,7 +106,10 @@ Recognized formats: when (eq (car object) 'defengine) collect (make-instance 'search-engine :shortcut (getf (nthcdr 3 object) :keybinding) - :search-url (format-c->lisp (nth 2 object))))) + :search-url (format-c->lisp (nth 2 object)) + :fallback-url (let* ((url (nth 2 object)) + (pos (position #\/ url :from-end t))) + (str:substring 0 (1+ pos) url)) ))) (defun personal-file (path) (str:concat (uiop:getenv "PERSONAL") "/" path))