new-game function

new-game.lisp

(define-url-fn (new-game)
  (standard-page (:title "Add a new game")
    (:script :type "text/javascript"
      (str (ps
        (defun validate ()
          (when (= (@ ((@ document get-element-by-id) "name") value) "")
        (alert "Please enter a name.")
        (return false))))))
    (:h1 "Add a new game to the chart")
    (:form :action "/game-added.htm" :method "post"
       :onsubmit (ps-inline (validate))
       (:p "What is the name of the game?" (:br)
           (:input :type "text"
               :id "name"
               :name "name"
               :class "txt"))
       (:p (:input :type "submit"
               :value "Add"
               :class "btn")))
    (:p (:a :href "retro-games.htm" "Back to list"))))