# 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/act-include'

module Qwik
  class Action
    D_PluginDiary = {
      :dt => 'Diary plugin',
      :dd => 'You can create a diary page.',
      :dc => "* How to
TBD
"
    }

    D_PluginDiary_ja = {
      :dt => '日記プラグイン',
      :dd => '日記ページを作ります。',
      :dc => "* 使い方
例えば「User」というページ名のページを作ります。
そのページに下記のように日記プラグインを埋め込みます。
 {{diary}}

日記ページは「User_20070417」というように「User_」というprefixの後に
日付けが続くようなページ名で記述してください。
「User」ページには、それらの日記の一覧が表示されます。
"
    }

    def plg_diary(include_days = 10)
      keys = []
      @site.each {|page|
	if /\A#{@req.base}_(\d\d\d\d\d\d\d\d)\z/ =~ page.key
	  keys << page.key
	end
      }

      recent_days = keys.sort.reverse[0, include_days]

      div = []
      recent_days.each {|key|
	page = @site[key]
	div << [:h2, [:a, {:href=>page.url}, page.get_title]]
	div += plg_include(key)
      }

      return div
    end
  end
end

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

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

    def test_plg_diary
      t_add_user

      page = @site.create('Diary')
      page.store("{{diary}}")
      page1 = @site.create('Diary_20070417')
      page1.store("d1")
      page2 = @site.create('Diary_20070418')
      page2.store("d2")

      res = session('/test/Diary.html')
      ok_in([[:div,
		{:class=>"day"},
		"",
		[:div,
		  {:class=>"body"},
		  [:div, {:class=>"section"}, [[:p, "d2"]]],
		  [:"!--", "section"]],
		[:"!--", "body"]],
	      [:"!--", "day"]],
	    "//div[@class='section']")

=begin
      res = session('/test/Diary.html')
      ok_in([[[:div,
		  {:class=>"day"},
		  "",
		  [:div,
		    {:class=>"body"},
		    [:div, {:class=>"section"}, [[:p, "d2"]]],
		    [:"!--", "section"]],
		  [:"!--", "body"]],
		[:"!--", "day"]],
	      [[:div,
		  {:class=>"day"},
		  "",
		  [:div,
		    {:class=>"body"},
		    [:div, {:class=>"section"}, [[:p, "d1"]]],
		    [:"!--", "section"]],
		  [:"!--", "body"]],
		[:"!--", "day"]]], "//div[@class='section']")
=end

    end
  end
end