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
|
