Untitled

(define TRUE 1)
(define FALSE 0)
(define users '())
(define rooms '("standard", "standard2"))
(define (draw-client)
        (<HTML>
            (<HEAD>
             (<SCRIPT> ~(define user "")
             ~(define (load-page v) (alert "page loaded") (innerHTML-set! (dom-get-element-by-id "body") v))


             ~(define (welcome-user)

                           (let ((user (dom-get-element-by-id "username").value))
                           (<DIV> (<H1> "Welcome " user)
                           (<P>(<INPUT>

                                    :onclick (begin (innerHTML-set! (dom-get-element-by-id "body") (show-login)) )
                                    :type "button"
                                    :value "log out"
                                    )))
                           ))
             ~(define (print-rooms)
                                 (with-hop ($get-rooms) (lambda (x)
                                       (dom-append-child! (dom-get-element-by-id "body") x))))


             ~(define (login) (with-hop ($login (dom-get-element-by-id "username"))
                                           (lambda (x) (if
                                                        (eq? x $FALSE)
                                                        (begin (alert "login failed, choose another nickname")
                                                                  (dom-set-attribute!
                                                                   (dom-get-element-by-id "username")
                                                                   "value"
                                                                   ""))
                                                           (begin (innerHTML-set! (dom-get-element-by-id "body") (welcome-user))
                                                                  (print-rooms))


                                   ))) )

          ~(define (show-login)
                          (<DIV> (<P> "Username"
                                      (<INPUT> :id "username" :value "test"))
                                 (<P>
                                  (<INPUT> :type "button"
                                           :value "login"
                                           :onclick ~(login)))
                          )

                          )))

              (<BODY>
              (<DIV> :id "body" (show-login-s) ))

             ))


(define (show-login-s)
             (<DIV> (<P> "Username"
                  (<INPUT> :id "username" :value "test"))
             (<P>
              (<INPUT> :type "button"
                       :value "login"
                       :onclick ~(login)))))


(define (delete-from-list element list)
  (if (eq? '() list)
      '()
      (if (equal? element (car list))
          (cdr list)
          (cons (car list) (delete-from-list element (cdr list))))))

(define-service (logout user)

  (tprint "ok")
  (delete-from-list user users))


 (define (get-room-iter list)
  (if (eq? '() list)
      '()
      (cons (<TR> (<TD> (car list))) (get-room-iter (cdr list)))))

(define-service (get-rooms)
  (<DIV>
   (<P> "New room"
     (<INPUT> :id "newroom"))
  (<P>
     (<INPUT> :type "button"
     :value "add room"
     :onclick ~(alert "New room: " (dom-get-element-by-id "newroom").value)
     ))
  (<TABLE> (get-room-iter rooms))
  ;code for new rooms
  )
  )


(define-service (login user)
  (if (or (equal? "" user)(member user users))
      FALSE
      (begin (set! users (cons user users)) (tprint users) TRUE)))

(define-service (draw)
    (draw-client))

(draw)