#!/usr/bin/env ruby
require 'dyndoc-convert'
require 'dyndoc-edit'
require 'dyndoc/init/home'
dyndoc_home = Dyndoc.home
#p Dyndoc.home

cfg_yml = File.join(dyndoc_home,"etc","dyn-html.yml")

cfg=YAML::load_file(cfg_yml) if File.exist? cfg_yml


## To put inside yaml config file!
root = cfg["root"] || File.join(ENV["HOME"],"RCqls","RodaServer")
edit_root = File.join(root ,"edit")
pages_root = File.join(root ,"public","pages")
current_email = cfg["email"] || "rdrouilh@gmail.com" #default email user can be overriden by -u option

args=ARGV
args=["-h"] if args.empty?

require 'optparse'

$VERBOSE = nil

## Examples:
## 1) global mode:
##    dyn-html /dev/R/test.dyn
## 2) user mode: relative path used instead of ~ since ~ is interpreted in bash mode!
##    dyn-html -u remy.drouilhet@upmf-grenoble.fr cfies2017/index.dyn:index
##    dyn-html -u remy.drouilhet@upmf-grenoble.fr cfies2017/index.dyn:all

options={watching: nil, refresh: nil, first: true}

OptionParser.new do |opts|
  opts.banner = "Usage: dyn-html [-u email_user] [-w] [-r <url-to-refresh-when-watched>] [/]<relative_path>/<file>.dyn "

  opts.on( '-u', '--user EMAIL', 'user email' ) do |email|
    current_email=email
  end

  opts.on( '-w', '--watch', 'watch file') do
    options[:watching]=true
  end

  opts.on( '-r', '--refresh HTML', 'refresh page' ) do |html|
    options[:refresh]=html
  end

end.parse!(args)


## THIS IS A COPY FROM edit.rb
## TODO: TO PLACE IN SOME COMMON LIBRARY!

## Mandatory input
p args
dyn_file,doc_tag=args[0].split(":")
doc_tag="" unless doc_tag
doc_tag="__ALL_DOC_TAG__" if doc_tag.downcase == "all"

## Detect docs_tags_info
dyn_file=File.join(["","users",current_email],dyn_file) unless dyn_file[0,1]=="/"
filename=File.join(edit_root,dyn_file)
doc_tags_info=Dyndoc::Edit.get_doc_tags_info(File.read(filename))

if dyn_file and (dyn_file=~/(.*)(?:\.dyn|_html.dyn)$/)
  #p [:dyn_file,dyn_file,$1]
  html_files=Dyndoc::Edit.html_files({doc_tags_info: doc_tags_info , dyn_file: dyn_file },current_email)
  ##p [:html_files,html_files]
  html_file=html_files[doc_tag] || html_files[""]

# Ex for opts:
# rdrouilh : [:dyn_opts, {:dyn_root=>"/Users/remy/RCqls/RodaServer/edit", :html_root=>"/Users/remy/RCqls/RodaServer/public/pages", :user=>"rdrouilh@gmail.com", :doc_tag=>"bio", :html_files=>{""=>"/dev/R/test.html", "ssd"=>"/dev/R/ssd.html", "bio"=>"/dev/R/bio.html", "tmp"=>"/dev/R/tmp.html", "cours"=>"/dev/R/cours.html"}}]
# remy.drouilhet : [:dyn_opts, {:dyn_root=>"/Users/remy/RCqls/RodaServer/edit", :html_root=>"/Users/remy/RCqls/RodaServer/public/pages", :user=>"remy.drouilhet@upmf-grenoble.fr", :doc_tag=>"index", :html_files=>{""=>"/users/remy.drouilhet@upmf-grenoble.fr/cfies2017/index.html", "index"=>"/users/remy.drouilhet@upmf-grenoble.fr/cfies2017/index.html", "dates"=>"/users/remy.drouilhet@upmf-grenoble.fr/cfies2017/dates.html", "sc"=>"/users/remy.drouilhet@upmf-grenoble.fr/cfies2017/sc.html", "orga"=>"/users/remy.drouilhet@upmf-grenoble.fr/cfies2017/orga.html"}}]
  opts = {
    dyn_root: edit_root,
    html_root: pages_root,
    user: current_email,
    doc_tag: doc_tag,
    html_files: html_files
  }
##p opts
  file_to_process=File.join(opts[:dyn_root],dyn_file)
  cmd_to_open=nil
  if options[:refresh]
    cmd_to_open='tell application "Safari" to set URL of current tab of front window to "'+options[:refresh]+'"'
    cmd_to_refresh='tell application "System Events"' + "\n" + 'tell process "Safari"' + "\n" + 'keystroke "r" using {command down}' + "\n" + 'delay 60' + "\n" + 'end tell' + "\n" + 'end tell'
  end
  unless options[:watching]
    ## dyn_file[1..-1] to have a relative path...
    if Dyndoc::Linter.check_file(file_to_process).empty?
      Dyndoc.cli_convert_from_file(dyn_file[1..-1],html_file, opts)
    else
      puts dyn_file[1..-1]+" not well-formed!"
    end
  else
    require 'filewatcher'
    require 'dyndoc-linter'
    FileWatcher.new([file_to_process]).watch() do |filename, event|
      if event == :changed
        if Dyndoc::Linter.check_file(file_to_process).empty?
          Dyndoc.cli_convert_from_file(dyn_file[1..-1],html_file, opts)
          puts dyn_file[1..-1]+" processed!"
          if options[:first]
            `osascript -e '#{cmd_to_open}'`
            options[:first]=nil
          else
            %x{osascript<<-ENDREFRESH
              tell app "Safari" to activate
              tell application "System Events"
                keystroke "r" using {command down}
              end tell
              ENDREFRESH
            }
          end
        else
          puts dyn_file[1..-1]+" not well-formed!"
        end
      end
    end
  end
end