Contents

;;;
;;; main.scm
;;;

;; load
(for-each (lambda (pair)
            (js-load (string-append "js/" (car pair) ".js")
                     (cdr pair)))
          '(("scriptaculous" . "Scriptaculous")
            ("builder" . "Builder")
            ("effects" . "Effect")
            ("dragdrop" . "Draggable")
            ("controls" . "Autocompleter")
            ("slider" . "Control")
            ("sound" . "Sound")))

(load "scm/ticket.scm")

;; consts

(define (px n)
  (string-append (number->string n) "px"))

(define (set-position! elem x y)
  (set-style! elem "position" "absolute") 
  (set-style! elem "left" (px x))
  (set-style! elem "top" (px y)))

(define (get-position elem)
  (define (remove-px str)
    (string->number (car (regexp-exec "(\\d+)" str))))
  (values (remove-px (get-style elem "left"))
          (remove-px (get-style elem "top"))))

(define *width* #f)
(define *height* #f)

; load board size
(let1 result (read-from-string (http-request "config/board_size"))
  (if (eq? (car result) 'xy)
    (begin
      (set! *width*  (cadr result))
      (set! *height* (cddr result)))
    (show-error "error: failed to load board size")))

(set-style! ($ "field") "width" (px *width*))
(set-style! ($ "field") "height" (px *height*))
(set-position! ($ "top")    (/ *width* 2) 0)
(set-position! ($ "bottom") (/ *width* 2) *height*)
(set-position! ($ "right")  *width* (/ *height* 2))
(set-position! ($ "left")   0       (/ *height* 2))
(set-position! ($ "origin") (/ *width* 2) (/ *height* 2))

(add-handler! ($ "origin") "click" ticket-create)

(add-handler! ($ "hand_title") "click" on-ticket-rename)
(add-handler! ($ "hand_delete") "click" on-ticket-delete)

(define show-error print)


(for-each (lambda (vals) (apply ticket-new! vals))
          (read-from-string (http-request "tickets/list")))

(display "ok")

Version data entries

4 entries across 4 versions & 1 rubygems

Version	Path
yhara-tickets-0.1.0.1	public/scm/main.scm
yhara-tickets-0.1.0.2	public/scm/main.scm
yhara-tickets-0.1.0.3	public/scm/main.scm
yhara-tickets-0.1.0	public/scm/main.scm