xpub 0.0.1

data/skel/theme/default/epub/metadata.dat.erb

@@ -0,0 +1,43 @@
+<%- @book.identifiers.each do |identifier| -%>
+<dc:identifier<%- if identifier.scheme -%> opf:scheme="<%= identifier.scheme %>"<%- end -%>><%= identifier.identifier %></dc:identifier>
+<%- end -%>
+<%- if @book.lang -%>
+<dc:language><%= @book.lang %></dc:language>
+<%- end -%>
+<dc:title opf:type="main"><%= @book.title %></dc:title>
+<%- if @book.subtitle -%>
+<dc:title opf:type="subtitle"><%= @book.subtitle %></dc:title>
+<%- end -%>
+<%- if @book.short -%>
+<dc:title opf:type="short"><%= @book.short %></dc:title>
+<%- end -%>
+<%- if @book.collection -%>
+<dc:title opf:type="collection"><%= @book.collection %></dc:title>
+<%- end -%>
+<%- if @book.edition -%>
+<dc:title opf:type="edition"><%= @book.edition %></dc:title>
+<%- end -%>
+<%- if @book.extended -%>
+<dc:title opf:type="extended"><%= @book.extended %></dc:title>
+<%- end -%>
+<%- if @book.publisher -%>
+<dc:publisher><%= @book.publisher %></dc:publisher>
+<%- end -%>
+<%- @book.creators.each do |c| -%>
+<dc:creator<%- if c.role -%> opf:role="<%= c.role %>"<%- end -%>><%= c.name %></dc:creator>
+<%- end -%>
+<%- @book.contributors.each do |c| -%>
+<dc:contributor<%- if c.role -%> opf:role="<%= c.role %>"<%- end -%>><%= c.name %></dc:contributor>
+<%- end -%>
+<%- if @book.description -%>
+<dc:description><%= @book.description %></dc:description>
+<%- end -%>
+<%- if @book.rights -%>
+<dc:rights><%= @book.rights %></dc:rights>
+<%- end -%>
+<%- if @book.publication -%>
+<dc:date><%= Time.parse(@book.publication).utc.iso8601 %></dc:date>
+<%- end -%>
+<%- if @book.modification -%>
+<meta property="dcterms:modified"><%= Time.parse(@book.modification).utc.iso8601 %></meta>
+<%- end -%>

data/skel/theme/default/epub/pandoc-filter.rb

