require "kconv"
require "time"
require "fileutils"

wdir = Dir.getwd()

Dir.foreach(wdir) do |xtfile|
  next if xtfile !~ /\.txt$/
  next if xtfile == "trash_.txt" #ゴミ箱は変換しない
  
  xttext = open(xtfile) { |r|
    r.read.toutf8.gsub(/\r/, "")
  }

  cnt = 0

  p = xttext.split(/\n\n/)
  p p.length
  
  p.each do |text|
    text.gsub(%r@^((\d+)/(\d+)/(\d+) (\d+):(\d+))\s*([^\n]*)\n(.*?)\Z@m) do
      time  = Time.parse($1)
      dir   = "#{$2}/#{$3}"
      date  = "#{$2}-#{$3}-#{$4} #{$5}:#{$6}"
      file  = "#{$2}-#{$3}-#{$4}-#{$5}#{$6}" + "00.howm"
      path  = dir + "/" + file
      title = $7
      body  = $8.gsub(/^\t/m, "")
      tags  = []

      title.gsub(/([^:]*):/) { tags << $1 }
      title = title.sub(/^([^:]*:\s*)*/, "")
      tag   = "[[" + tags.join("]][[") + "]]"

      howm = <<EOD
= #{title}
[#{date}]
#{body}
EOD

      FileUtils.mkdir_p(dir)
      f = open(path, "w")
      f.puts(howm)
      f.close()
      File.utime(time, time, path)

      cnt += 1
    end
  end

  p xtfile
  p xttext.size.to_s + " bytes"
  p "create " + cnt.to_s + " .howm files"
end