make-common

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
require 'fileutils'
require 'open3'
require 'erb'
require 'yaml'

include FileUtils, Open3
alias :pipe :popen3

$root = $here = File.expand_path(File.dirname(__FILE__))

def figures(&block)
  begin
    # Dir["#$root/figures-png/*"].each do |file|
    # 	cp(file, file.sub(/(figures-png)/, '\1.\2'))
    # end
    block.call
  ensure
    # Dir["#$root/figures/18333*.png"].each do |file|
    # 	rm(file.gsub(/18333fig0(\d)0?(\d+)\-tn/, '\1.\2'))
    # end
  end
end

def command_exists?(command)
  ENV['PATH'].split(/:/).map do |path|
    File.executable?("#{path}/#{command}")
  end.inject{|a, b| a || b}
end

def replace(string, &block)
  string.instance_eval do
    alias :s :gsub!
    instance_eval(&block)
  end
  string
end

def verbatim_sanitize(string)
  string.gsub('\\', '{\textbackslash}').
    gsub('~', '{\textasciitilde}').
    gsub(/([\$\#\_\^\%])/, '\\\\' + '\1{}')
end

def pre_pandoc(string, config)
  replace(string) do
    # Ignore comments
    s /^%.*/, ''
    
    # Pandoc discards #### subsubsections #### - this hack recovers them
    s /\#\#\#\# (.*?) \#\#\#\#/, 'SUBSUBSECTION: \1'

    # Turns URLs into clickable links
    s /\`(http:\/\/[A-Za-z0-9\/\%\&\=\-\_\\\.]+)\`/, '<\1>'
    s /(\n\n)\t(http:\/\/[A-Za-z0-9\/\%\&\=\-\_\\\.]+)\n([^\t]|\t\n)/, '\1<\2>\1'

    # Process figures
    s /Insert\s.+\.png\s*\n.*?\d{1,2}-\d{1,2}\. (.*)/, 'FIG: \1'
  end
end

def html_mtime(chap)
  mtime = `git log -1 --format=format:"%cD" #$here/chap#{chap}/doc.md`
  return DateTime.parse(mtime).strftime("%B %d, %Y")
end

# check deps
missing = ['pandoc',
           'xelatex',
           'runhaskell',
           'pygmentize'].reject{|command| command_exists?(command)}

unless missing.empty?
  puts "Missing dependencies: #{missing.join(', ')}."
  puts "Install these and try again."
  exit
end

# include configuration file
$config = YAML.load_file("#$here/latex/config.yml")

# include templates
$base_template  = ERB.new(File.read("#$here/html/template.html"))
$chap_template  = ERB.new(File.read("#$here/html/template-chap.html"))
$index_template = ERB.new(File.read("#$here/html/template-index.html"))
$latex_template = ERB.new(File.read("#$here/latex/template.tex"))

# common debug flag
ARGV.delete_if{|arg| $DEBUG = true if arg == '-d' or arg == '--debug'}

# check pandoc version
unless `pandoc --version | head -1`.include? "1.9"
  puts "Install the latest version of pandoc"
  exit
end