yhara-tickets 0.1.0

data/public/scm/main.scm

@@ -0,0 +1,65 @@
+;;;
+;;; 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")

data/public/scm/ticket.scm

@@ -0,0 +1,98 @@
+;;
+;; ticket.scm
+;;
+
+(define (ticket-create)
+  (let1 result (read-from-string (http-request "tickets/create"))
+    (if (eq? (car result) 'id)
+      (ticket-new! (cdr result) "" (/ *width* 2) (/ *height* 2))
+      (show-error "error: failed to create new ticket"))))
+
+(define (ticket-move id x y)
+  (let1 result (http-post "tickets/move/"
+                          `(("id" . ,id) ("x" . ,x) ("y" . ,y)))
+    (when (not (string=? result "#t"))
+      (show-error "error: failed to save ticket position"))))
+
+(define (ticket-moved ticket-div)
+  (call-with-values 
+    (lambda () (get-position ticket-div))
+    (lambda (x y) 
+      (ticket-move (js-ref ticket-div "ticket-id") x y))))
+
+; the ticket-div currently shown
+(define *current-ticket* #f)
+
+; show infomation of a ticket
+(define (show-ticket ticket-div)
+  (set! *current-ticket* ticket-div)
+  (let1 title (get-content ticket-div)
+    (set-content! ($ "hand_title") 
+                  (if (string=? title "") "(no title)" title)))
+  (set-content! ($ "hand_desc")
+                (string-append "(" 
+                               (get-style ticket-div "left")
+                               ","
+                               (get-style ticket-div "top")
+                               ")")))
+
+(define (on-ticket-click ticket-div)
+  (element-hide! ($ "hand_title_submit"))
+  (show-ticket ticket-div))
+
+(define (ticket-new! id name x y)
+  (let1 ticket-div (element-new `("div.ticket" ,name))
+    (js-set! ticket-div "ticket-id" id)
+    (add-handler! ticket-div "click"
+                  (lambda (ev) (on-ticket-click (js-ref ev "target"))))
+    (element-insert! ($ "field") ticket-div)
+    (js-new "Draggable" ticket-div
+            (js-obj "onEnd" 
+                    (js-closure 
+                      (lambda (drg) (ticket-moved (js-ref drg "element"))))))
+    (set-position! ticket-div (+ (/ *width* 2) x) (+ (/ *height* 2) y))
+    ticket-div))
+
+; rename ticket and submit to server
+(define (ticket-rename new-title)
+  (element-update! ($ "hand_title") new-title)
+  (element-update! *current-ticket* new-title)
+  (let* ((id (js-ref *current-ticket* "ticket-id"))
+         (result (http-post "tickets/rename"
+                            `(("id" . ,id) ("title" . ,new-title)))))
+    (when (not (string=? result "#t"))
+      (show-error "error: failed to save new ticket title"))))
+
+; show rename form and call ticket-rename when submitted
+(define (on-ticket-rename)
+  (define (rename-form old)
+    (string-append "<input type='text' value='" old "' id='rename_text'>"))
+  (let1 ok-button ($ "hand_title_submit")
+    (unless (element-visible? ok-button)
+      (element-show! ok-button)
+      (element-update! ($ "hand_title") 
+                       (rename-form (get-content ($ "hand_title"))))
+      (wait-for ok-button "click")
+      (ticket-rename (get-content ($ "rename_text")))
+      (element-hide! ok-button))))
+
+; send server to delete info and clear the hand
+(define (ticket-delete id)
+  (let1 result (http-post "tickets/delete"
+                          `(("id" . ,id)))
+    (if (string=? result "#t")
+      (begin
+        (element-remove! *current-ticket*)
+        (set! *current-ticket* #f)
+        (element-clear! ($ "hand_title"))
+        (element-clear! ($ "hand_desc")))
+      (show-error "error: failed to save ticket position"))))
+
+; ask really delete the ticket
+(define (on-ticket-delete)
+  (when *current-ticket*
+    (let1 message (string-append "really delete '"
+                                 (get-content *current-ticket*)
+                                 "' ?")
+      (when (confirm message)
+        (ticket-delete (js-ref *current-ticket* "ticket-id"))))))

data/tickets.gemspec

@@ -0,0 +1,41 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{tickets}
+  s.version = "0.1.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Yutaka HARA"]
+  s.date = %q{2009-04-22}
+  s.default_executable = %q{tickets-server}
+  s.description = %q{}
+  s.email = %q{yutaka.hara+github at gmail.com}
+  s.executables = ["tickets-server"]
+  s.extra_rdoc_files = ["README.rdoc"]
+  s.files = ["README.rdoc", "TODO", "bin/tickets-server", "db/migrate/001_create_tickets.rb", "db/migrate/002_add_deleted_to_tickets.rb", "db/migrate/003_add_timeouted_to_tickets.rb", "dot.tickets.conf.sample", "model/ticket.rb", "public/biwascheme/MIT-LICENSE.txt", "public/biwascheme/README", "public/biwascheme/lib/biwascheme.js", "public/biwascheme/lib/extra_lib.js", "public/biwascheme/lib/io.js", "public/biwascheme/lib/prototype.js", "public/biwascheme/lib/r6rs_lib.js", "public/biwascheme/lib/stackbase.js", "public/biwascheme/lib/webscheme_lib.js", "public/js/builder.js", "public/js/controls.js", "public/js/dragdrop.js", "public/js/effects.js", "public/js/scriptaculous.js", "public/js/slider.js", "public/js/sound.js", "public/js/unittest.js", "public/scm/main.scm", "public/scm/ticket.scm", "tickets.gemspec", "view/index.xhtml"]
+  s.homepage = %q{http://github.com/yhara/tickets/}
+  s.rdoc_options = ["--title", "tickets documentation", "--charset", "utf-8", "--opname", "index.html", "--line-numbers", "--main", "README.rdoc", "--inline-source", "--exclude", "^(examples|extras)/"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{}
+  s.rubygems_version = %q{1.3.1}
+  s.summary = %q{Two-dimentional TODO manager}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 2
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<ramaze>, [">= 0"])
+      s.add_runtime_dependency(%q<sequel>, [">= 0"])
+      s.add_runtime_dependency(%q<sqlite3-ruby>, [">= 0"])
+    else
+      s.add_dependency(%q<ramaze>, [">= 0"])
+      s.add_dependency(%q<sequel>, [">= 0"])
+      s.add_dependency(%q<sqlite3-ruby>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<ramaze>, [">= 0"])
+    s.add_dependency(%q<sequel>, [">= 0"])
+    s.add_dependency(%q<sqlite3-ruby>, [">= 0"])
+  end
+end

data/view/index.xhtml

@@ -0,0 +1,61 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja">
+<head>
+  <meta http-equiv="Content-Type" content="text/html;charset=UTF-8" />
+  <title>Hello World</title>
+  <style>
+  div#field{
+     border:1px solid black; float:left; margin:0.5em; padding:0.5em;
+  }
+  div#hand{
+     width: 300px; height: 300px;
+     border:1px solid black; margin:0.5em; padding:0.5em;
+     float: left;
+  }
+  div#hand_header{
+     border-bottom: 1px solid black;
+  }
+  div#hand_control{
+    text-align: right;
+  }
+  div.ticket{
+    width: 100px;
+    border: 1px solid black;
+    padding: 0.3em;
+  }
+  </style>
+</head>
+<body>
+
+<div id="field">
+  <div id="top">かならず</div>
+  <div id="bottom">できれば</div>
+  <div id="right">いますぐ</div>
+  <div id="left">そのうち</div>
+  <div id="origin"><a href='#'>★</a></div>
+</div>
+
+<div id="hand">
+  <div id="hand_header">
+    <span id="hand_title"></span>
+    <input type="button" id="hand_title_submit" value="OK" style="display:none;">
+  </div>
+  <div id="hand_control">
+    <a href="#" id="hand_edit">edit</a>
+    <a href="#" id="hand_delete">delete</a>
+  </div>
+  <div id="hand_desc"></div>
+</div>
+
+<div id="bs-console"></div>
+
+<div style="clear:both">
+  <a href="track">過去のチケット</a>
+</div>
+
+<script src="biwascheme/lib/biwascheme.js">
+(load "scm/main.scm")
+</script>
+
+</body>
+</html>

