% -*- mode: tex -*-
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                STANDARD                                      %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\definefontfeature[default][default]
                  [protrusion=quality,
                    expansion=quality,
                    script=latn]
\setupalign[hz,hanging]
\setuptolerance[tolerant]
\setbreakpoints[compound]
\setupindenting[yes,1em]
\setupfootnotes[way=bychapter,align={hz,hanging}]
\setupbodyfont[modern] % this is a stinky workaround to load lmodern
\setupbodyfont[libertine,11pt]

\setuppagenumbering[alternative=singlesided,location={footer,middle}]
\setupcaptions[width=fit,align={hz,hanging},number=no]

\startmode[a4imposed,a4imposedbc,letterimposed,letterimposedbc,a5imposed,%
  a5imposedbc,halfletterimposed,halfletterimposedbc]
  \setuppagenumbering[alternative=doublesided]
\stopmode

\setupbodyfontenvironment[default][em=italic]


\setupheads[%
  sectionnumber=no,number=no,
  align=flushleft,
  align={flushleft,nothyphenated,verytolerant,stretch},
  indentnext=yes,
  tolerance=verytolerant]

\definehead[awikipart][chapter]

\setuphead[awikipart]
          [%
            number=no,
            footer=empty,
            style=\bfd,
            before={\blank[force,2*big]},
            align={middle,nothyphenated,verytolerant,stretch},
            after={\page[yes]}
          ]

% h3
\setuphead[chapter]
          [style=\bfc]

\setuphead[title]
          [style=\bfc]


% h4
\setuphead[section]
          [style=\bfb]

% h5
\setuphead[subsection]
          [style=\bfa]

% h6
\setuphead[subsubsection]
          [style=bold]


\setuplist[awikipart]
          [alternative=b,
            interaction=all,
            width=0mm,
            distance=0mm,
            before={\blank[medium]},
            after={\blank[small]},
            style=\bfa,
            criterium=all]
\setuplist[chapter]
          [alternative=c,
            interaction=all,
            width=1mm,
            before={\blank[small]},
            style=bold,
            criterium=all]
\setuplist[section]
          [alternative=c,
            interaction=all,
            width=1mm,
            style=\tf,
            criterium=all]
\setuplist[subsection]
          [alternative=c,
            interaction=all,
            width=8mm,
            distance=0mm,
            style=\tf,
            criterium=all]
\setuplist[subsubsection]
          [alternative=c,
            interaction=all,
            width=15mm,
            style=\tf,
            criterium=all]


% center

\definestartstop
  [awikicenter]
  [before={\blank[line]\startalignment[middle]},
   after={\stopalignment\blank[line]}]

% right

\definestartstop
  [awikiright]
  [before={\blank[line]\startalignment[flushright]},
   after={\stopalignment\blank[line]}]


% blockquote

\definestartstop
  [blockquote]
  [before={\blank[big]
    \setupnarrower[middle=1em]
    \startnarrower
    \setupindenting[no]
    \setupwhitespace[medium]},
  after={\stopnarrower
    \blank[big]}]

% verse

\definestartstop
  [awikiverse]
  [before={\blank[big]
      \setupnarrower[middle=2em]
      \startnarrower
      \startlines},
    after={\stoplines
      \stopnarrower
      \blank[big]}]

\definestartstop
  [awikibiblio]
  [before={%
      \blank[big]
      \setupnarrower[left=1em]
      \startnarrower[left]
        \setupindenting[yes,-1em,first]},
    after={\stopnarrower
      \blank[big]}]
                
% same as above, but with no spacing around
\definestartstop
  [awikiplay]
  [before={%
      \setupnarrower[left=1em]
      \startnarrower[left]
        \setupindenting[yes,-1em,first]},
    after={\stopnarrower}]



% interaction
% we start the interaction only if it's not an imposed format.
\startnotmode[a4imposed,a4imposedbc,letterimposed,letterimposedbc,a5imposed,%
  a5imposedbc,halfletterimposed,halfletterimposedbc]
  \setupinteraction[state=start,color=black,contrastcolor=black,style=bold]
  \placebookmarks[awikipart,chapter,section,subsection,subsubsection][force=yes]
  \setupinteractionscreen[option=bookmark]
