源代碼列表像LaTeX的實用程序員書籍一樣？

Question

當我讀到務實書架的書，它具有以下格式：

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

• 我如何能做到這一點乳膠？左側的行號，着色源代碼和灰色源名稱。
• LaTeX的源代碼清單工具是什麼？

Answer 1

的包在乳膠格式化的源代碼是listings。看看它在手冊here中能做些什麼。

這是我多麼接近設法：

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

從字幕文件名也是Download鏈接的目標。對不起，缺乏圓角。這些可以用TikZ完成。

這裏的序言：

\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 

然後，排版上的列表中體：

\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} 

我愛乳膠。