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

Added error handling

Browse source
This commit is contained in:
David Botton 2021-03-11 10:34:30 -05:00
parent 94fc1d69c5
commit 4c533e8cbc
2 changed files with 21 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
tutorial/25-tutorial.lisp
View file

@ -19,7 +19,7 @@
;;;; ---------------------------------------------------------
(defpackage #:clog-user
(:use #:cl #:clog #:clog-web)
(:use #:cl #:clog #:clog-web #:clog-gui)
(:export start-tutorial))
(in-package :clog-user)
@ -40,14 +40,18 @@
(set-on-submit form
(lambda (obj)
(declare (ignore obj))
(setf (inner-html results-section)
(format nil "~A<br>~A"
(inner-html results-section)
(lf-to-br (uiop/run-program:run-program
(value command)
:force-shell t :output :string))))
(setf (scroll-top results-section)
(scroll-height results-section))
(handler-case
(progn
(setf (inner-html results-section)
(format nil "~A<br>~A"
(inner-html results-section)
(lf-to-br (uiop/run-program:run-program
(value command)
:force-shell t :output :string))))
(setf (scroll-top results-section)
(scroll-height results-section)))
(error (c)
(alert-toast body "Error" c :time-out 2 :place-top t)))
(setf (value command) ""))))
(setf (overflow results-section) :scroll)
(set-border results-section :thin :solid :black)