¿Código fuente que enumera algo así como los libros de programadores pragmáticos con LaTeX?

Question

Cuando leí los libros pragmático de estantería, que tiene el siguiente formato:

http://img210.imageshack.us/img210/2965/screenshot20100717at121.png

• ¿Cómo se puede hacer eso con LaTeX? Los números de línea en el lado izquierdo, colorear el código fuente y el nombre de fuente en gris.
• ¿Cuáles son las herramientas para el listado del código fuente con LaTeX?

Answer 1

El paquete para el formato de código fuente en el látex es listings. Vea lo que puede hacer en su manual here.

Esto es lo cerca que he conseguido:

The listing, as typeset in LaTeX http://i29.tinypic.com/wb8bdi.png

El nombre de archivo del subtítulo es también el destino del enlace Download. Perdón por la falta de curvas redondas. Esos probablemente se pueden hacer con TikZ.

Aquí es el preámbulo:

\usepackage{listings} 
\usepackage[T1]{fontenc} 
\usepackage[scaled]{beramono} 
\usepackage{tgadventor} 
\usepackage[usenames,dvipsnames]{color} 
\usepackage[colorlinks=true]{hyperref} 

\definecolor{lineno}{rgb}{0.5,0.5,0.5} 
\definecolor{code}{rgb}{0,0.1,0.6} 
\definecolor{keyword}{rgb}{0.5,0.1,0.1} 
\definecolor{titlebox}{rgb}{0.85,0.85,0.85} 
\definecolor{download}{rgb}{0.8,0.1,0.5} 
\definecolor{title}{rgb}{0.4,0.4,0.4} 

\lstset{ 
    language=Lisp, 
    basicstyle=\ttfamily\small\color{code}, 
    showspaces=false, 
    showstringspaces=false, 
    numbers=left, 
    firstnumber=1, 
    stepnumber=5, 
    numberfirstline=true, 
    numberstyle=\color{lineno}\sffamily\scriptsize, 
    keywordstyle=\color{keyword}\bfseries, 
    stringstyle=\itshape, 
    morekeywords={dosync,if}, 
    deletekeywords={alter} 
} 

\makeatletter 
\gdef\lst@SkipOrPrintLabel{% 
    \ifnum\lst@skipnumbers=\z@ 
     \global\advance\lst@skipnumbers-\lst@stepnumber\relax 
     \lst@PlaceNumber 
     \lst@numberfirstlinefalse 
    \else 
     \lst@ifnumberfirstline 
      {\def\thelstnumber{Line \@arabic\c@lstnumber}\lst@PlaceNumber}% 
      \lst@numberfirstlinefalse 
     \else 
      {\def\thelstnumber{-}\lst@PlaceNumber}% 
     \fi 
    \fi 
    \global\advance\lst@skipnumbers\@ne}% 
\def\lst@maketitle#1{ 
    \vskip\abovecaptionskip 
    \colorbox{titlebox}{ 
     \scriptsize 
     \color{download}\ttfamily\href{http://example.com/#1}{Download} 
     \color{title}\sffamily\bfseries#1} 
    \vskip\belowcaptionskip} 
\makeatother 

Entonces, componer una lista en el cuerpo con:

\begin{lstlisting}[title=examples/introduction.clj] 
(defn hello 
    "Writes hello message to *out*. Calls you by username. 
    Knows if you have been here before." 
    [username] 
    (dosync 
    (let [past-visitor (@visitors username)] 
     (if past-visitor 
     (str "Welcome back, " username) 
     (do 
      (alter visitors conj username) 
      (str "Hello, " username)))))) 
\end{lstlisting} 

Me encanta LaTeX.