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

add url rewrites

Browse source
This commit is contained in:
David Botton 2022-09-21 22:10:36 -04:00
parent ecd1f99bd7
commit fa23c4d881
1 changed files with 18 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

22
tutorial/27-tutorial.lisp
View file

@ -29,10 +29,24 @@
"windmills.jpg"
"yellow-clogs.jpg"
"clogicon.png"))
(set-on-change lbox (lambda (obj)
(declare (ignore obj))
(setf (url-src viewer) (format nil "/img/~A"
(value lbox)))))
(flet ((img-changed (obj)
(declare (ignore obj))
(let* ((new-img (value lbox))
(new-src (format nil "/img/~A" new-img))
(new-url (format nil "~A//~A/?img=~A"
(protocol (location body))
(host (location body))
(quri:url-encode new-img))))
;; rewrite the url with selected img
(url-rewrite (window body) new-url)
;; select img
(setf (url-src viewer) new-src))))
(set-on-change lbox #'img-changed)
;; On start up check if an image passed in url
(let ((url-img (form-data-item (form-get-data body) "img")))
(when url-img
(setf (value lbox) url-img)
(img-changed lbox))))
;; Setup Bottom
(center-children (bottom-panel console) :horizontal nil)))