summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/shipunov/tex/dline.sty
blob: 657b8032fcda8af58d855560f83761448aaeb23e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
% Author: Alexey Shipunov, dactylorhiza@gmail.com

\ProvidesPackage{dline}
	[2019/10/03 v1.01 Double line on the left of text, based on "lineno" and "bframe"]

\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{lineno}}
\ProcessOptions*
\RequirePackage{lineno}

\newbox\dlinebox

% In principle, this is possible to redefiine...
\newdimen\dlinerule \dlinerule=\fboxrule
\newdimen\ddlinerule \ddlinerule=3\fboxrule
\newdimen\dlinesep \dlinesep=3\fboxsep
\newdimen\ddlinesep \ddlinesep=\fboxsep

\newenvironment{dline}
  {\par
   \@tempdima\textwidth
   \advance\@tempdima 2\dlinesep
   \setbox\dlinebox\hbox to\textwidth{%
      \hskip-\dlinesep
      \vrule\@width\dlinerule\@height\baselineskip\@depth\ddlinesep
      \hskip-\ddlinesep
      \vrule\@width\ddlinerule\@height\baselineskip\@depth\ddlinesep
   }%
   \nobreak
   \runninglinenumbers
   \def\makeLineNumber{\copy\dlinebox\hss}%
  }
  {\par
   \@tempdima\textwidth
   \advance\@tempdima 2\dlinesep
  }

\endinput