@@ -0,0 +1,206 @@
+#!/usr/bin/env ruby
+
+require 'json'
+
+class PandocFilter
+
+ def initialize filters
+  @filters = filters
+ end
+
+ def filter_str str
+  doc = JSON.parse str
+  doc.each {  |child| 
+   filter_node doc, child
+  }
+  JSON.generate doc
+ end
+
+ def before_filter doc, node
+  @filters.each { |f| 
+   f.filter doc, node, "before"
+  }
+ end
+
+ def after_filter doc, node
+  @filters.each { |f| 
+   f.filter doc, node, "after"
+  }
+ end
+
+ def filter_node doc, node
+  if  node.kind_of?(String)
+  elsif node.kind_of?(Array)
+   before_filter doc, node
+   node.each { |child| 
+    filter_node doc, child
+   }
+   after_filter doc, node
+  elsif node.kind_of?(Hash)
+   if node.has_key? "t"
+    before_filter doc, node
+    filter_node doc, node["c"]
+    after_filter doc, node
+   end
+  else 
+  end
+ end
+end
+
+
+
+# ルビフィルタ
+# グループルビ
+# {電子出版|でんししゅっぱん}を手軽に
+# <ruby>電子出版<rt>でんししゅっぱん</rt></ruby>を手軽に
+# 熟語ルビ
+# {電子出版|でん|し|しゅっ|ぱん}を手軽に
+# <ruby>電<rt>でん</rt>子<rt>し</rt>出<rt>しゅっ</rt>版<rt>ぱん</rt>を手軽に</p>
+class FuriganaFilter
+
+ def pattern
+  /{([^|]+)\|([^|}]+(\|[^|}]+)*)}/
+ end
+
+ def split pattern, str
+  if str.match pattern
+   if $` == ""
+    [[$&,true]].concat split(pattern, $')
+   else
+    [[$`, false],[$&,true]].concat split(pattern, $')
+   end
+  else
+   if str == ""
+    []
+   else
+    [[str, false]]
+   end
+  end
+ end
+
+
+ def replace str
+  str.match(pattern) { |md|
+   phrase = md[1]
+   ruby_chars = md[2].split('|')
+   if phrase.length == ruby_chars.length
+    # 熟語ルビ
+    "<ruby>" + phrase.split("").zip(ruby_chars).map {|c,r|
+     "#{c}<rt>#{r}</rt>"
+    }.join("") + "</ruby>"
+   else
+    # グループルビ
+    "<ruby>#{phrase}<rt>#{ruby_chars.join("")}</rt></ruby>"
+   end
+  }
+ end
+
+ def filter doc, node, mode
+  if mode == "before" && node.kind_of?(Array)
+   new_node = []
+   node.each { |child|
+    if child.kind_of?(Hash) && 
+      child["t"] == "Str" && 
+      child["c"].match(pattern)
+     split(pattern, child["c"]).map { |str, flag|
+      if flag
+       new_node << { "t" => "RawInline","c" => ["html",replace(str)]}
+      else
+       new_node << { "t" => "Str", "c" => str }
+      end
+     }
+    else
+     new_node << child
+    end
+   }
+   node.replace new_node
+  end
+ end
+end
+
+# 改ページフィルタ
+# なにもうめこまない。chapter単位で分割する
+class NewPageFilter
+
+ def pattern
+  /^===.*$/
+ end
+
+ def filter doc, node, mode
+  if mode == "before" && node.kind_of?(Hash)
+   if node["t"] == "Para" &&
+     node["c"].count == 1 &&
+     node["c"][0]["t"] == "Str" &&
+     node["c"][0]["c"].match(pattern)
+    node["c"][0]["t"] = "RawInline"
+
+    l = node["c"][0]["c"].length
+    node["c"][0]["c"] = ["html",""]
+   end
+  end
+ end
+end
+
+# 縦横中フィルタ
+class TateNakaYokoFilter
+
+ def pattern
+  /\^([^^]+)\^/
+ end
+
+ def split pattern, str
+  if str.match pattern
+   if $` == ""
+    [[$&,true]].concat split(pattern, $')
+   else
+    [[$`, false],[$&,true]].concat split(pattern, $')
+   end
+  else
+   if str == ""
+    []
+   else
+    [[str, false]]
+   end
+  end
+ end
+
+
+ def replace str
+  str.match(pattern) { |md|
+   word = md[1]
+   "<span class=\"tcy\">#{word}</span>"
+  }
+ end
+
+ def filter doc, node, mode
+  if mode == "before" && node.kind_of?(Array)
+   new_node = []
+   node.each { |child|
+    if child.kind_of?(Hash) && 
+      child["t"] == "Str" && 
+      child["c"].match(pattern)
+     split(pattern, child["c"]).map { |str, flag|
+      if flag
+       new_node << { "t" => "RawInline","c" => ["html",replace(str)]}
+      else
+       new_node << { "t" => "Str", "c" => str }
+      end
+     }
+    else
+     new_node << child
+    end
+   }
+   node.replace new_node
+  end
+ end
+end
+
+filters = [
+ FuriganaFilter.new,
+ TateNakaYokoFilter.new,
+ NewPageFilter.new
+]
+
+puts PandocFilter.new(filters).filter_str STDIN.read
+
+

data/skel/theme/default/epub/template.html

@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE html>
+<html xmlns="http://www.w3.org/1999/xhtml" xmlns:epub="http://www.idpf.org/2007/ops"$if(lang)$ xml:lang="$lang$"$endif$>
+<head>
+  <meta charset="utf-8" />
+  <meta name="generator" content="pandoc" />
+  <meta name="generator" content="ebc" />
+  <title>$pagetitle$</title>
+$if(quotes)$
+  <style type="text/css">
+    q { quotes: "“" "”" "‘" "’"; }
+  </style>
+$endif$
+$if(highlighting-css)$
+  <style type="text/css">
+$highlighting-css$
+  </style>
+$endif$
+$for(css)$
+  <link rel="stylesheet" type="text/css" href="$css$" />
+$endfor$
+</head>
+<body$if(coverpage)$ id="cover"$endif$>
+$if(titlepage)$
+<section epub:type="titlepage">
+$for(title)$
+$if(title.type)$
+  <h1 class="$title.type$">$title.text$</h1>
+$else$
+  <h1 class="title">$title$</h1>
+$endif$
+$endfor$
+$if(subtitle)$
+  <h1 class="subtitle">$subtitle$</h1>
+$endif$
+$for(author)$
+  <h2 class="author">$author$</h2>
+$endfor$
+$for(creator)$
+  <h2 class="$creator.type$">$creator.text$</h2>
+$endfor$
+$if(publisher)$
+  <p class="publisher">$publisher$</p>
+$endif$
+$if(date)$
+  <p class="date">$date$</p>
+$endif$
+$if(rights)$
+  <p class="rights">$rights$</p>
+$endif$
+</section>
+$else$
+$body$
+$endif$
+</body>
+</html>
+

data/skel/theme/default/latex/pandoc-filter.rb

@@ -0,0 +1,269 @@
+#!/usr/bin/env ruby
+
+require 'json'
+
+class PandocFilter
+
+ def initialize filters
+  @filters = filters
+ end
+
+ def filter_str str
+  doc = JSON.parse str
+  doc.each {  |child| 
+   filter_node doc, child
+  }
+  JSON.generate doc
+ end
+
+ def before_filter doc, node
+  @filters.each { |f| 
+   f.filter doc, node, "before"
+  }
+ end
+
+ def after_filter doc, node
+  @filters.each { |f| 
+   f.filter doc, node, "after"
+  }
+ end
+
+ def filter_node doc, node
+  if  node.kind_of?(String)
+  elsif node.kind_of?(Array)
+   before_filter doc, node
+   node.each { |child| 
+    filter_node doc, child
+   }
+   after_filter doc, node
+  elsif node.kind_of?(Hash)
+   if node.has_key? "t"
+    before_filter doc, node
+    filter_node doc, node["c"]
+    after_filter doc, node
+   end
+  else 
+  end
+ end
+end
+
+
+
+# ルビフィルタ
+# グループルビ
+# {電子出版|でんししゅっぱん}を手軽に
+# \ruby{>電子出版}{でんししゅっぱん}を手軽に
+# 熟語ルビ
+# {電子出版|でん|し|しゅっ|ぱん}を手軽に
+# \ruby{電}{でん}\ruby{子}{し}\ruby{出}{しゅっ}\ruby{版}{ぱん}を手軽に</p>
+class FuriganaFilter
+
+ def pattern
+  /{(([^|]|\s)+)\|(([^|}]|\s)+(\|([^|}]|\s)+)*)}/
+ end
+
+ def split pattern, str
+  if str.match pattern
+   if $` == ""
+    [[$&,true]].concat split(pattern, $')
+   else
+    [[$`, false],[$&,true]].concat split(pattern, $')
+   end
+  else
+   if str == ""
+    []
+   else
+    [[str, false]]
+   end
+  end
+ end
+
+
+ def replace str
+  str.match(pattern) { |md|
+   phrase = md[1]
+   ruby_chars = md[3].split('|')
+   if phrase.length == ruby_chars.length
+    # 熟語ルビ
+    phrase.split("").zip(ruby_chars).map {|c,r|
+     "\\ruby{#{c}}{#{r}}"
+    }.join ""
+   else
+    # グループルビ
+    "\\ruby{#{phrase}}{#{ruby_chars.join("")}}"
+   end
+  }
+ end
+
+ def filter doc, node, mode
+  if mode == "before" && node.kind_of?(Array)
+   new_node = []
+   node.each { |child|
+    if child.kind_of?(Hash) && 
+      child["t"] == "Str" && 
+      child["c"].match(pattern)
+     split(pattern, child["c"]).map { |str, flag|
+      if flag
+       new_node << { "t" => "RawInline","c" => ["tex",replace(str)]}
+      else
+       new_node << { "t" => "Str", "c" => str }
+      end
+     }
+    else
+     new_node << child
+    end
+   }
+   node.replace new_node
+  end
+ end
+end
+
+# 改ページフィルタ
+# === だと\\newpage
+# ==== だと\\clearpage
+# ===== かそれ以上だと \\cleardoublepage
+class NewPageFilter
+
+ def pattern
+  /^===.*$/
+ end
+
+ def filter doc, node, mode
+  if mode == "before" && node.kind_of?(Hash)
+   if node["t"] == "Para" &&
+     node["c"].count == 1 &&
+     node["c"][0]["t"] == "Str" &&
+     node["c"][0]["c"].match(pattern)
+    node["c"][0]["t"] = "RawInline"
+
+    l = node["c"][0]["c"].length
+    if l == 3
+     node["c"][0]["c"] = ["tex","\\newpage"]
+    elsif l == 4
+     node["c"][0]["c"] = ["tex","\\clearpage"]
+    else
+     node["c"][0]["c"] = ["tex","\\cleardoublepage"]
+    end
+   end
+  end
+ end
+end
+
+# 縦横中フィルタ
+class TateNakaYokoFilter
+
+ def pattern
+  /\^([^^]+)\^/
+ end
+
+ def split pattern, str
+  if str.match pattern
+   if $` == ""
+    [[$&,true]].concat split(pattern, $')
+   else
+    [[$`, false],[$&,true]].concat split(pattern, $')
+   end
+  else
+   if str == ""
+    []
+   else
+    [[str, false]]
+   end
+  end
+ end
+
+
+ def replace str
+  str.match(pattern) { |md|
+   word = md[1]
+   "\\pbox<y>{#{word}}"
+  }
+ end
+
+ def filter doc, node, mode
+  if mode == "before" && node.kind_of?(Array)
+   new_node = []
+   node.each { |child|
+    if child.kind_of?(Hash) && 
+      child["t"] == "Str" && 
+      child["c"].match(pattern)
+     split(pattern, child["c"]).map { |str, flag|
+      if flag
+       new_node << { "t" => "RawInline","c" => ["tex",replace(str)]}
+      else
+       new_node << { "t" => "Str", "c" => str }
+      end
+     }
+    else
+     new_node << child
+    end
+   }
+   node.replace new_node
+  end
+ end
+end
+
+
+# 改行フィルタ
+# Markdownで文章を改行したあとに、空行を挿入せずに文章を続けるときに、単なる改行になるようなフィルタ
+# Pandocに同様のオプションがあるためこのフィルタは使わない
+class NewLineFilter
+ def filter doc, node, mode
+  if mode == "before" && node.kind_of?(Hash)
+   if node["t"] == "Para"
+    node["c"].each { |child| 
+     if child.kind_of?(Hash)
+      if child["t"] == "Space"
+       child["t"] = "RawInline"
+       child["c"] = ["tex", "\\\\"]
+      end
+     end
+    }
+   end
+  end
+ end
+end
+
+class ColumnFilter
+ def pattern
+  /\s*<!--\s*%%(twocolumn|onecolumn)%%\s*-->\s*/
+ end
+ def filter doc, node, mode
+  if mode == "before" && node.kind_of?(Hash)
+   if node["t"] == "RawBlock" && node["c"][0] == "html" && node["c"][1].match(pattern)
+    node["c"][0] = "tex"
+    node["c"][1].match(pattern) { |md| 
+     node["c"][1] = "\\" + md[1]
+    }
+   end
+  end
+ end
+end
+
+class TocFilter
+ def pattern
+  /\s*<!--\s*%%toc%%\s*-->\s*/
+ end
+ def filter doc, node, mode
+  if mode == "before" && node.kind_of?(Hash)
+   if node["t"] == "RawBlock" && node["c"][0] == "html" && node["c"][1].match(pattern)
+    node["c"][0] = "tex"
+    node["c"][1] = "\\tableofcontents"
+   end
+  end
+ end
+end
+
+
+filters = [
+ FuriganaFilter.new,
+ TateNakaYokoFilter.new,
+ NewPageFilter.new,
+ ColumnFilter.new,
+ TocFilter.new,
+# NewLineFilter.new
+]
+
+puts PandocFilter.new(filters).filter_str STDIN.read
+
+