Add HAPAX LEGOMENA support & flatten structure

The list of hapax legomena for this project is available at /hapax.html.

In addition, the directory structure has been further flattened.
All assets (javascript, lua, images, fonts) are in /trunk/.

One other thing was to update the makefile.
It compiles hapax.txt from rivers.

28 files changed, 600 insertions, 0 deletions

@@ -0,0 +1,30 @@
+/* COURIER PRIME FONT for Autocento project.
+ * ONLY PUT @font-face RULES HERE.
+ */
+
+/* Normal = normal */
+@font-face {
+    font-family: "Courier Prime";
+    font-weight: normal;
+    font-style: normal;
+    src: url("Courier_Prime.ttf");
+}
+@font-face {
+    font-family: "Courier Prime";
+    font-weight: normal;
+    font-style: italic;
+    src: url("Courier_Prime_Italic.ttf");
+}
+/* Bold = bold */
+@font-face {
+    font-family: "Courier Prime";
+    font-weight: bold;
+    font-style: normal;
+    src: url("Courier_Prime_Bold.ttf");
+}
+@font-face {
+    font-family: "Courier Prime";
+    font-weight: bold;
+    font-style: italic;
+    src: url("Courier_Prime_Bold_Italic.ttf");
+}
@@ -0,0 +1,5 @@
+/* External.js for Autocento of the breakfast table
+ * this gives external links the class "external."
+ */
+
+
@@ -0,0 +1,256 @@
+-- Pandoc River writer
+-- it takes out all formatting, leaving only a river of text
+-- running down the page: one word per line
+-- vim: fdm=marker
+-- invoke with: pandoc -t river.lua
+
+os.setlocale("en_US.UTF-8")
+
+function hapax(s)
+    local function tablify (s, p)
+        local t={}
+        for w in s:gmatch(p) do
+            table.insert(t, w)
+        end
+        return t
+    end
+    local function stripDupes (t)
+        local seen = {}
+        local remove = {}
+        for i = 1, #t do
+            element = t[i]
+            if seen[element] then
+                remove[element] = true
+            else
+                seen[element] = true
+            end
+        end
+        for i = #t, 1, -1 do
+            if remove[t[i]] then
+                table.remove(t, i)
+            end
+        end
+        return t
+    end
+    return table.concat(stripDupes(tablify(s, "%S+")), "\n")
+end
+
+function flow(s)
+    return s:gsub("%s+", "\n")
+end
+
+function nude(s)
+    -- Expand contractions
+    s = s:gsub("'%a+%s", function (x)
+        if x == "'ll" then
+            return " will "
+        elseif x == "'ve" then
+            return " have "
+        elseif x == "'re" then
+            return " are "
+        else
+            return x
+        end
+    end)
+    s = s:gsub("it's", "it is")
+    s = s:gsub("n't", " not ")
+    -- Get rid of quotes around words
+    s = s:gsub('"', ' ')
+    s = s:gsub("%s'", ' ')
+    s = s:gsub("'%s", ' ')
+    -- Remove HTML entities
+    s = s:gsub('&.-;', ' ')
+    s = s:gsub('%b<>', ' ')
+    -- Remove end-of-line backslashes
+    s = s:gsub('\\$', ' ')
+    -- Remove dashes (not hyphens)
+    s = s:gsub('%-[%-%s]+', ' ')
+    -- Remove everything that is not letters or numbers
+    s = s:gsub('[%.!%?:;,%[%]%(%)<>]', ' ')
+    -- Remove extra spaces
+    s = s:gsub('%s+', ' ')
+    return s:lower()
+end
+
+-- This function is called once for the whole document. Parameters:
+-- body is a string, metadata is a table, variables is a table.
+-- One could use some kind of templating
+-- system here; this just gives you a simple standalone HTML file.
+function Doc(body, metadata, variables)
+    local buffer = ""
+    local function add(s)
+        buffer = buffer .. nude(s) .. "\n"
+    end
+    if metadata['title'] then
+        add(metadata['title'])
+    end
+    if metadata['subtitle'] then
+        add(metadata['subtitle'])
+    end
+    add(body)
+    return hapax(flow(buffer))
+end
+
+-- Remove all formatting {{{
+function Note(s)
+    return nude(s)
+end
+
+function Blocksep()
+    return "\n"
+end
+function Emph(s)
+    return nude(s)
+end
+
+function Strong(s)
+    return nude(s)
+end
+
+function Subscript(s)
+    return nude(s)
+end
+
+function Superscript(s)
+    return nude(s)
+end
+
+function SmallCaps(s)
+    return nude(s)
+end
+
+function Strikeout(s)
+    return nude(s)
+end
+
+function Code(s, attr)
+    return nude(s)
+end
+
+function CodeBlock(s, attr)
+    return nude(s)
+end
+
+function InlineMath(s)
+    return nude(s)
+end
+
+function DisplayMath(s)
+    return nude(s)
+end
+
+function Span(s, attr)
+    return nude(s)
+end
+
+function Cite(s)
+    return nude(s)
+end
+
+function Plain(s)
+    return nude(s)
+end
+
+-- Links only include the link text
+function Link(s, src, tit)
+    return nude(s)
+end
+
+-- Images have nothing to give us
+-- (but add a space just in case)
+function Image(s, src, tit)
+    return "\n"
+end
+
+function CaptionedImage(s, src, tit)
+    return "\n"
+end
+
+function Str(s)
+    return nude(s)
+end
+
+function Div(s, attr)
+    return nude(s)
+end
+
+function Space(s)
+    return "\n"
+end
+
+function LineBreak()
+    return "\n"
+end
+
+function Para(s)
+    return nude(s)
+end
+
+function Header(lev, s, attr)
+    return nude(s)
+end
+
+function BlockQuote(s)
+    return nude(s)
+end
+
+function HorizontalRule()
+    return "\n"
+end
+
+function BulletList(items)
+    local buffer = ""
+    for _, item in pairs(items) do
+        buffer = buffer .. nude(item) .. "\n"
+    end
+    return buffer .. "\n"
+end
+
+function OrderedList(items)
+    local buffer = ""
+    for _, item in pairs(items) do
+        buffer = buffer .. nude(item) .. "\n"
+    end
+    return buffer .. "\n"
+end
+
+function DefinitionList(items)
+    local buffer = ""
+    for _, item in pairs(items) do
+        for k, v in pairs(item) do
+            buffer = buffer .. nude(k) .. "\n" .. nude(v) .. "\n"
+        end
+    end
+    return buffer .. "\n"
+end
+
+function Table(caption, aligns, widths, headers, rows)
+    local buffer = ""
+    local function add(s)
+        buffer = buffer .. nude(s) .. "\n"
+    end
+    if caption ~= "" then
+        add(caption)
+    end
+    for _,h in pairs(headers) do
+        add(h)
+    end
+    for _, row in pairs(rows) do
+        for _, cell in pairs(row) do
+            add(cell)
+        end
+    end
+    return buffer
+end
+-- }}}
+
+-- The following code will produce runtime warnings when you haven't defined
+-- all of the functions you need for the custom writer, so it's useful
+-- to include when you're working on a writer.
+local meta = {}
+meta.__index =
+  function(_, key)
+    io.stderr:write(string.format("WARNING: Undefined function '%s'\n",key))
+    return function() return "" end
+  end
+setmetatable(_G, meta)
@@ -0,0 +1,21 @@
+/*
+ *  Hyphenator_Loader 1.1.0 - client side hyphenation for webbrowsers
+ *  Copyright (C) 2014  Mathias Nater, Zürich (mathias at mnn dot ch)
+ *  Project and Source hosted on http://code.google.com/p/hyphenator/
+ *
+ *  This JavaScript code is free software: you can redistribute
+ *  it and/or modify it under the terms of the GNU Lesser
+ *  General Public License (GNU LGPL) as published by the Free Software
+ *  Foundation, either version 3 of the License, or (at your option)
+ *  any later version.  The code is distributed WITHOUT ANY WARRANTY;
+ *  without even the implied warranty of MERCHANTABILITY or FITNESS
+ *  FOR A PARTICULAR PURPOSE.  See the GNU GPL for more details.
+ *
+ *  As additional permission under GNU GPL version 3 section 7, you
+ *  may distribute non-source (e.g., minimized or compacted) forms of
+ *  that code without the copy of the GNU GPL normally required by
+ *  section 4, provided you include this license notice and a URL
+ *  through which recipients can access the Corresponding Source.
+ */
+
+var Hyphenator_Loader=(function(window){'use strict';var languages,config,path,createElem=function(tagname){var r;if(window.document.createElementNS){r=window.document.createElementNS('http://www.w3.org/1999/xhtml',tagname);}else if(window.document.createElement){r=window.document.createElement(tagname);}return r;},checkLangSupport=function(lang,longword){var shadow,computedHeight,bdy=window.document.getElementsByTagName('body')[0];shadow=createElem('div');shadow.style.width='5em';shadow.style.MozHyphens='auto';shadow.style['-webkit-hyphens']='auto';shadow.style['-ms-hyphens']='auto';shadow.style.hyphens='auto';shadow.style.fontSize='12px';shadow.style.lineHeight='12px';shadow.style.visibility='hidden';shadow.lang=lang;shadow.style['-webkit-locale']="'"+lang+"'";shadow.innerHTML=longword;bdy.appendChild(shadow);computedHeight=shadow.offsetHeight;bdy.removeChild(shadow);return(computedHeight>12)?true:false;},loadNrunHyphenator=function(config){var head,script,interval;head=window.document.getElementsByTagName('head').item(0);script=createElem('script');script.src=path;script.type='text/javascript';head.appendChild(script);interval=window.setInterval(function(){if(window.Hyphenator!==undefined){window.clearInterval(interval);Hyphenator.config(config);Hyphenator.run();}},10);},runner=function(){var loadHyphenator=false,r,results={},lang;for(lang in languages){if(languages.hasOwnProperty(lang)){r=checkLangSupport(lang,languages[lang]);results[lang]=r;loadHyphenator=loadHyphenator||!r;}}if(loadHyphenator){loadNrunHyphenator(config);}},runOnContentLoaded=function(window,f){var toplevel,hyphRunForThis={},doFrames=false,contextWindow,documentLoaded,add=window.document.addEventListener?'addEventListener':'attachEvent',rem=window.document.addEventListener?'removeEventListener':'detachEvent',pre=window.document.addEventListener?'':'on',init=function(context){contextWindow=context||window;if(!hyphRunForThis[contextWindow.location.href]&&(!documentLoaded||!!contextWindow.frameElement)){documentLoaded=true;f();hyphRunForThis[contextWindow.location.href]=true;}},doScrollCheck=function(){try{window.document.documentElement.doScroll("left");}catch(error){window.setTimeout(doScrollCheck,1);return;}init(window);},doOnLoad=function(){var i,haveAccess,fl=window.frames.length;if(doFrames&&fl>0){for(i=0;i<fl;i+=1){haveAccess=undefined;try{haveAccess=window.frames[i].document.toString();}catch(e){haveAccess=undefined;}if(!!haveAccess){if(window.frames[i].location.href!=='about:blank'){init(window.frames[i]);}}}contextWindow=window;f();hyphRunForThis[window.location.href]=true;}else{init(window);}},DOMContentLoaded=function(e){if(e.type==='readystatechange'&&window.document.readyState!=='complete'){return;}window.document[rem](pre+e.type,DOMContentLoaded,false);if(!doFrames&&window.frames.length===0){init(window);}};if(window.document.readyState==="complete"||window.document.readyState==="interactive"){window.setTimeout(doOnLoad,1);}else{window.document[add](pre+"DOMContentLoaded",DOMContentLoaded,false);window.document[add](pre+'readystatechange',DOMContentLoaded,false);window[add](pre+'load',doOnLoad,false);toplevel=false;try{toplevel=!window.frameElement;}catch(ignore){}if(window.document.documentElement.doScroll&&toplevel){doScrollCheck();}}};return{init:function(langs,p,configs){languages=langs;path=p;config=configs||{};runOnContentLoaded(window,runner);}};}(window));Hyphenator_Loader.init({"en":"hyphenationalgorithm",},"./Hyphenator.js",{classname:'prose',defaultlanguage:'en',displaytogglebox:true,togglebox:function(){var bdy,myTextNode,text=(Hyphenator.doHyphenation?'-':'~'),myBox=contextWindow.document.getElementById('HyphenatorToggleBox');if(!!myBox){myBox.firstChild.data=text;}else{bdy=contextWindow.document.getElementsByTagName('body')[0];myBox=createElem('div',contextWindow);myBox.setAttribute('id','HyphenatorToggleBox');myBox.setAttribute('class',dontHyphenateClass);myTextNode=contextWindow.document.createTextNode(text);myBox.appendChild(myTextNode);myBox.onclick=Hyphenator.toggleHyphenation;myBox.style.position='absolute';myBox.style.top='0px';myBox.style.right='0px';myBox.style.margin='0';myBox.style.backgroundColor=rgba(0,0,0,255);myBox.style.color=rgba(255,255,255,100);myBox.style.font='6pt Arial';myBox.style.letterSpacing='0.2em';myBox.style.padding='3px';myBox.style.cursor='pointer';myBox.style.WebkitBorderBottomLeftRadius='4px';myBox.style.MozBorderRadiusBottomleft='4px';myBox.style.borderBottomLeftRadius='4px';bdy.appendChild(myBox);}},useCSS3hyphenation:true});
@@ -0,0 +1,31 @@
+/* CSS for Linux Libertine family of fonts */
+
+@font-face {
+    font-family: "Libertine";
+    src: url('LinLibertine_R.woff'),
+         url('LinLibertine_R.otf');
+    font-weight: 400;
+    font-style: normal;
+}
+@font-face {
+    font-family: "Libertine";
+    src: url('LinLibertine_RB.woff'),
+         url('LinLibertine_RB.otf');
+    font-weight: 700;
+    font-style: normal;
+}
+
+@font-face {
+    font-family: "Libertine";
+    src: url('LinLibertine_RI.woff'),
+         url('LinLibertine_RI.otf');
+    font-weight: 400;
+    font-style: italic;
+}
+@font-face {
+    font-family: "Libertine";
+    src: url('LinLibertine_RBI.woff'),
+         url('LinLibertine_RBI.otf');
+    font-weight: 700;
+    font-style: italic;
+}
@@ -0,0 +1,27 @@
+/* Lozenge.js for Autocento of the breakfast table
+ * Cause a#lozenge to link to random file in array
+ * vim: fdm=marker
+ */
+
+function _lozenge() {
+    var lozenge = document.getElementById('lozenge');
+    // array with all files {{{
+    var files=["100-lines.html","about-the-author.html","about.html","about_author.html","amber-alert.html","and.html","angeltoabraham.html","apollo11.html","arspoetica.html","art.html","axe.html","big-dipper.html","boar.html","boy_bus.html","building.html","call-me-aural-pleasure.html","cereal.html","cold-wind.html","collage-instrument.html","common-titles.html","creation-myth.html","deadman.html","death-zone.html","deathstrumpet.html","dollywood.html","dream.html","early.html","elegyforanalternateself.html","epigraph.html","ex-machina.html","exasperated.html","father.html","feedingtheraven.html","finding-the-lion.html","fire.html","first-lines.html","found-typewriter-poem.html","hands.html","hapax.html","hard-game.html","hardware.html","howithappened.html","howtoread.html","hymnal.html","i-am.html","i-think-its-you.html","i-want-to-say.html","i-wanted-to-tell-you-something.html","in-bed.html","initial-conditions.html","january.html","joke.html","lappel-du-vide.html","largest-asteroid.html","last-bastion.html","last-passenger.html","leaf.html","leg.html","likingthings.html","listen.html","love-as-god.html","lovesong.html","man.html","manifesto_poetics.html","moon-drowning.html","moongone.html","mountain.html","movingsideways.html","music-433.html","no-nothing.html","notes.html","nothing-is-ever-over.html","on-genre-dimension.html","onformalpoetry.html","options.html","ouroboros_memory.html","paul.html","peaches.html","philosophy.html","phone.html","planks.html","plant.html","poetry-time.html","prelude.html","problems.html","proverbs.html","punch.html","purpose-dogs.html","question.html","real-writer.html","reports.html","riptide_memory.html","ronaldmcdonald.html","roughgloves.html","sapling.html","seasonal-affective-disorder.html","sense-of-it.html","serengeti.html","shed.html","shipwright.html","sixteenth-chapel.html","snow.html","something-simple.html","spittle.html","squirrel.html","stagnant.html","statements-frag.html","stayed-on-the-bus.html","stump.html","swansong-alt.html","swansong.html","swear.html","table_contents.html","tapestry.html","telemarketer.html","the-night-we-met.html","the-sea_the-beach.html","theoceanoverflowswithcamels.html","time-looks-up-to-the-sky.html","todaniel.html","toilet.html","toothpaste.html","treatise.html","underwear.html","walking-in-the-rain.html","wallpaper.html","weplayedthosegamestoo.html","what-we-are-made-of.html","when-im-sorry-i.html","window.html","words-irritable-reaching.html","words-meaning.html","worse-looking-over.html","writing.html","x-ray.html","yellow.html"]
+    // }}}
+
+    var index = Math.floor(Math.random() * files.length);
+
+    var url = window.location.pathname;
+    var current = url.substring(url.lastIndexOf('/')+1);
+
+    if (current != files[index]) {
+        lozenge.setAttribute("href", files[index]);
+        lozenge.setAttribute("title", "Random article");
+    } else {
+        _lozenge()
+    }
+}
+
+window.onload = function () {
+    _lozenge()
+};
@@ -0,0 +1,230 @@
+-- Pandoc River writer
+-- it takes out all formatting, leaving only a river of text
+-- running down the page: one word per line
+-- vim: fdm=marker
+-- invoke with: pandoc -t river.lua
+
+os.setlocale("en_US.UTF-8")
+
+local function flow(s)
+    return s:gsub("%s+", "\n")
+end
+
+local function nude(s)
+    -- Expand contractions
+    s = s:gsub("'%a+%s", function (x)
+        if x == "'ll" then
+            return " will "
+        elseif x == "'ve" then
+            return " have "
+        elseif x == "'re" then
+            return " are "
+        else
+            return x
+        end
+    end)
+    s = s:gsub("it's", "it is")
+    s = s:gsub("n't", " not ")
+    -- Get rid of quotes around words
+    s = s:gsub('"', ' ')
+    s = s:gsub("%s+'", ' ')
+    s = s:gsub("'%s+", ' ')
+    -- Remove HTML entities
+    s = s:gsub('&.-;', ' ')
+    s = s:gsub('%b<>', ' ')
+    -- Remove end-of-line backslashes
+    s = s:gsub('%s+\\$', ' ')
+    -- Remove dashes (not hyphens)
+    s = s:gsub('%-%-+', ' ')
+    s = s:gsub('%-%s', ' ')
+    -- Remove everything that is not letters or numbers
+    s = s:gsub('[%.!%?:;,%[%]%(%)<>]', ' ')
+    -- Remove extra spaces
+    s = s:gsub('%s+', ' ')
+    return s:lower()
+end
+
+-- This function is called once for the whole document. Parameters:
+-- body is a string, metadata is a table, variables is a table.
+-- One could use some kind of templating
+-- system here; this just gives you a simple standalone HTML file.
+function Doc(body, metadata, variables)
+    local buffer = ""
+    local function add(s)
+        buffer = buffer .. nude(s) .. "\n"
+    end
+    if metadata['title'] then
+        add(metadata['title'])
+    end
+    if metadata['subtitle'] then
+        add(metadata['subtitle'])
+    end
+    -- TODO: epigraph.content, epigraph.attrib, dedication, other metadata?
+    add(body)
+    return flow(buffer)
+end
+
+-- Remove all formatting {{{
+function Note(s)
+    return nude(s)
+end
+
+function Blocksep()
+    return "\n"
+end
+function Emph(s)
+    return nude(s)
+end
+
+function Strong(s)
+    return nude(s)
+end
+
+function Subscript(s)
+    return nude(s)
+end
+
+function Superscript(s)
+    return nude(s)
+end
+
+function SmallCaps(s)
+    return nude(s)
+end
+
+function Strikeout(s)
+    return nude(s)
+end
+
+function Code(s, attr)
+    return nude(s)
+end
+
+function CodeBlock(s, attr)
+    return nude(s)
+end
+
+function InlineMath(s)
+    return nude(s)
+end
+
+function DisplayMath(s)
+    return nude(s)
+end
+
+function Span(s, attr)
+    return nude(s)
+end
+
+function Cite(s)
+    return nude(s)
+end
+
+function Plain(s)
+    return nude(s)
+end
+
+-- Links only include the link text
+function Link(s, src, tit)
+    return nude(s)
+end
+
+-- Images have nothing to give us
+-- (but add a space just in case)
+function Image(s, src, tit)
+    return "\n"
+end
+
+function CaptionedImage(s, src, tit)
+    return "\n"
+end
+
+function Str(s)
+    return nude(s)
+end
+
+function Div(s, attr)
+    return nude(s)
+end
+
+function Space(s)
+    return "\n"
+end
+
+function LineBreak()
+    return "\n"
+end
+
+function Para(s)
+    return nude(s)
+end
+
+function Header(lev, s, attr)
+    return nude(s)
+end
+
+function BlockQuote(s)
+    return nude(s)
+end
+
+function HorizontalRule()
+    return "\n"
+end
+
+function BulletList(items)
+    local buffer = ""
+    for _, item in pairs(items) do
+        buffer = buffer .. nude(item) .. "\n"
+    end
+    return buffer .. "\n"
+end
+
+function OrderedList(items)
+    local buffer = ""
+    for _, item in pairs(items) do
+        buffer = buffer .. nude(item) .. "\n"
+    end
+    return buffer .. "\n"
+end
+
+function DefinitionList(items)
+    local buffer = ""
+    for _, item in pairs(items) do
+        for k, v in pairs(item) do
+            buffer = buffer .. nude(k) .. "\n" .. nude(v) .. "\n"
+        end
+    end
+    return buffer .. "\n"
+end
+
+function Table(caption, aligns, widths, headers, rows)
+    local buffer = ""
+    local function add(s)
+        buffer = buffer .. nude(s) .. "\n"
+    end
+    if caption ~= "" then
+        add(caption)
+    end
+    for _,h in pairs(headers) do
+        add(h)
+    end
+    for _, row in pairs(rows) do
+        for _, cell in pairs(row) do
+            add(cell)
+        end
+    end
+    return buffer
+end
+-- }}}
+
+-- The following code will produce runtime warnings when you haven't defined
+-- all of the functions you need for the custom writer, so it's useful
+-- to include when you're working on a writer.
+local meta = {}
+meta.__index =
+  function(_, key)
+    io.stderr:write(string.format("WARNING: Undefined function '%s'\n",key))
+    return function() return "" end
+  end
+setmetatable(_G, meta)
+