yhara-ticketmap 0.3.1

data/.gitignore

@@ -0,0 +1,2 @@
+*.swp
+*.swo

data/.gitmodules

@@ -0,0 +1,3 @@
+[submodule "public/biwascheme"]
+	path = public/biwascheme
+	url = git://github.com/yhara/biwascheme.git

data/MANIFEST

@@ -0,0 +1,29 @@
+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

data/README.rdoc

@@ -0,0 +1,20 @@
+= tickets
+
+Two-dimentional TODO manager.
+
+== Install
+
+  gem install ramaze sequel sqlite3-ruby
+  gem install yhara-tickets
+
+== Execute
+
+  tickets-server
+
+then open http://localhost:7007/ in your browser.
+
+in default, ~/.tickets.db is created to save tickets data.
+
+== Configuration
+
+write ~/.tickets.conf (see dot.tickets.conf.sample)

data/Rakefile

@@ -0,0 +1,52 @@
+PROJECT_NAME = "ticketmap"
+
+begin
+  require 'jeweler'
+rescue LoadError
+  puts "Jeweler not available. Install it with: sudo gem install technicalpickles-jeweler -s http://gems.github.com"
+end
+
+Jeweler::Tasks.new do |gemspec|
+  gemspec.name = "#{PROJECT_NAME}"
+  gemspec.summary = "Two-dimentional ToDo manager"
+  gemspec.email = "yutaka.hara/at/gmail.com"
+  gemspec.homepage = "http://github.com/yhara/#{PROJECT_NAME}"
+  gemspec.description = gemspec.summary
+  gemspec.authors = ["Yutaka HARA"]
+  gemspec.add_dependency('ramaze', '= 2009.06.12')
+  gemspec.add_dependency('dm-core')
+  gemspec.add_dependency('do_sqlite3')
+  gemspec.files.concat Dir["public/biwascheme/lib/*"]
+end
+
+desc "install current source as gem"
+task :dogfood => [:gemspec, :build] do
+  sh "sudo gem install pkg/#{PROJECT_NAME}-#{File.read("VERSION").chomp}.gem"
+end
+
+desc "uninstall the installed gem"
+task :undogfood do
+  sh "sudo gem uninstall #{PROJECT_NAME}"
+end
+
+desc "uninstall, then install current source as gem"
+task :redogfood => [:undogfood, :dogfood]
+
+desc "uninstall temporary gem and install from github"
+task :nodogfood do
+  sh "sudo gem uninstall #{PROJECT_NAME}"
+  sh "sudo gem install yhara-#{PROJECT_NAME}"
+end
+
+desc "check for gem to be built"
+task :stalk do
+  sh "gemstalk yhara #{PROJECT_NAME}"
+end
+
+desc "test all"
+task "spec" do
+  sh "bacon spec/models.rb"
+  sh "bacon spec/main.rb"
+  sh "bacon spec/config.rb"
+  sh "bacon spec/tickets.rb"
+end

data/TODO

@@ -0,0 +1,82 @@
+= How to release
+
+* (edit TODO)
+* edit VERSION in bin/tickets-server
+* rtask -> update version
+  * build gem test
+  * Then, push it!
+
+= before 1.x.x
+
+- write server tests
+- write client tests
+  - when origin is clicked
+    - new ticket appears on the filed
+    - request: /tickets/create
+  - when a ticket is clicked
+    - ticket info is shown in the hand
+  - when a ticket is moved
+    - request: /tickets/move? id, x, y
+  - when ticket title is cliced
+    - show ticket form
+    - when ok is clicked
+      - show new title in the hand
+      - show new title in the field
+      - request: /tickets/rename? id, new
+  - when delete button is clicked
+    - ask really delete the ticket
+    - when Y is clicked
+      - remove the ticket from the field
+      - clear the hand
+      - request: /tickets/delete? id
+    - when N is clicked
+      - do not remove the ticket from the field
+      - keep the hand
+      - no request
+
+- refactor scheme code (use hashtable as object)
+
+= before 0.4.0
+
+- implement tags 
+  - different color
+  - show certain tag only
+  - tag 'Done' means fixed tags
+
+= before 0.3.0
+
+- change orm to datamapper(or ActiveRecord?)
+- memorize date when a ticket is created
+- memorize date when a ticket is deleted
+
+= before 0.2.0
+
+- edit ticket body
+
+= before 0.1.1
+
+- stick to board edge
+
+= before 0.1.0.2
+
+- fix track?
++ fix ticket position when generated
++ fix move position
+
+= 0.1.0.1
+
++ add Tickets::VERSION
+
++ Make it work with gem
+
++ fix ticket positions (center=0,0)
++ show deleted tickets (including timeouted ones)
++ automatically move tickets
+
++ Make it installable :-)
++ write gemspec (with rtask)
+  + dependency (ramaze)
++ automatic migration in start.rb
++ save database on ~/.tickets.db
++ move executable to bin/
++ command line option (port, db)

