mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

url-rewrite

Browse source
This commit is contained in:
David Botton 2022-09-20 14:34:36 -04:00
parent ba8dbbe4e7
commit 84d220a501
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-window.lisp
View file

@ -46,7 +46,7 @@ window."))
(defgeneric url-rewrite (clog-window rewrite-url) (defgeneric url-rewrite (clog-window rewrite-url)
(:documentation "Rewrite browser history and url with REWRITE-URL (:documentation "Rewrite browser history and url with REWRITE-URL
no redirection of browser takes place.")) no redirection of browser takes place. REWRITE-URL must be same domain."))
(defmethod url-rewrite ((obj clog-window) rewrite-url) (defmethod url-rewrite ((obj clog-window) rewrite-url)
(execute obj (format nil "history.replaceState({},'','~A')" rewrite-url))) (execute obj (format nil "history.replaceState({},'','~A')" rewrite-url)))