Change file hierarchy and rewrite makefile

- File hierarchy is now as follows:
    - /
        - appendix/  < appendix source files
        - backlinks/ < backlink sources & builds
        - hapax/     < *.hapax source files
        - scripts/   < scripts, like *.js, *.hs, etc.
        - templates/ < templates for outputs
        - text/      < source files
        - trunk/     < assets, like css, images, heads, etc.
        - index.html
        - *.html
        - Makefile

8 files changed, 429 insertions, 0 deletions

@@ -0,0 +1,4 @@
+#!/bin/bash
+# addhead.sh <file> <header>
+
+
@@ -0,0 +1,85 @@
+#!/bin/bash
+# vim: fdm=marker
+
+getMeta() { # getMeta <metafield> <file> #{{{
+    local field="$1" file="$2";
+    sed -n '/^---$/,/^\.\.\.$/p' $file | \
+        grep "^${field}:" | \
+        cut -d' ' -f2- \
+    || return 1;
+} #}}}
+firstLineOf() { # firstLineOf <file> #{{{
+    local endOfYaml=$(sed -n '/^\.\.\.$/=' "$1")
+    local tryLine="" tryNum=$((endOfYaml + 1))
+    while [[ -z $tryLine ]]; do
+        tryLine=$(sed -n -e "${tryNum}p" "$1" | \
+                  sed -e 's/^[|>] //' \
+                      -e 's/[][]//g' \
+                      -e 's/^#.*//' \
+                      -e 's/^--.*//');
+        (( tryNum ++ ));
+    done
+    echo "$tryLine";
+} #}}}
+backLinksOf() { # backLinksOf <file> <in files> #{{{
+    local search="${1}"; shift; local glob="$@";
+    grep -ql "$search" $glob || return 1;
+} #}}}
+
+FILE="$1"; shift;
+case "$FILE" in
+    *.back)      # backlinks: compile.sh a.back a.txt #{{{
+        found=( $(backLinksOf "$(basename ${FILE%.*}).html" ${1%/*}/*.${1##*.}) );
+        if [[ $? -ne 0 ]]; then
+            echo "__ISLAND__"; exit;
+        fi
+        for f in "${found[@]}"; do
+            echo -n "- [$(getMeta title "$f")](../$(basename ${f%.*}).html)";
+            echo -n '<span class="daisy">'
+            echo -n "[&phi;]($(basename ${f%.*}).html)";
+            echo '</span>'
+        done
+        ;; #}}}
+    *island*)    # islands: compile.sh islands.txt *.txt #{{{
+        for f in $(grep -l "__ISLAND__" "$@"); do
+            echo "- [$(getMeta title "$f")]($(basename ${f%.*}).html)";
+        done
+        ;; #}}}
+    *hapax*)     # hapax: compile.sh hapax.txt *.hapax #{{{
+        for word in $(sort $FILE); do
+            f=$(grep -liwq "^$word$" "$@");
+            grep -qv "^[^0-9A-Za-z]" <<< $word && \
+            echo "[$word]($(basename ${f%.*}).html)";
+        done
+        ;; #}}}
+    *first-*)    # first-lines: compile.sh first-lines.txt *.txt #{{{
+        for f in "$@"; do
+            echo "[$(firstLineOf "$f")]($(basename ${f%.*}).html)";
+        done
+        ;; #}}}
+    *common-*)   # common-titles: compile.sh common-titles.txt *.txt #{{{
+        for f in "$@"; do
+            echo "[$(getMeta title "$f")]($(basename ${f%.*}).html)";
+        done
+        ;; #}}}
+    *toc*)       # table of contents: compile.sh toc.txt *.txt #{{{
+        for f in "$@"; do
+            echo "#. [$(getMeta toc "$f")]($(basename ${f%.*}).html)" >> $FILE;
+        done
+        ;; #}}}
+    *random*)    # randomize.js: compile.sh randomize.js *.html #{{{
+        rlist=$(echo "$@" | sed -e 's/\(\S\+.html\) \?/"\1",/g' \
+                                -e 's/^\(.*\),$/var files=[\1]/')
+        sed -i "s/var files=.*/$rlist/" $FILE;
+        ;; #}}}
+    --fix-head)  # fix backlink head: compile.sh --fix-head a.back a.txt #{{{
+        title="$(getMeta title "$2")";
+        id="$(getMeta id "$2")";
+        sed -i "s/__TITLE__/$title/" "$1";
+        sed -i "s/__ID__/$id/" "$1";
+        ;; #}}}
+    *)           # bad argument {{{
+        echo "Bad argument";
+        exit 1;
+        ;; #}}}
+esac
@@ -0,0 +1,8 @@
+#!/usr/bin/env runhaskell
+import Text.Pandoc.JSON
+
+main = toJSONFilter delink
+
+delink :: Inline -> [Inline]
+delink (Link txt _) = txt
+delink x            = [x]
@@ -0,0 +1,17 @@
+-- Preprocessor for hapax.lua writer
+-- because for some damn reason, UTF-8 confuses things
+
+import Text.Pandoc.JSON
+import Data.Char (isAscii)
+
+main :: IO ()
+main = toJSONFilter unFancy
+
+unFancy :: Inline -> Inline
+unFancy (Str s) = Str $ map makeAscii s
+unFancy x       = x
+
+makeAscii :: Char -> Char
+makeAscii c
+    | isAscii c = c
+    | otherwise = ' '
@@ -0,0 +1,252 @@
+-- Pandoc Hapax writer
+-- it takes out all formatting, leaving only a river of text
+-- running down the page: one word per line, stripping all duplicates
+-- vim: fdm=marker
+-- invoke with: pandoc -t hapax.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)
+    s = s:lower()
+    -- Expand contractions
+    s = s:gsub("'ll", " will ")
+    s = s:gsub("'ve", " have ")
+    s = s:gsub("'re", " are ")
+    s = s:gsub("i'm", " i am ")
+    s = s:gsub("it's", "it is")
+    s = s:gsub("n't", " not ")
+    s = s:gsub("'d", " would ") -- can be "had", but still no hapax
+    s = s:gsub("&", " and ")
+    -- -- Remove dashes (not hyphens)
+    s = s:gsub('%-[%-%s]+', ' ')
+    -- Remove everything that is not letters or numbers
+    s = s:gsub('[^A-Za-z0-9/\'-]', ' ')
+    -- Remove extra spaces
+    s = s:gsub('%s+', ' ')
+    return " "..s.." "
+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))
+    -- return flow(buffer)
+end
+
+-- Remove all formatting {{{
+function Note(s)
+    return s
+end
+
+function Blocksep()
+    return "\n"
+end
+function Emph(s)
+    return s
+end
+
+function Strong(s)
+    return s
+end
+
+function Subscript(s)
+    return s
+end
+
+function Superscript(s)
+    return s
+end
+
+function SmallCaps(s)
+    return s
+end
+
+function Strikeout(s)
+    return s
+end
+
+function Code(s, attr)
+    return s
+end
+
+function CodeBlock(s, attr)
+    return s
+end
+
+function InlineMath(s)
+    return s
+end
+
+function DisplayMath(s)
+    return s
+end
+
+function Span(s, attr)
+    return s
+end
+
+function Cite(s)
+    return s
+end
+
+function Plain(s)
+    return s
+end
+
+-- Links only include the link text
+function Link(s, src, tit)
+    return s
+end
+
+-- Images have nothing to give us
+-- (but add a space just in case)
+function Image(s, src, tit)
+    return "\n"
+end
+
+function RawBlock(s)
+    return s
+end
+
+function RawInline(s)
+    return s
+end
+
+function CaptionedImage(s, src, tit)
+    return "\n"
+end
+
+function Str(s)
+    return s
+end
+
+function Div(s, attr)
+    return s
+end
+
+function Space(s)
+    return "\n"
+end
+
+function LineBreak()
+    return "\n"
+end
+
+function Para(s)
+    return s
+end
+
+function Header(lev, s, attr)
+    return s
+end
+
+function BlockQuote(s)
+    return s
+end
+
+function HorizontalRule()
+    return "\n"
+end
+
+function BulletList(items)
+    local buffer = ""
+    for _, item in pairs(items) do
+        buffer = buffer .. " " .. item .. "\n"
+    end
+    return buffer .. "\n"
+end
+
+function OrderedList(items)
+    local buffer = ""
+    for _, item in pairs(items) do
+        buffer = buffer .. " " .. 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 .. " " .. k .. "\n" .. v .. "\n"
+        end
+    end
+    return buffer .. "\n"
+end
+
+function Table(caption, aligns, widths, headers, rows)
+    local buffer = ""
+    local function add(s)
+        buffer = buffer .. " " .. 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,27 @@
+/* Lozenge.js for Autocento of the breakfast table
+ * Cause a#lozenge to link to random file in array
+ * vim: fdm=marker
+ */
+
+function _randomize() {
+    var randomlink = document.getElementById('randomizelink');
+    // array with all files {{{
+    var files=["about-the-author.html","about.html","about_author.html","abstract.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","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","found-typewriter-poem.html","hands.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","one-hundred-lines.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","process.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]) {
+        randomlink.setAttribute("href", files[index]);
+        randomlink.setAttribute("title", "To random article");
+    } else {
+        _randomize()
+    }
+}
+
+window.onload = function () {
+    _randomize()
+};
@@ -0,0 +1,15 @@
+import Text.Pandoc.JSON
+import Data.List.Split
+
+main :: IO ()
+main = toJSONFilter transformVerseParas
+
+transformVerseParas :: Block -> Block
+transformVerseParas (Para xs)
+    | LineBreak `elem` xs = Para (addLineSpans xs)
+    | otherwise = Para xs
+transformVerseParas x = x
+
+addLineSpans :: [Inline] -> [Inline]
+addLineSpans = map encloseInSpan . splitWhen (== LineBreak)
+    where encloseInSpan = Span ("", ["line"], [])