25-tutorial.lisp

;;;; In this tutorial we are going to use clog-web for a local app.
;;;;
;;;; --------------------------         -------
;;;; |ls -l                   |         | Run |
;;;; --------------------------         -------
;;;; ---------------------------------------------------------
;;;; | ls -l                                                 |
;;;; | total 434                                             |
;;;; | -rw------- 1 me user 246562 Dec  8 18:20 sample1.jpeg |
;;;; | -rw------- 1 me user 160290 Dec  8 18:21 sample2.jpeg |
;;;; |                                                       |
;;;; |                                                       |
;;;; |                                                       |
;;;; |                                                       |
;;;; |                                                       |
;;;; |                                                       |
;;;; ---------------------------------------------------------

(defpackage #:clog-tut-25
  (:use #:cl #:clog #:clog-web)
  (:export start-tutorial))

(in-package :clog-tut-25)

(defun on-new-window (body)
  (clog-web-initialize body)
  (setf (title (html-document body)) "Tutorial 25")
  ;; Setup two sections = command and result
  (let ((command-section (create-web-content body))
        (results-section (create-web-content body :class "w3-monospace")))
    ;; Setup command section
    (let* ((form    (create-form command-section))
           (command (create-form-element form :text :class "w3-input w3-border"
                                         :label (create-label form
                                                   :content "Enter Command: ")))
           (button  (create-form-element form :submit)))
      (declare (ignore button))
      (set-on-submit form
          (lambda (obj)
            (declare (ignore obj))
            (handler-case
                (progn
                  (setf (inner-html results-section)
                        (format nil "~A<br><span style='color:blue'>~A</span><br>~A"
                                (inner-html results-section)
                                (value command)
                                (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)
                (clog-web-alert command-section "Error" c :time-out 5)))
            (setf (value command) ""))))
    (setf (overflow results-section) :scroll)
    (set-border results-section :thin :solid :black)
    (flet ((set-height ()
             (setf (height results-section) (- (inner-height (window body))
                                               (height command-section)
                                               20))))
      (set-height)
      (set-on-resize (window body) (lambda (obj)
                                     (declare (ignore obj))
                                     (set-height))))))

(defun start-tutorial ()
  "Start tutorial."
  (initialize 'on-new-window)
  (open-browser))