data/VERSION

@@ -0,0 +1 @@
+0.3.1

data/controller/config.rb

@@ -0,0 +1,9 @@
+class ConfigController < Controller
+  map '/config'
+
+  def board_size
+    w = TicketMap.options[:board_width]
+    h = TicketMap.options[:board_height]
+    "(xy . (#{w} . #{h}))"
+  end
+end

data/controller/init.rb

@@ -0,0 +1,7 @@
+class Controller < Ramaze::Controller
+  engine :Etanni
+end
+
+require __DIR__("./main.rb")
+require __DIR__("./config.rb")
+require __DIR__("./tickets.rb")

data/controller/main.rb

@@ -0,0 +1,11 @@
+class MainController < Controller
+  map '/'
+
+  def index
+    Ticket.shake! if Ticket.needs_shaking?
+  end
+
+  def track
+    @tickets = Ticket.all(:deleted => true, :order => [:id.desc])
+  end
+end

data/controller/tickets.rb

@@ -0,0 +1,49 @@
+class TicketsController < Controller
+  map '/tickets'
+
+  def create
+    ticket = Ticket.new
+    ticket.save
+
+    "(#t . (id . #{ticket.id}))"
+  end
+
+  def list
+    tickets = Ticket.all(:deleted => false)
+
+    '(#t . (' +
+    tickets.map{|ticket|
+      "(#{ticket.id} #{ticket.title.inspect} #{ticket.emergency} #{ticket.importance})"
+    }.join(' ') +
+    '))'
+  end
+
+  def move
+    raise "must be via POST" unless request.post?
+    ticket = Ticket.get(request["id"])
+    raise "ticket not found" unless ticket
+
+    ticket.update_attributes(:emergency => request["x"],
+                             :importance => request["y"])
+    "(#t)"
+  end
+
+  def rename
+    raise "must be via POST" unless request.post?
+    ticket = Ticket.get(request["id"])
+    raise "ticket not found" unless ticket
+
+    ticket.update_attributes(:title => request["title"])
+    "(#t)"
+  end
+
+  def delete
+    raise "must be via POST" unless request.post?
+    ticket = Ticket.get(request["id"])
+    raise "ticket not found" unless ticket
+
+    ticket.update_attributes(:deleted => true)
+    "(#t)"
+  end
+end
+

data/db/migrate/001_create_tickets.rb

@@ -0,0 +1,14 @@
+class CreateTickets < Sequel::Migration
+  def up
+    create_table :tickets do
+      primary_key :id
+      integer   :importance, :null => false, :default => 0
+      integer   :emergency,  :null => false, :default => 0
+      string    :title,      :null => false, :default => ""
+    end
+  end
+
+  def down
+    drop_table :tickets
+  end
+end

data/db/migrate/002_add_deleted_to_tickets.rb

@@ -0,0 +1,13 @@
+class AddDeletedToTickets < Sequel::Migration
+  def up
+    alter_table :tickets do
+      add_column :deleted, :boolean, :null => false, :default => false
+    end
+  end
+
+  def down
+    alter_table :tickets do
+      drop_column :deleted
+    end
+  end
+end

data/db/migrate/003_add_timeouted_to_tickets.rb

