=begin
customize
=end

#日付毎アンカーを「#NN」から「#dn」へ変更
module DiaryModule
  def date2fileanchor(date)
#    date[6..7]
    "d" + date[6..7].to_i.to_s
  end
end

#日付の曜日を英2文字に変更
class Time
  def strftime2(format_str)
    youbi2a = %w(Sn Mn Te We Th Fr St)
    youbi2A = %w(Su Mo Tu We Th Fr Sa)
    format = format_str.dup
    format.gsub!(/%2a/, youbi2a[self.wday])
    format.gsub!(/%2A/, youbi2A[self.wday])
    strftime(format)
  end
end

#トピック文字列が生成結果として空文字列になった時「.」を代入
class Topics
  def tohtml(diaries, putmonth = true, year = '')
    body = ''
    @diaries = diaries
    topic = Marshal::load(filter_topics(diaries))
    pattern = Regexp::compile(@pattern)
    topic.keys.sort.reverse_each{ |month|
      next unless month[0..3].index(year)
      monthlink = []
      monthhtml = ''
      
      topic[month].keys.sort.each{ |date|
        d = Time::local(month[0..3], month[4..5], date)
        monthhtml << "\t\t<li>#{d.strftime2(@topicDateFormat)} : "
        monthhtml << topic[month][date].collect!{ |t|
          monthlink << "<a href=\"#{date2monthlyfilelink(month+date)}\">#{@monthPartNames[date.to_i]}</a>"
#          "<a href=\"#{date2monthlyfilelink(month+date, true)}#{t[0]}\">#{t[1].gsub(pattern, @replace)}</a>"
          string = t[1].gsub(pattern, @replace)
          string = "." if string == ""
          "<a href=\"#{date2monthlyfilelink(month+date, true)}#{t[0]}\">#{string}</a>"
        }.join(' / ')
        monthhtml << "</li>\n"
      }
      if putmonth then
        m = Time::local(month[0..3], month[4..5])
        if @monthPartNames.uniq.size == 1 then
          body << "\t<dt><a #{isXHTML ? 'id' : 'name'}=\"t#{month}\" href=\"#{date2monthlyfilelink(month+'01')}\">"
          body << "#{m.strftime2(@topicMonthFormat)}</a></dt>\n\t<dd><ul>\n"
        else
          monthlink.uniq!
          body << "\t<dt><a #{isXHTML ? 'id' : 'name'}=\"t#{month}\">#{m.strftime2(@topicMonthFormat)}</a> ( "
          body << monthlink.join(' / ')
          body << " )</dt>\n\t<dd><ul>\n"
        end
      end
      body << monthhtml
      body << "\t</ul></dd>\n" if putmonth
    }
    if putmonth then
      return "<dl>\n" + body + "</dl>\n"
    else
      return "<ul>\n" + body + "</ul>\n"
    end
  end
end

#カスタム
class Filter
  def custom(str, type)
    case type
    
    when :P
      #「Book:」本感想文エリア
      str.gsub!(/^Book:(?: (-.*))?(\n(.*))*/i){
        param = $1
        str.gsub!(/^Book:(?: (-.*))?\n/i, "")
        str = "<div class=\"book\">" + str + "</div>"
      }
      #「Review:」その他（映像などの）感想文エリア
      str.gsub!(/^Review:(?: (-.*))?(\n(.*))*/i){
        param = $1
        str.gsub!(/^Review:(?: (-.*))?\n/i, "")
        str = "<div class=\"review\">" + str + "</div>"
      }
      #「Comment:」メモをコメントアウト
      str.gsub!(/^Comment:(?: (-.*))?(\n(.*))*/i){
        param = $1
        str.gsub!(/^Comment:(?: (-.*))?\n/i, "")
        str = "<!--\n" + str + "\n-->"
      }
      #「Dust:」愚痴をコメントアウト
      str.gsub!(/^Dust:(?: (-.*))?(\n(.*))*/i){
        param = $1
        str.gsub!(/^Dust:(?: (-.*))?\n/i, "")
        str = "<!--\n" + str + "\n-->"
      }
      #「Money:」家計簿をコメントアウト
      str.gsub!(/^Money:(?: (-.*))?(\n(.*))*/i){
        param = $1
        str.gsub!(/^Money:(?: (-.*))?\n/i, "")
        str = "<!--\n" + str + "\n-->"
      }
    
    when :DATE_ANCHOR
      #ヘッダに巻頭言マーク挿入
      str.gsub!(/<\/h4>/, '<!--Tag:header-space--></h4>')
    
    when :AFTER_ONEDAY
      header = ''
      str.gsub!(/<!--Tag:header-start-->(.*?)<!--Tag:header-end--><</m) {
        header << '<div class="head">' + $1.strip + '</div>'
        ''
      }
      str.gsub!(/<!--Tag:header-space-->/,header)
    
    when :ONEDAY
      #「Head:」巻頭言（一行のみ）を別色調に、して日付直後へ移動。
      #未完。行数制限を修正。更にそのうちヘッダに組込
      header = ''
      str.gsub!(/^Head:(?: (-.*))?(\n(.*?))\n\n/mi){
        header << "<<\n"
        header << "<!--Tag:header-start-->"
        header << $2.strip.gsub(/\n/,'<br />')
        header << "<!--Tag:header-end-->"
        ''
      }
      str.replace(header + str)
      
      #「Book:」の一行目をトピック「□」としてコピー。
      #「」で囲まれたタイトルを『』へ
      str.gsub!(/^Book:(.*?)\n(.*?)「(.*)」(.*?)\n/i){
        replace = "□『"+$3+"』\n\nBook:"+$1+"\n"+$2+"「"+$3+"」"+$4+"\n"
      }
      
      #「Review:」の一行目をトピック「△」としてコピー。
      #「」で囲まれたタイトルを『』へ
      str.gsub!(/^Review:(.*?)\n(.*?)「(.*)」(.*?)\n/i){
        replace = "△『"+$3+"』\n\nReview:"+$1+"\n"+$2+"「"+$3+"」"+$4+"\n"
      }
      
    #<!-- -->の行に対して改行を付けないよう削除。
    when :AFTER_P, :AFTER_UL, :AFTER_DL, :AFTER_TOPIC
      str.gsub!(/--><br>/, '-->')
    end
  end
end