\stopnotmode



\setupexternalfigures[%
  maxwidth=\textwidth,
  maxheight=\textheight,
  factor=fit]

\setupitemgroup[itemize][each][packed][indenting=no]

\definemakeup[titlepage][pagestate=start,doublesided=no]

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                IMPOSER                                       %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\startusercode

function optimize_signature(pages,min,max)
   local minsignature = min or 40
   local maxsignature = max or 80
   local originalpages = pages

   -- here we want to be sure that the max and min are actual *4
   if (minsignature%4) ~= 0 then
      global.texio.write_nl('term and log', "The minsig you provided is not a multiple of 4, rounding up")
      minsignature = minsignature + (4 - (minsignature % 4))
   end
   if (maxsignature%4) ~= 0 then
      global.texio.write_nl('term and log', "The maxsig you provided is not a multiple of 4, rounding up")
      maxsignature = maxsignature + (4 - (maxsignature % 4))
   end
   global.assert((minsignature % 4) == 0, "I suppose something is wrong, not a n*4")
   global.assert((maxsignature % 4) == 0, "I suppose something is wrong, not a n*4")

   --set needed pages to and and signature to 0
   local neededpages, signature = 0,0

   -- this means that we have to work with n*4, if not, add them to
   -- needed pages 
   local modulo = pages % 4
   if modulo==0 then
      signature=pages
   else
      neededpages = 4 - modulo
   end

   -- add the needed pages to pages
   pages = pages + neededpages
   
   if ((minsignature == 0) or (maxsignature == 0)) then 
      signature = pages -- the whole text
   else
      -- give a try with the signature
      signature = find_signature(pages, maxsignature)
      
      -- if the pages, are more than the max signature, find the right one
      if pages>maxsignature then
	 while signature<minsignature do
	    pages = pages + 4
	    neededpages = 4 + neededpages
	    signature = find_signature(pages, maxsignature)
	    --         global.texio.write_nl('term and log', "Trying signature of " .. signature)
	 end
      end
      global.texio.write_nl('term and log', "Parameters:: maxsignature=" .. maxsignature ..
		   " minsignature=" .. minsignature)

   end
   global.texio.write_nl('term and log', "ImposerMessage:: Original pages: " .. originalpages .. "; " .. 
	 "Signature is " .. signature .. ", " ..
	 neededpages .. " pages are needed, " .. 
	 pages ..  " of output")
   -- let's do it
   tex.print("\\dorecurse{" .. neededpages .. "}{\\page[empty]}")

end

function find_signature(number, maxsignature)
   global.assert(number>3, "I can't find the signature for" .. number .. "pages")
   global.assert((number % 4) == 0, "I suppose something is wrong, not a n*4")
   local i = maxsignature
   while i>0 do
      -- global.texio.write_nl('term and log', "Trying " .. i  .. "for max of " .. maxsignature)
      if (number % i) == 0 then
	 return i
      end
      i = i - 4
   end
end

\stopusercode

