法院法律记录模板

Question

我正在尝试复制一份法庭记录。我找不到可以准确执行此操作的软件包或其他示例。有人做过这个吗？

附件是这些成绩单的视觉示例。

• 应该有带有垂直线的连续编号行。
• 新发言者均缩进且全部大写。

如果有一些代码，您只需编写\speaker{Admiral Smith}并自动执行格式化，那就太好了。

正如您所看到的，我在这里遇到了麻烦：

    \documentclass[hidelinks, 12pt]{article} % Uses 10pt

    \newcommand{\Title}{\textbf{Title}}    

    \usepackage{dashrule}

    \usepackage{color,graphicx, url}

    \usepackage{wallpaper}
    \usepackage{soul}
    \usepackage{pifont}

    \usepackage{fontspec}
    \usepackage{xunicode} 

    %%%%%%% FONTS

    \setmainfont[Mapping=tex-text]{Courier} 
    \newfontfamily\headerfont{Courier}

    %%%% Geometry

    \usepackage{geometry}
    \geometry{
    letterpaper, 
    top=.7in,
    left=1in,
    right=1in,
    bottom=1in,
    }

    \begin{document}
    \rule[\dimexpr \topskip-\textheight]{1pt}{\textheight}\hfill
    \thispagestyle{empty}

    THE PRESIDENT: Hello Admiral! How's the steam today?

    ADMIRAL SMITH: ... Uh, yes sir. We're really loving the steam 
    today.


    \end{document}

Answer 1

根据需要，可以添加更多宏：

\documentclass{article}

\usepackage{geometry,eso-pic,fancyhdr}
\geometry{
  paper = letterpaper, 
  hmargin = 1.5in,
  vmargin = 1in
}
\usepackage[pagewise]{lineno}
\linenumbers % Add line numbers to document
\setlength{\linenumbersep}{1in}% Move line numbers away from text
\renewcommand{\linenumberfont}{\normalsize\ttfamily}

% Add rules to outside of text block
\AddToShipoutPictureBG{%
  \AtTextLowerLeft{%
    % Left rule
    \makebox[0pt][r]{\rule[-.5\paperheight]{.4pt}{2\paperheight}\hspace{0.8in}}%
  }%
  \AtTextLowerLeft{%
    % Right rule
    \hspace*{\textwidth}%
    \makebox[0pt][l]{\hspace{0.4in}\rule[-.5\paperheight]{.4pt}{2\paperheight}}%
  }%
}

\fancyhf{}% Clear header/footer
\renewcommand{\headrulewidth}{0pt}% Remove header rule
% \renewcommand{\footrulewidth}{0pt}% Remove footer rule (default)
\fancyfoot[R]{\ttfamily\thepage}
\pagestyle{fancy}

\AtBeginDocument{%
  \ttfamily
  \thispagestyle{fancy}
  \raggedright
  \setlength{\parindent}{15pt}
  \setlength{\parskip}{\smallskipamount}
}
\newcommand{\speaker}[1]{%
  \par\MakeUppercase{#1}:~\ignorespaces
}

\usepackage{lipsum}

\begin{document}

\speaker{The President}
Hello Admiral! How's the steam today?

\speaker{Admiral Smith}
\ldots Uh, yes sir. We're really loving the steam today.

\lipsum[1-2]

\speaker{Harry Potter}
\lipsum[3-7]

\end{document}

Answer 2

这是另一种方法，具有不同的重点。

1. 关键是使用宏 ( \newcommand) 来缩写所涉及的人员、角色等。我可以重复使用沃纳 \speaker解决方案，但这种方式足够简单。请注意\parindent中的本地覆盖\dscr。如果您需要在文本之前或之后执行操作，请用 替换\newenvironment。

% ~~~ macros ~~~~~~~~~~~~~~~~~~~~~~~
\newcommand\crt[1]{THE COURT:\ #1}
\newcommand\dfa[1]{DEFENDANT ALLEN:\ #1}
\newcommand\aln[1]{MR. ALLEN:\ #1}
\newcommand\dscr[1]{{\parindent0pt[#1]}}

2. 字体大小可能与所选路线相符，也可能不符。

3. 行号字体需要稍微调整一下。Werner 的解决方案是：

\renewcommand{\linenumberfont}{\normalfont}

4. 为了检查页面编号的正确性（这似乎取决于前一个）\renewcommand，我为第二页复制了一些文本。

5. 其余部分，全局布局，页眉和页脚，垂直规则已经由 OP 或沃纳的回答。所以我删除了它们，以便更好地展示使用缩写的新方面。

\documentclass[12pt]{article}

% ~~~ COURIER ~~~~~~~~~~~~
\usepackage{courier}
\renewcommand{\rmdefault}{\ttdefault}

% ~~~ line numbers ~~~~~~~~~~~~~
%     adapted from Werners answer https://tex.stackexchange.com/a/461446/245790
\usepackage[pagewise]{lineno}
\linenumbers % Add line numbers to document
\setlength{\linenumbersep}{1in}% Move line numbers away from text
\renewcommand{\linenumberfont}{\normalfont}

% ~~~ macros ~~~~~~~~~~~~~~~~~~~~~~~
\newcommand\crt[1]{THE COURT:\ #1}
\newcommand\dfa[1]{DEFENDANT ALLEN:\ #1}
\newcommand\aln[1]{MR. ALLEN:\ #1}
\newcommand\dscr[1]{{\parindent0pt[#1]}}

% ~~~ layout ~~~
\parindent24pt%         hanging indent
\linespread{2.33}%      factor for line separations

% ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
\begin{document}
    \dscr{The Court advises defendant reagarding representation by the public defender on defendant's oral motion to fire his assigned \dots}

    \crt{Okay. Mr.-Mr. Allen?}
        
    \dfa{Right.}

    \crt{I believe that-Ibelieve your cas is going to be \dots
    
    Okay. Do you understand that?}
    
    \aln{Yes. Uh-}
    
    \crt{Okay. I tell you if you needed to tell me something, I want-I'll let you come up here to the podium so you \dots}

    \dscr{The defendant approached the podium.}
    
    \newpage%   just for checking purposes
    
    \crt{Okay. Mr.-Mr. Allen?}
        
    \dfa{Right.}

    \crt{I believe that-Ibelieve your cas is going to be \dots
    
    Okay. Do you understand that?}
    
    \aln{Yes. Uh-}
    
    \crt{Okay. I tell you if you needed to tell me something, I want \dots}

    \dscr{The defendant approached the podium.} 
    
\end{document}