
% This is public domain
% There is no warranty

\documentclass[a4paper,finnish,17pt]{memoir}

% Packages
\usepackage[latin1]{inputenc}
% THIS IS WEIRD
\usepackage[U]{fontenc}
\usepackage[finnish,english]{babel}

\usepackage{nopageno}
\usepackage{textcomp}
\usepackage{pslatex}
\usepackage{type1cm}

%%%%%%%%%%%%%%%%%
% Marginals etc.
\pagestyle{empty}
\setlength{\parindent}{0mm}
\setlrmarginsandblock{2.5cm}{2.5cm}{*}
\setulmarginsandblock{2.5cm}{2.5cm}{*}
\checkandfixthelayout

%%%%%%%%%%%%%
% Fontfamily

\usepackage{uni}
\renewcommand{\sfdefault}{uni}
\renewcommand{\familydefault}{\sfdefault}
\fontfamily{\familydefault}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Poetry commands (verse)

% Vertical lengths

%\setlength{\stanzaskip}{\bigskipamount}
%\setlength{\stanzaskip}{1.5em}
%\setlength{\stanzaskip}{\baselineskip}
\setlength{\stanzaskip}{0.6\baselineskip}

%\setlength{\beforepoemtitleskip}{3.5ex \@plus 1ex \@minus .2ex}
%\setlength{\beforepoemtitleskip}{\smallskipamount}
\setlength{\beforepoemtitleskip}{0em}
%\setlength{\afterpoemtitleskip}{2.3ex \@plus.2ex}
%\setlength{\afterpoemtitleskip}{\medskipamount}
\setlength{\afterpoemtitleskip}{\bigskipamount}
%\setlength{\afterpoemtitleskip}{0em}

% Horizontal lengths
\setlength{\vgap}{1.5em}

% (re)newcommands
\renewcommand{\poemtoc}{section}

%\renewcommand{\poemtitlefont}{\fontfamily{pag}\Huge\raggedright}
%\renewcommand{\poemtitlefont}{\raggedright\fontfamily{pag}\fontsize{28pt}{30pt}\selectfont}
\renewcommand{\poemtitlefont}{\raggedright\fontfamily{uni}\bfseries\fontsize{24pt}{26pt}\selectfont}

\newcommand{\attrib}[1]{%
\nopagebreak{\bigskip \raggedleft \fontsize{18}{20t}\selectfont #1\par}}

% linenumbers
\linenumberfrequency{5}
\linenumberfont{\fontsize{14t}{16t}\fontfamily{uni}\selectfont}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{document}

\fontsize{20pt}{22pt}
\selectfont
\selectlanguage{finnish}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% http://www.loremipsum.net/
% http://www.loremipsum.de/
% http://www.saila.com/usage/lorem/
%

\poemtitle{Lorem ipsum%
\\(dolor sit amet)}
\settowidth{\versewidth}{no sea takimata sanctus est Lorem ipsum dolor sit amet}
\begin{verse}[\versewidth]
Lorem ipsum dolor sit amet \\
consetetur sadipscing elitr \\ 
sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat \\
sed diam voluptua \\! 

At vero eos et accusam et justo duo dolores et ea rebum \\!
Stet clita kasd gubergren \\
no sea takimata sanctus est Lorem ipsum dolor sit amet \\!

Lorem ipsum dolor sit amet \\
consetetur sadipscing elitr \\
sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat \\
sed diam voluptua \\!

At vero eos et accusam et justo duo dolores et ea rebum \\!

Stet clita kasd gubergren \\
no sea takimata sanctus est Lorem ipsum dolor sit amet \\!

Lorem ipsum dolor sit amet \\
consetetur sadipscing elitr \\
sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat \\
sed diam voluptua \\!

At vero eos et accusam et justo duo dolores et ea rebum \\!

Stet clita kasd gubergren \\
no sea takimata sanctus est Lorem ipsum dolor sit amet \\!
\end{verse}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\attrib{Joe ''Random'' Poet}

\vfill
\rule{\textwidth}{0.05em}
\fontsize{12pt}{14pt}
\selectfont

\begin{sloppypar}
  \selectlanguage{english}%
  \fontfamily{uni}\selectfont Copyleft~%
  \fontfamily{cmss}\selectfont \textcopyleft~%
  \fontfamily{uni}\selectfont 2003
  \selectlanguage{finnish}%
  Joe~''Random''~Poet 
  \selectlanguage{english}
  \fontfamily{cmtt}\selectfont
  <random@example.com> http://www.example.com/\%7Erandom/poems/~.%
  \fontfamily{uni}\selectfont~This poem is free\@; it may be
  copied\@, distributed or modified under certain conditions\@, but
  comes WITHOUT ANY WARRANTY\@; see the Design Science License for the
  precise terms and conditions\@: %
  \fontfamily{cmtt} \selectfont%
  http://www.dsl.org/copyleft/dsl.txt\fontfamily{uni}\selectfont~.
\end{sloppypar}

\end{document}
