pessay: add some new formatting options

1 files changed, 38 insertions, 9 deletions

diff --git a/texmf/tex/latex/pessay/pessay.cls b/texmf/tex/latex/pessay/pessay.cls
index d5042d6e..e004049d 100644
--- a/texmf/tex/latex/pessay/pessay.cls
+++ b/texmf/tex/latex/pessay/pessay.cls
@@ -16,6 +16,21 @@
 }
 \newcommand{\finishdouble}{\onehalfspacing}
 
+\newcommand{\dspacefn}{}
+
+\newcommand{\dspaceq}{\onehalfspacing}
+
+%% ---- Document title
+
+\newcommand{\dospwtitle}{\makeatletter\renewcommand{\maketitle}{\finishdouble\thispagestyle{plain}
+  \begin{center}\textsf{\@title}
+
+
+  \textsf{\@author}\ifthenelse{\equal{\@date}{}}{}{$\qquad\quad$}\textsf{\@date}
+
+\end{center}\startdouble
+}\makeatother}
+
 %% ---- Command to set up enumeration
 
 \newcommand{\enumsettings}{%
@@ -54,6 +69,22 @@
   \renewcommand{\finishdouble}{}%
 }
 
+%% Double spacing of footnotes
+
+\DeclareOption{dspacefns}{%
+  \renewcommand{\dspacefn}{%
+    \renewcommand{\footnotelayout}{\doublespacing}%
+    \newlength{\myfootnotesep}%
+    \setlength{\myfootnotesep}{\baselineskip}%
+    \addtolength{\myfootnotesep}{-\footnotesep}%
+    \setlength{\footnotesep}{\myfootnotesep}%
+  }%
+}
+
+%% Double spacing of quotations
+
+\DeclareOption{dspaceqs}{\renewcommand{\dspaceq}{\doublespacing}}
+
 %% A4 paper instead of (default) letter paper
 
 \newcommand{\papersettings}{%
@@ -82,6 +113,10 @@
   }%
 }
 
+%% Disable my title
+
+\DeclareOption{normaltitle}{\renewcommand{\dospwtitle}{}}
+
 %% ---- Pass options to the article class and then load it with
 %% ---- \papersettings (defined just above)
 
@@ -100,6 +135,7 @@
 \RequirePackage[sc,sf,bf,compact,medium]{titlesec}
 \RequirePackage{textcomp}
 \RequirePackage[norule,splitrule,stable,multiple]{footmisc}
+\dspacefn
 \RequirePackage{fnpct}
 %% \RequirePackage[utf8]{inputenc}
 %% \RequirePackage{ellipsis}
@@ -157,18 +193,11 @@
 
 %% ---- Document title
 
-\makeatletter\renewcommand{\maketitle}{\finishdouble\thispagestyle{plain}
-  \begin{center}\textsf{\@title}
-
-  
-  \textsf{\@author}\ifthenelse{\equal{\@date}{}}{}{$\qquad\quad$}\textsf{\@date}
-
-\end{center}\startdouble
-}\makeatother
+\dospwtitle
 
 %% ---- Style inline quotations
 
-\expandafter\def\expandafter\quote\expandafter{\quote\onehalfspacing\smaller[0.5]}
+\expandafter\def\expandafter\quote\expandafter{\quote\dspaceq\smaller[0.5]}
 
 %% ---- Lists