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

More repl dev support

Browse source
This commit is contained in:
David Botton 2021-11-07 12:08:09 -05:00
parent 1466d8cc86
commit fdd94960e1
4 changed files with 39 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

19
source/clog-helpers.lisp
View file

@ -92,7 +92,24 @@ clog-user:*body* to last window openned to /repl."
:path "/repl")
(open-browser :url "http://127.0.0.1:8080/repl")
(format t "Use clog-user:*body* to access the clog-repl window."))
;;;;;;;;;;;;;;;;;;;;;;;
;; save-body-to-file ;;
;;;;;;;;;;;;;;;;;;;;;;;
(defun save-body-to-file (file-name &key (body clog-user::*body*)
(if-exists :error)
if-does-not-exist
external-format)
"Save the current html of BODY in the current state to FILE-NAME"
(when (alexandria:write-string-into-file
(outer-html (document-element (html-document body)))
file-name
:if-exists if-exists
:if-does-not-exist if-does-not-exist
:external-format external-format)
t))
;;;;;;;;;;;;;;;;
;; load-world ;;
;;;;;;;;;;;;;;;;