# $Id: monthindex.rb,v 1.10 2003/10/07 22:26:41 not Exp $
# 2003/12/27 微修正

=begin
  monthindex.rb
    nDiary Plug-in  月別ファイルのインデックス作成
    月別のファイルへのリンクのインデックスを作成します。
  option:
    month=en        月名を英語表記にします。
    month=1         月名を0無数値表記にします。
    title=str       インデックスに付けるタイトルを指定します。
    style無指定     <table> も <ul> も使わずにインデックスを作成します。
    style=simple    <table> を使わずにインデックスを作成します。
    style=table     <table> を使ってインデックスを作成します。
    style=flatlist  <ul><li> を使ってインデックスを作成します。(月毎に1行)
    style=dropdown  <form><select> を使ってインデックスを作成します。(要JavaScript)
    boder=n         style=table 時の border の サイズを指定します。
    cellspacing=n   style=table 時の cellspacing の サイズを指定します。
    dst=filename    出力を ファイルfilename に切りかえます
  exsample:
    <!--plug=monthindex?title=過去の日記?month=en?style=simple-->
    <!--plug=monthindex?month=1?style=string-->
=end

def plug(opt)

  case opt['month']
  when 'en'
    monthname =  %w(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)
  when '1'
    monthname =  %w(1 2 3 4 5 6 7 8 9 10 11 12)
  else
    monthname =  %w(01 02 03 04 05 06 07 08 09 10 11 12)
  end
  
  opt['border'] = 1 if opt['border'] !~ /^\d+$/
  opt['cellspacing'] = 0 if opt['cellspacing'] !~ /^\d+$/
  
  firstYear = @months[0][0..3]
  lastYear = @months[@months.size - 1][0..3]
  
  monthlist = {}
  
  for year in firstYear..lastYear
    for month in "01".."12"
      href = date2monthlyfilelink(year + month)
      if href.empty? and File::readable?(@outputDirectory + year + month + '.html') then
        href = '../' * @filename.scan(%r"[^/]+/").size + @monthlyFilename.gsub(/%Y/, year).gsub(/%0m/, month).gsub(%r"^\./", '')
      end
      monthlist[year] = [] unless monthlist.key?(year)
      monthlist[year] << href
    end
  end
  
  html = t1 = t2 = t3 = t4 = t5 = t6 = ''
  
  case opt['style']
  when 'dropdown'
    t1 = %Q!<form action="./"><select tabindex="0" onchange="location.href=this.options[this.selectedIndex].value"><optgroup label="Month"><option value="">Select</option></optgroup>!
    t2 = '%Q!<optgroup label="#{year}">!'
    t3 = '%Q!<option value="#{monthlist[year][month]}">#{year}-#{monthname[month]}</option>!'
    t4 = '""'
    t5 = "</optgroup>"
    t6 = "</select></form>"
  when 'simple'
    t1 = "\n<ul class=\"monthindex\">\n"
    t2 = '%Q!\t<li><strong class="monthindex">#{year}</strong> [ !'
    t3 = '%Q!<a href="#{monthlist[year][month]}">#{monthname[month]}</a>, !'
    t4 = '%Q!#{monthname[month]}, !'
    t5 = " ]</li>\n"
    t6 = "</ul>"
  when 'flatlist'
    t1 = "\n<ul class=\"monthindex\">\n"
    t2 = '""'
    t3 = '%Q!<li><a href="#{monthlist[year][month]}">#{year}-#{monthname[month]}</a></li>\n!'
    t4 = '""'
    t5 = ""
    t6 = "</ul>"
  when 'table'
    t1 = %Q!<table border="#{opt['border']}" cellspacing="#{opt['cellspacing']}">\n!
    if opt['title']
      t1 << '<tr><th colspan="13">' << opt['title'] << "</th></tr>\n"
    end
    t2 = '%Q!\t<tr>\n\t\t<th>#{year}</th>\n!'
    t3 = '%Q!\t\t<td><a href="#{monthlist[year][month]}">#{monthname[month]}</a></td>\n!'
    t4 = '%Q!\t\t<td>#{monthname[month]}</td>\n!'
    t5 = "\t</tr>\n\n"
    t6 = "</table>\n\n"
  else
    t1 = "\n<div class=\"monthindex\">\n"
    t2 = '%Q!\t<strong class="monthindex">#{year}</strong> [ !'
    t3 = '%Q!<a href="#{monthlist[year][month]}">#{monthname[month]}</a>, !'
    t4 = '%Q!#{monthname[month]}, !'
    t5 = " ]<br />\n"
    t6 = "</div>"
  end
  
  html = t1
  for year in firstYear..lastYear
    html << eval(t2)
    for month in 0..11
      unless monthlist[year][month].to_s.empty?
        html << eval(t3)
      else
        html << eval(t4)
      end
    end
    html.chop!.chop! if (opt['style'] == 'simple') || (opt['style'].nil?)
    html << t5
  end
  html << t6
  
  if opt['dst'] and (not opt['dst'].empty?) then
    if /^([a-zA-Z]:)?\// !~ opt['dst'] then
#      opt['dst'] = File::expand_path(opt['dst'], @outputDirectory)
      opt['dst'] = @outputDirectory + opt['dst']
    end
    begin
      outfile = open(opt['dst'], "w")
      outfile.print html
      outfile.close
      html = "<!--monthindex-->"
    rescue Errno::ENOENT
      $stderr.print "Plug-in error: monthindex > dst file not found!\n"
      html = "<!--plug-in error: monthindex-->"
    end
  end

  return html

end