\define[1]\fillthesignature{
  \usercode{optimize_signature(#1, 40, 80)}}


\define\alibraryflushpages{
  \page[yes] % reset the page
  \fillthesignature{\the\realpageno}
}


% various papers 
\definepapersize[halfletter][width=5.5in,height=8.5in]
\definepapersize[halfafour][width=148.5mm,height=210mm]
\definepapersize[quarterletter][width=4.25in,height=5.5in]
\definepapersize[halfafive][width=105mm,height=148mm]
\definepapersize[generic][width=210mm,height=279.4mm]

%% this is the default ``paper'' which should work with both letter and a4

\setuppapersize[generic][generic]
\setuplayout[%
  backspace=42mm,
  topspace=31mm,% 176 / 15
  height=195mm,%130mm,
  footer=9mm, %
  header=0pt, % no header
  width=126mm] % 10.5 x 11

\startmode[libertine]
  \usetypescript[libertine]
  \setupbodyfont[libertine,11pt]
\stopmode

\startmode[pagella]
  \setupbodyfont[pagella,11pt]
\stopmode

\startmode[antykwa]
  \setupbodyfont[antykwa-poltawskiego,11pt]
\stopmode

\startmode[iwona]
  \setupbodyfont[iwona-medium,11pt]
\stopmode

\startmode[helvetica]
  \setupbodyfont[heros,11pt]
\stopmode

\startmode[century]
  \setupbodyfont[schola,11pt]
\stopmode

\startmode[modern]
  \setupbodyfont[modern,11pt]
\stopmode

\startmode[charis]
  \setupbodyfont[charis,11pt]
\stopmode        

\startmode[mini]
  \setuppapersize[S33][S33] % 176 × 176 mm
  \setuplayout[%
    backspace=20pt,
    topspace=15pt,% 176 / 15
    height=280pt,%130mm,
    footer=20pt, %
    header=0pt, % no header
    width=260pt] % 10.5 x 11
\stopmode

% for the plain A4 and letter, we use the classic LaTeX dimensions
% from the article class
\startmode[a4]
  \setuppapersize[A4][A4]
  \setuplayout[%
    backspace=42mm,
    topspace=45mm,
    height=218mm,
    footer=10mm,
    header=0pt, % no header
    width=126mm]
\stopmode

\startmode[letter]
  \setuppapersize[letter][letter]
  \setuplayout[%
    backspace=44mm,
    topspace=46mm,
    height=199mm,
    footer=10mm,
    header=0pt, % no header
    width=126mm]
\stopmode


% A4 imposed (A5), with no bc

\startmode[a4imposed]
% DIV=15 148 × 210: these are meant not to have binding correction,
  % but just to play safe, let's say 1mm => 147x210
  \setuppapersize[halfafour][halfafour]
  \setuplayout[%
    backspace=10.8mm, % 146/15 = 9.8 + 1
    topspace=14mm, % 210/15 =  14
    height=182mm, % 14 x 12 + 14 of the footer
    footer=14mm, %
    header=0pt, % no header
    width=117.6mm] % 9.8 x 12
\stopmode

% A4 imposed (A5), with bc
\startmode[a4imposedbc]
  \setuppapersize[halfafour][halfafour]
  \setuplayout[% 14 mm was a bit too near to the spine, using the glue binding
    backspace=17.3mm,  % 140/15 + 8 =
    topspace=14mm, % 210/15 =  14
    height=182mm, % 14 x 12 + 14 of the footer
    footer=14mm, %
    header=0pt, % no header
    width=112mm] % 9.333 x 12
\stopmode


\startmode[letterimposedbc] % 139.7mm x 215.9 mm
  \setuppapersize[halfletter][halfletter]
  % DIV=15 8mm binding corr, => 132 x 216
  \setuplayout[%
    backspace=16.8mm, % 8.8 + 8
    topspace=14.4mm, % 216/15 =  14.4
    height=187.2mm, % 15.4 x 11 + 15 of the footer
    footer=14.4mm, %
    header=0pt, % no header
    width=105.6mm] % 8.8 x 12
\stopmode

\startmode[letterimposed] % 139.7mm x 215.9 mm
  \setuppapersize[halfletter][halfletter]
  % DIV=15, 1mm binding correction. => 138.7x215.9
  \setuplayout[%
    backspace=10.3mm, % 9.24 + 1
    topspace=14.4mm, % 216/15 =  14.4
    height=187.2mm, % 15.4 x 11 + 15 of the footer
    footer=14.4mm, %
    header=0pt, % no header
    width=111mm] % 9.24 x 12
\stopmode

%%% new formats for mini books
%%% \definepapersize[halfafive][width=105mm,height=148mm]

\startmode[a5imposed]
% DIV=12 105x148 : these are meant not to have binding correction,
  % but just to play safe, let's say 1mm => 104x148
  \setuppapersize[halfafive][halfafive]
  \setuplayout[%
    backspace=9.6mm,
    topspace=12.3mm,
    height=123.5mm, % 14 x 12 + 14 of the footer
    footer=12.3mm, %
    header=0pt, % no header
    width=78.8mm] % 9.8 x 12
\stopmode

% A5 imposed (A6), with bc
\startmode[a5imposedbc]
% DIV=12 105x148 : with binding correction,
  % let's say 8mm => 96x148
  \setuppapersize[halfafive][halfafive]
  \setuplayout[%
    backspace=16mm,
    topspace=12.3mm,
    height=123.5mm, % 14 x 12 + 14 of the footer
    footer=12.3mm, %
    header=0pt, % no header
    width=72mm] % 9.8 x 12
\stopmode

%%% \definepapersize[quarterletter][width=4.25in,height=5.5in]

% DIV=12 width=4.25in (108mm),height=5.5in (140mm) 
\startmode[halfletterimposed] % 107x140
  \setuppapersize[quarterletter][quarterletter]
  \setuplayout[%
    backspace=10mm,
    topspace=11.6mm,
    height=116mm,
    footer=11.6mm,
    header=0pt, % no header
    width=80mm] % 9.24 x 12
\stopmode

\startmode[halfletterimposedbc]
  \setuppapersize[quarterletter][quarterletter]
  \setuplayout[%
    backspace=15.4mm,
    topspace=11.6mm,
    height=116mm,
    footer=11.6mm,
    header=0pt, % no header
    width=76mm] % 9.24 x 12
\stopmode

\startmode[quickimpose]
  \setuppapersize[A5][A4,landscape]
  \setuparranging[2UP]
  \setuppagenumbering[alternative=doublesided]
  \setuplayout[% 14 mm was a bit too near to the spine, using the glue binding
    backspace=17.3mm,  % 140/15 + 8 =
    topspace=14mm, % 210/15 =  14
    height=182mm, % 14 x 12 + 14 of the footer
    footer=14mm, %
    header=0pt, % no header
    width=112mm] % 9.333 x 12
\stopmode

\startmode[tenpt]
  \setupbodyfont[10pt]
\stopmode

\startmode[twelvept]
  \setupbodyfont[12pt]
\stopmode

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                            DOCUMENT BEGINS                                   %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\mainlanguage[en]


\starttext

\starttitlepagemakeup
  \startalignment[middle,nothanging,nothyphenated,stretch]


  \switchtobodyfont[18pt] % author
  {\bf \em

Voltairine de Cleyre  \par}
  \blank[2*big]
  \switchtobodyfont[24pt] % title
  {\bf

The Gods and the People

\par}
  \blank[big]
  \switchtobodyfont[20pt] % subtitle
  {\bf 

\par}
  \vfill
  \stopalignment
  \startalignment[middle,bottom,nothyphenated,stretch,nothanging]
  \switchtobodyfont[global]

1897

  \stopalignment
\stoptitlepagemakeup



\page[yes,right]


\startblockquote
What have you done, O skies,


That the millions should kneel to you?


Why should they lift wet eyes,


Grateful with human dew?



\stopblockquote

\startblockquote
Why should they clasp their hands,


And bow at thy shrines, O heaven,


Thanking thy high commands


For the mercies that thou hast given?



\stopblockquote

\startblockquote
What have those mercies been,


O thou who art called the Good?


Who trod through a world of sin,


And stood where the felon stood



\stopblockquote

\startblockquote
What is that wondrous peace


Vouchsafed to the child of dust


For whom all doubt shall cease


In the light of thy perfect trust?



\stopblockquote

\startblockquote
How hast Thou heard their prayers


Smoking up from the bleeding sod,


Who, crushed by their weight of cares,


Cried up to thee, Most High God



\stopblockquote
\startawikicenter

* * *  

\stopawikicenter

\startblockquote
Where the swamps of Humanity sicken


Read the answer in dumb, white scars!


You, Skies, gave the sore and the stricken


The light of your far-off stars!



\stopblockquote

\startblockquote
The children who plead are driven,


Shelterless, through the street,


Receiving the Mercy of heaven


Hard-frozen in glittering Sleet!



\stopblockquote

\startblockquote
The women who prayed for pity,


Who called on the saving Name,


Through the walks of your merciless city,


Are crying the rent, of shame!



\stopblockquote

\startblockquote
The starving, who gazed till the plenty


In which they might not share


Have died in their hunger, rent by


The anguish of unheard prayer!



\stopblockquote

\startblockquote
The weary who plead for remission,


For a moment only release,


Have sunk, with unheeded petition — 


This the Christ-pledged Peace.



\stopblockquote

\startblockquote
These are the mercies of heaven,


These are the answer of God


To the prayers of the agony-shriven,


From the paths where the millions plod!



\stopblockquote

\startblockquote
The Silent scorn of the sightless!


The callous ear of the deaf!


The wrath of Might to the mightless!


The shroud and the mourning sheaf!



\stopblockquote

\startblockquote
Light — to behold their squalor!


Breath — to draw in life’s pain!


Voices to plead and call for


Heaven’s help — hearts tip bleed — in vain!



\stopblockquote
\startawikicenter

* * *  

\stopawikicenter

\startblockquote
What have you done, O Church,


That the weary should bless your name?


Should come with faith’s holy torch


To light up your altered fane?



\stopblockquote

\startblockquote
Why should they kiss the folds


Of The garment of your High Priest?


Or bow to the chalice that holds


The wine of your Sacred Feast?



\stopblockquote

\startblockquote
Have you blown out the breath of their sighs?


Have you strengthened the weak, the ill?


Have you wiped the dark tears from their eyes,


And bade their sobbing be still?



\stopblockquote

\startblockquote
Have you touched, have you known, have you felt,


Have you bent and softly smiled


In the face of the woman who dealt


In lewdness — to feed her child?



\stopblockquote

\startblockquote
Have you heard the cry in the night


Going up from the outraged heart,


Masked from the social sight


By the cloak that but angered the smart?



\stopblockquote

\startblockquote
Have you heard the children’s moan,


By the light of the skies denied? — 


Answer, O Walls of Stone,


In the name of your Crucified!



\stopblockquote
\startawikicenter

* * *  

\stopawikicenter

\startblockquote
Out of the clay of their heart-break,


From the red dew of its sod,


You have mortared your bricks for Christ’s sake


And reared a palace to God



\stopblockquote

\startblockquote
Your painters have dipped their brushes


In the tears and the blood of the race


Whom, living, your dark frown crushes


And limned — a dead Saviour’s face!



\stopblockquote

\startblockquote
Ye have seized, in the name of God, the


Child’s crust from famine’s dole;


You have taken the price of its body


And sung a mass for its soul!



\stopblockquote

\startblockquote
You have smiled on the man, who, deceiving,


Paid exemption to ease your wrath!


You have cursed the pour fool who believed him,


Though her body lay prone in your path!



\stopblockquote

\startblockquote
You have laid the seal on the lip!


You have bade us to be content!


To bow ‘neath our master’s whip,


And give thanks for the scourge — “heaven sent.”



\stopblockquote

\startblockquote
These, O Church are your thanks:


These are the fruits without flaw,


That flow from the chosen ranks


Who keep in your perfect law!



\stopblockquote

\startblockquote
Doors hard locked on the homeless,


Stained glass windows for bread!


On the living, the law of dumbness,


And the law of need, for the dead!



\stopblockquote

\startblockquote
Better the dead, who, not needing,


Go down to the vaults of the earth,


Than the living whose hearts lie bleeding,


Crushed by you at their very birth!



\stopblockquote
\startawikicenter

* * *  

\stopawikicenter

\startblockquote
What have you done, O State,


That the toilers should shout your ways?


Should light up the fires of their hate


If a “traitor” should dare dispraise?



\stopblockquote

\startblockquote
How do you guard the trust


That the people repose in you?


Do you keep to the law of the just,


And hold to the changeless true?



\stopblockquote

\startblockquote
What do you mean when you say


“The home of the free and brave?”


How free are your people, pray?


Have you no such thing as a slave?



\stopblockquote

\startblockquote
What are the lauded “rights,”


Broad-sealed by your Sovereign Grace?


What are the love-feeding sights


You yield to your subject race?



\stopblockquote
\startawikicenter

* * *  

\stopawikicenter

\startblockquote
The rights? — Ah! the right to toil,


That another, idle, may reap;


The right to make fruitful the soil,


And a meagre pittance to keep.



\stopblockquote

\startblockquote
The right of a woman to own


Her body spotlessly pure,


And starve in the street — alone!


The right of the wronged — to endure!



\stopblockquote

\startblockquote
The right of the slave — to its yoke,


The right of the hungry — to pray,


The right, of the toiler — to vote


For the master who buys his day!



\stopblockquote

\startblockquote
You have sold the sun and the air,


You have dealt in the price of blood,


You have taken the lion’s share


While the lion is fierce for food!



\stopblockquote

\startblockquote
You have laid the load of the strong


On the helpless, the young, the weak!


You have trod out the purple of wrong; — 


Beware where its wrath shall wreak!



\stopblockquote

\startblockquote
“Let the voice of the People be heard!


O — ” You strangled it with your rope,


Denied the last dying word


While your Trap and your Gallows spoke!



\stopblockquote

\startblockquote
But a thousand voices rise


Where the words of the martyr fell;


The seed springs fast to the Skies


Watered deep from that bloody well!



\stopblockquote
\startawikicenter

* * *  

\stopawikicenter

\startblockquote
Hark! Low down you will hear


The storm in the underground!


Listen, tyrants, and fear!


Quake at that muffled sound



\stopblockquote

\startblockquote
“Heavens that mocked our dust,


Smile on, in your pitiless blue!


Silent as you are to us,


So silent are we to you!



\stopblockquote

\startblockquote
“Churches that scourged our brains,


Priests that locked fast our hands!


We planted the torch in Your chains:


Now gather the burning brands!



\stopblockquote

\startblockquote
“States, that have given us law,


When we asked for the right to earn bread — 


The Sword that Damocles saw


By a hair swings over your head!



\stopblockquote

\startblockquote
What ye have sown ye shall reap:


Teardrops, and Blood, and Hate,


Gaunt gather before your Seat


And knock at your palace gate!



\stopblockquote

\startblockquote
“There are murderers on your thrones,


There are thieves in your Justice halls!


White Leprosy cancers their stones,


And gnaws at their worm-eaten walls!



\stopblockquote

\startblockquote
“And the Hand of Belshazzar’s Feast


Writes over, in flaming light,


‘Thought’s kingdom no more to the Priest;


Nor the law of Right to the Might.’”



\stopblockquote







\page[yes]

%%%% backcover

\startmode[a4imposed,a4imposedbc,letterimposed,letterimposedbc,a5imposed,%
  a5imposedbc,halfletterimposed,halfletterimposedbc,quickimpose]
\alibraryflushpages
\stopmode

\page[blank]

\startalignment[middle]
{\tfa The Anarchist Library
\blank[small]
Anti-Copyright}
\blank[small]
\currentdate
\stopalignment

\blank[big]
\framed[frame=off,location=middle,width=\textwidth]
       {\externalfigure[logo][width=0.25\textwidth]}



\vfill
\setupindenting[no]
\setsmallbodyfont

\startalignment[middle,nothyphenated,nothanging,stretch]

\blank[line]
% \framed[frame=off,location=middle,width=\textwidth]
%       {\externalfigure[logo][width=0.25\textwidth]}


Voltairine de Cleyre



The Gods and the People






1897


\stopalignment
\blank[line]

\startalignment[hyphenated,middle]


Issued by “Liberty” Press, Printed and Published by James Tochattl. London: 1897.



Retrieved on March 24\high{th}, 2009 from \goto{dwardmac.pitzer.edu}[url(http://dwardmac.pitzer.edu/Anarchist\_Archives/bright/cleyre/godsandpeople.html)]


\stopalignment

\stoptext


