clog-group for keeping groups of clog-objs

This commit is contained in:
David Botton 2021-02-02 19:27:37 -05:00
parent d2b0b4bf2f
commit 18b160fb2c
4 changed files with 61 additions and 18 deletions

View file

@ -101,3 +101,12 @@ function. If BOOT-FILE is nil path is removed."
(defun debug-mode (obj)
"Turn on browser console debugging for OBJ's connection."
(cc:debug-mode (connection-id obj)))
;;;;;;;;;;;;;;;;;;
;; open-browser ;;
;;;;;;;;;;;;;;;;;;
(defun open-browser (&key (url "http://127.0.0.1:8080"))
"Open a web browser to URL."
(trivial-open-browser:open-browser url))