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

reload page after new comment added

Browse source
This commit is contained in:
David Botton 2022-05-09 12:13:28 -04:00
parent 1199f8d0f3
commit 9ceb719618
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-web-themes.lisp
View file

@ -78,6 +78,7 @@ Page properties:
(ipanel (create-span opanel :content (ipanel (create-span opanel :content
(format nil "~A: " (getf (profile website) :|username|)))) (format nil "~A: " (getf (profile website) :|username|))))
(npanel (create-span opanel :content ""))) (npanel (create-span opanel :content "")))
(declare (ignore ipanel))
(set-border opanel :medium :dotted :red) (set-border opanel :medium :dotted :red)
(place-after panel opanel) (place-after panel opanel)
(setf (editablep npanel) t) (setf (editablep npanel) t)
@ -97,7 +98,8 @@ Page properties:
(funcall save (list :|value| tcomment)) (funcall save (list :|value| tcomment))
(set-border opanel :thin :dotted :black) (set-border opanel :thin :dotted :black)
(setf (text obj) "comment") (setf (text obj) "comment")
(set-on-click obj #'start-add))))))) (set-on-click obj #'start-add)
(reload (location (connection-body obj)))))))))
(set-on-click (create-a panel :class button-class (set-on-click (create-a panel :class button-class
:content "comment") :content "comment")
#'start-add))) #'start-add)))
@ -143,6 +145,7 @@ Page properties:
(let* ((opanel (create-div body)) (let* ((opanel (create-div body))
(ipanel (create-span opanel :content (format nil "~A: " (getf content :|username|)))) (ipanel (create-span opanel :content (format nil "~A: " (getf content :|username|))))
(comment (create-span opanel :content (getf content :|value|)))) (comment (create-span opanel :content (getf content :|value|))))
(declare (ignore ipanel))
(set-border opanel :thin :dotted :black) (set-border opanel :thin :dotted :black)
(let ((panel (create-span opanel :content "  "))) (let ((panel (create-span opanel :content "  ")))
(when (get-property properties :can-edit nil) (when (get-property properties :can-edit nil)