# Copyright (C) 2003-2006 Kouichirou Eto, All rights reserved.
# This is free software with ABSOLUTELY NO WARRANTY.
# You can redistribute it and/or modify it under the terms of the GNU GPL 2.

$LOAD_PATH.unshift '..' unless $LOAD_PATH.include? '..'
require 'qwik/site-plan'

module Qwik
  class Action
    D_PluginPlan = {
      :dt => 'Show plan plugin',
      :dd => 'You can show the plan of this group.',
      :dc => "* Example
 {{plan}}
{{plan}}
You can see plans of this group.
If there are no plan for this group, you see nothing.
* How to create new plan.
Follow '''Create a new plan''' link and create a new plan page.
You'll see plans on sidemenu.
'''Notice''' We changed the format of the date of pages.
You can not use tag notation to specify date now.
"
    }

    D_PluginPlan_ja = {
      :dt => '予定表示プラグイン',
      :dd => '予定を表示します。',
      :dc => '* 例
 {{plan}}
{{plan}}
もし予定が登録されている場合は、このプラグインで表示されます。
* 予定の登録方法
一番下の「新しい予定を登録する」というリンクをたどって、
新しい予定ページを作ってください。
サイドメニューに予定が表示されるようになります。
過去の予定は表示されません。また一年以上先の予定も表示されません。
一ヶ月先程度の予定を登録してみてください。

\'\'\'注意\'\'\' 以前はタグ記法による日付指定を採用していましたが、
新しいバージョンから上記の新規予定ページ方式に切り替えました。
御了承下さい。
'
    }

    def plg_side_plan
      div = [:div, [:h2, _('Plan')]]
      pages = @site.get_pages_with_date
      div << plan_make_html(pages) if ! pages.empty?
      div << [:p, plg_new_plan]
      return div
    end

    def plg_plan
      div = [:div, [:h2, _('Plan')]]
      pages = @site.get_pages_with_date
      return if pages.empty?
      div << plan_make_html(pages)
      div << [:p, plg_new_plan]
      return div
    end

    def plg_new_plan
      return [:a, {:href=>'.plan'}, _('Create a new plan')]
    end

    def plan_make_html(pages)
      day = 60 * 60 * 24
      nowi = @req.start_time.to_i
      pages = pages.select {|pagekey, datei|
	page = @site[pagekey]
	diff = datei - nowi
	-day < diff
      }
      return nil if pages.empty?

      ul = [:ul]
      pages.sort_by {|pagekey, datei|
	datei
      }.each {|pagekey, datei|
	page = @site[pagekey]
	title = page.get_title
	date = Time.at(datei)
	now = Time.at(nowi)
	date_abbr = Time.date_abbr(now, date)
	em_title = Time.date_emphasis(now, date, title)
	ul << [:li, "#{date_abbr} ", [:a, {:href=>"#{pagekey}.html"}, em_title]]
      }
      return ul
    end

    # Make a new plan.
    def act_plan
      date = @req.query['date']
      title = @req.query['title']
      if date.nil? || date.empty? || title.nil? || title.empty?
	date_attr = {:name=>'date', :class => 'focus'}
	date_attr[:value] = @req.start_time.ymd_s
	date_attr[:value] = date if date && ! date.empty?
	title_attr = {:name=>'title'}
	title_attr[:value] = 'Plan'
	title_attr[:value] = title if title && ! title.empty?
	form = [:form, {:action=>'.plan', :method=>'POST'},
	  [:dl,
	    [:dt, _('Date')],
	    [:dd, [:input, date_attr]],
	    [:dt, _('Title')],
	    [:dd, [:input, title_attr]]],
	  [:input, {:type=>'submit', :value=>_('Create a new plan')}]]
	return c_notice(_('New plan')) {
	  [[:h2, _('New plan')],
	    [:div, {:class=>'plan form'},
	      form]]
	}
      end

      # Create a new plan
      #page = @site.create_new	# CREATE

      dateobj = Time.parse(date)
      
      pagename = "plan_#{dateobj.ymd_s}"
      page = @site[pagename]
      msg = _('Already Exists.')
      if page.nil?
	msg = _('Created.')
	page = @site.create(pagename)	# CREATE
	page.store("* #{title}\n")	# Specify title.
      end

      url = "#{page.key}.edit"
      return c_notice(_('New plan'), url, 201) {	# 201, Created
	[[:h2, msg],
	  [:p, [:a, {:href=>url}, _('Edit new page')]]]
      }
    end
  end
end

if $0 == __FILE__
  require 'qwik/test-common'
  $test = true
end

if defined?($test) && $test
  class TestActPlan < Test::Unit::TestCase
    include TestSession

    def create_plan_pages(site)
      page = site.create 'plan_19700101'
      page.store("* t")
      page = site.create 'plan_19700115'
      page.store("* t")
      page = site.create 'plan_19700201'
      page.store("* t")
      page = site.create 'plan_19710101'
      page.store("* t")
    end

    def test_plg_plan
      ok_wi([], '{{plan}}')

      create_plan_pages(@site)

      ok_wi [:div,
	[:h2, "Plan"],
	[:ul,
	  [:li, "01-01 ", [:a, {:href=>"plan_19700101.html"}, [:strong, "t"]]],
	  [:li, "01-15 ", [:a, {:href=>"plan_19700115.html"}, [:em, "t"]]],
	  [:li, "02-01 ", [:a, {:href=>"plan_19700201.html"},
	      [:span, {:class=>"future"}, "t"]]],
	  [:li, "1971-01-01 ", [:a, {:href=>"plan_19710101.html"},
	      [:span, {:class=>"future"}, "t"]]]],
	[:p, [:a, {:href=>".plan"}, "Create a new plan"]]],
	'{{plan}}'

      # $KCODE = 'n'
      eq "\227\\\222\350", '予定'
    end

    def ok_date(num, date)
      assert_equal(num, Time.parse(date).to_i + Time::now.utc_offset)
    end

    def test_parsedate
      ok_date 0, '1970-01-01'
      ok_date 0, '19700101'
      ok_date 0, '1970/01/01'
      ok_date 0, '1970/1/1'
    end

    def test_plan
      t_add_user

      ok_wi [:div, [:h2, "Plan"], [:p, [:a, {:href=>".plan"},
	    "Create a new plan"]]], '{{side_plan}}'

      # Go create a new plan page.
      res = session '/test/.plan'
      ok_in ["New plan"], '//h1'
      ok_attr({:action=>".plan", :method=>"POST"}, '//form')
      ok_attr({:value=>"19700101", :class=>"focus", :name=>"date"}, '//input')
      ok_attr({:value=>"Plan", :name=>"title"}, '//input[2]')

      page = @site.create_new
      page.store('t1')
    end
  end
end