Skip to content

Commit

Permalink
Fix references to exported symbols.
Browse files Browse the repository at this point in the history
  • Loading branch information
aadcg committed Aug 6, 2024
1 parent 04fe4de commit 2a90787
Show file tree
Hide file tree
Showing 3 changed files with 5 additions and 5 deletions.
2 changes: 1 addition & 1 deletion source/dom.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -325,7 +325,7 @@ Return two values:

(defmethod url :around ((element plump:element))
(alex:when-let* ((result (call-next-method))
(url (nyxt::ensure-url result)))
(url (ensure-url result)))
(if (valid-url-p url)
url
(quri:merge-uris url (url (current-buffer))))))
Expand Down
2 changes: 1 addition & 1 deletion source/mode/repl.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -26,7 +26,7 @@ Features:
:type string
:documentation "The name of the cell type.")
(id
(nyxt::new-id)
(new-id)
:type alex:non-negative-integer
:documentation "Unique evaluation identifier.")
(mode-instance
Expand Down
6 changes: 3 additions & 3 deletions source/urls.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -349,13 +349,13 @@ ARGS is an arbitrary keyword arguments list that is translated to a URL query."
(:callback (or function symbol))
(:title (maybe string)))
(values quri:uri &optional))
(defun lisp-url (&key (id (princ-to-string (nyxt:new-id)))
(defun lisp-url (&key (id (princ-to-string (new-id)))
(buffer (alex:required-argument 'buffer))
(callback (alex:required-argument 'callback))
title)
(sera:synchronized ((nyxt::lisp-url-callbacks buffer))
(sera:synchronized ((lisp-url-callbacks buffer))
(log:debug "Registering callback ~a in buffer ~a" id buffer)
(setf (gethash id (nyxt::lisp-url-callbacks buffer)) callback))
(setf (gethash id (lisp-url-callbacks buffer)) callback))
(quri:make-uri :scheme "lisp"
:path id
:query `(("title" . ,title) ("buffer" . ,(id buffer)))))
Expand Down

0 comments on commit 2a90787

Please sign in to comment.