metadata

@@ -0,0 +1,121 @@
+--- !ruby/object:Gem::Specification 
+name: yhara-tickets
+version: !ruby/object:Gem::Version 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Yutaka HARA
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-04-22 00:00:00 -07:00
+default_executable: tickets-server
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: ramaze
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: sequel
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: sqlite3-ruby
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+    version: 
+description: ""
+email: yutaka.hara+github at gmail.com
+executables: 
+- tickets-server
+extensions: []
+
+extra_rdoc_files: 
+- README.rdoc
+files: 
+- README.rdoc
+- TODO
+- bin/tickets-server
+- db/migrate/001_create_tickets.rb
+- db/migrate/002_add_deleted_to_tickets.rb
+- db/migrate/003_add_timeouted_to_tickets.rb
+- dot.tickets.conf.sample
+- model/ticket.rb
+- public/biwascheme/MIT-LICENSE.txt
+- public/biwascheme/README
+- public/biwascheme/lib/biwascheme.js
+- public/biwascheme/lib/extra_lib.js
+- public/biwascheme/lib/io.js
+- public/biwascheme/lib/prototype.js
+- public/biwascheme/lib/r6rs_lib.js
+- public/biwascheme/lib/stackbase.js
+- public/biwascheme/lib/webscheme_lib.js
+- public/js/builder.js
+- public/js/controls.js
+- public/js/dragdrop.js
+- public/js/effects.js
+- public/js/scriptaculous.js
+- public/js/slider.js
+- public/js/sound.js
+- public/js/unittest.js
+- public/scm/main.scm
+- public/scm/ticket.scm
+- tickets.gemspec
+- view/index.xhtml
+has_rdoc: false
+homepage: http://github.com/yhara/tickets/
+post_install_message: 
+rdoc_options: 
+- --title
+- tickets documentation
+- --charset
+- utf-8
+- --opname
+- index.html
+- --line-numbers
+- --main
+- README.rdoc
+- --inline-source
+- --exclude
+- ^(examples|extras)/
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: ""
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: Two-dimentional TODO manager
+test_files: []
+