nyxt: Set fallback-url in Emacs-imported engines.
parent
724e96111d
commit
c4bbb417c5
|
@ -106,7 +106,10 @@ Recognized formats:
|
||||||
when (eq (car object) 'defengine)
|
when (eq (car object) 'defengine)
|
||||||
collect (make-instance 'search-engine
|
collect (make-instance 'search-engine
|
||||||
:shortcut (getf (nthcdr 3 object) :keybinding)
|
: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)
|
(defun personal-file (path)
|
||||||
(str:concat (uiop:getenv "PERSONAL") "/" path))
|
(str:concat (uiop:getenv "PERSONAL") "/" path))
|
||||||
|
|
Loading…
Reference in New Issue