Mrthfx

I'm trying to reproduce a court transcript. I find no packages or other examples that perform this exactly. Has anyone worked on this?

A visual example of how these transcripts look is attached.

• There should be continuous numbered lines with a vertical rule.


• New speakers are indented and in all caps.

Would be great if there was some code so that you could just write speaker{Admiral Smith} and have the formatting performed automatically.

As you can see, I'm having trouble here:

    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} 

    newfontfamilyheaderfont{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}

More macros can be added, depending on the needs:

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}{normalsizettfamily}



% Add rules to outside of text block

AddToShipoutPictureBG{%

  AtTextLowerLeft{%

    % Left rule

    makebox[0pt][r]{rule[-.5paperheight]{.4pt}{2paperheight}hspace{0.8in}}%

  }%

  AtTextLowerLeft{%

    % Right rule

    hspace*{textwidth}%

    makebox[0pt][l]{hspace{0.4in}rule[-.5paperheight]{.4pt}{2paperheight}}%

  }%

}



fancyhf{}% Clear header/footer

renewcommand{headrulewidth}{0pt}% Remove header rule

% renewcommand{footrulewidth}{0pt}% Remove footer rule (default)

fancyfoot[R]{ttfamilythepage}

pagestyle{fancy}



AtBeginDocument{%

  ttfamily

  thispagestyle{fancy}

  raggedright

  setlength{parindent}{15pt}

  setlength{parskip}{smallskipamount}

}

newcommand{speaker}[1]{%

  parMakeUppercase{#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}