@@ -0,0 +1,13 @@
+class AddTimeoutedToTickets < Sequel::Migration
+  def up
+    alter_table :tickets do
+      add_column :timeouted, :boolean, :null => false, :default => false
+    end
+  end
+
+  def down
+    alter_table :tickets do
+      drop_column :timeouted
+    end
+  end
+end

data/main.rb

@@ -0,0 +1,40 @@
+#!/usr/bin/env ruby
+require 'optparse'
+require 'rubygems'
+require 'ruby-station'; RubyStation.parse_argv
+require 'ramaze'
+
+module TicketMap
+  include Innate::Optioned
+  VERSION = File.read(__DIR__("VERSION"))
+
+  options.dsl do
+    o "Path of config file", 
+      :config, File.expand_path("~/.ticketmap.rb") 
+#    o "Path of database file",
+#      :db, File.expand_path("~/.ticketmap.db")
+#    o "Port number", 
+#      :port, 7007
+    o "Interval to automatically move tickets (hours)",
+      :shake_interval, 24
+    o "Distance to automatically move tickets (pixels)",
+      :shake_distance, 8
+    o "Width of the board (pixels)",
+      :board_width, 600
+    o "Height of the board (pixels)",
+      :board_height, 600
+  end
+end
+
+$LOAD_PATH.unshift __DIR__("./")
+require 'controller/init.rb'
+require 'model/init.rb'
+
+conf = TicketMap.options[:config]
+if File.exist?(conf)
+  Ramaze::Log.info("Loading config file: #{conf}")
+  load conf
+end
+
+Ramaze.start :port => RubyStation.port,
+             :root => __DIR__('./')

data/model/init.rb

@@ -0,0 +1,32 @@
+require 'dm-core'
+require 'dm-validations'
+require 'dm-aggregates' # needed for #count in spec
+db_path = RubyStation.data_path('ticketmap.db')
+DataMapper.setup(:default, "sqlite3://#{db_path}")
+
+require __DIR__('./ticket.rb')
+
+DataMapper.auto_upgrade!
+
+# 
+# ramaze paginate for datamapper
+#
+require 'ramaze/helper/paginate'
+class DataMapper::Collection
+  def paginate(page, limit)
+    DMCollectionPager.new(self, page, limit)
+  end
+
+  class DMCollectionPager < Ramaze::Helper::Paginate::Paginator::ArrayPager
+    def each(&block)
+      from = ((@page - 1) * @limit)
+      from = 0 if from < 0
+      to = from + @limit
+
+      a = @array[from...to] || []
+      a.each(&block)
+    end
+
+  end
+end
+

data/model/ticket.rb

@@ -0,0 +1,49 @@
+class Ticket
+  include DataMapper::Resource
+
+  # properties
+
+  property :id, Serial
+  property :importance, Integer 
+  property :emergency, Integer
+  property :title, String
+  property :deleted, Boolean
+  property :timeouted, Boolean
+
+  # validations
+
+  before :save do
+    self.importance ||= 0
+    self.emergency ||= 0
+    self.title ||= ""
+    self.deleted = false if self.deleted == nil
+    self.timeouted = false if self.timeouted == nil
+  end
+
+  # class methods
+  
+  @@last_shook = Time.now
+
+  def self.needs_shaking?
+    (Time.now - @@last_shook) > TicketMap.options[:shake_interval]*60*60
+  end
+
+  def self.shake!
+    Ticket.all.each do |ticket|
+      pos = ticket.emergency
+      dir = (ticket.importance < 0 ? 1 : -1)
+      newpos = pos + TicketMap.options[:shake_distance] * dir
+      if newpos > (TicketMap.options[:board_width] / 2)
+        newpos = (TicketMap.options[:board_width] / 2)
+      end
+
+      ticket.emergency = newpos if newpos != pos
+      if newpos < -(TicketMap.options[:board_width] / 2)
+        ticket.deleted = true
+        ticket.timeouted = true
+      end
+      ticket.save
+    end
+    @@last_shook = Time.now
+  end
+end