% verbments.sty   v1.1   2011/07/07
%
% Copyright (C) 2011 by Dejan Zivkovic
% -----------------------------------
%
% This file may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.2
% of this license or (at your option) any later version.
% The latest version of this license is in:
%
% http://www.latex-project.org/lppl.txt
%
% and version 1.2 or later is part of all distributions of LaTeX
% version 1999/12/01 or later.
%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{verbments}[2011/07/07 v1.1 Pygments/fancyvrb source code highlighting for LaTeX]
\RequirePackage[svgnames]{xcolor}
\RequirePackage{xkeyval,fancyvrb,framed}
%
\newcommand{\@listofpyglistingsname}{Listings}%
\newcommand{\listofpyglistingsname}[1]{%
\renewcommand\@listofpyglistingsname{#1}}
\newcommand{\listofpyglistings}{%
  \begingroup
    \let\contentsname\@listofpyglistingsname
    \let\@pygtoc\@starttoc \def\@starttoc##1{\@pygtoc{pyg.lol}}%
    \tableofcontents%
  \endgroup
}
\newcommand{\lol@caption}[1]{%
  \addcontentsline{pyg.lol}{pyglist}{#1}
}
\newcommand{\l@pyglist}[2]{%
  \@dottedtocline{1}{1.5em}{2.3em}{#1}{#2}
}
%
\newlength{\@tmpwidth}
%
\newskip\@tmpskipa
\def\max@vskip #1{%
   \@tmpskipa = #1\relax
   \ifdim\lastskip < \@tmpskipa
     \ifdim\lastskip = 0pt
     \else \vskip -\lastskip
     \fi
     \vskip \@tmpskipa
   \fi%
}

\setlength{\FrameSep}{0pt}
\setlength{\FrameRule}{0pt}
%
\define@cmdkey{pyglist}[pl@]{caption}{}
\define@cmdkey{pyglist}[pl@]{abovecaptionskip}[\bigskipamount]{}
\define@cmdkey{pyglist}[pl@]{belowcaptionskip}[0pt]{}
\define@cmdkey{pyglist}[pl@]{listingname}[Listing]{}
\define@cmdkey{pyglist}[pl@]{label}{}
%
\define@cmdkey{pyglist}[pl@]{bgcolor}[white]{}
\define@cmdkey{pyglist}[pl@]{language}[text]{}
\define@cmdkey{pyglist}[pl@]{encoding}[latin1]{}
\define@boolkey{pyglist}[pl@]{mathescape}[false]{}
\define@boolkey{pyglist}[pl@]{texcl}[false]{}
\define@cmdkey{pyglist}[pl@]{style}[default]{}
\define@cmdkey{pyglist}[pl@]{gobble}[0]{}
%
\define@cmdkey{pyglist}[pl@]{fontsize}{}
\define@cmdkey{pyglist}[pl@]{numbers}{}
\define@cmdkey{pyglist}[pl@]{numbersep}{}
\define@boolkey{pyglist}[pl@]{showspaces}[false]{}

\newcommand\plset[1]{%
  \setkeys{pyglist}{#1}%
}

\newenvironment{pyglist}{%
    \catcode`\^^M=\active
    \@ifnextchar[%
        {\catcode`\^^M=5 \pyglist@}
        {\catcode`\^^M=5 \pyglist@[]}
}{%
   \end{VerbatimOut}%
  \immediate\write18{\pyg@cmd}
  \immediate\write18{\pyg@style}
  \input{\jobname.pyg.sty}%
%
  \partopsep = 0pt\parskip = 0pt\parindent = 0pt%
  \@ifundefined{pl@caption}%
  {\setlength{\topsep}{-2pt}}%
  {\par%
   \allowbreak%
   \max@vskip{\pl@abovecaptionskip}%
   \refstepcounter{pllisting}%
   \@ifundefined{pl@label}{}{\label{\pl@label}}%
   \settowidth{\@tmpwidth}{\bfseries\pl@listingname~\thepllisting:\space}%
   \mbox{\bfseries\pl@listingname~\thepllisting:\space}%
   \parbox[t]{\linewidth-\@tmpwidth}{\pl@caption}%
   \par\nobreak\vskip\pl@belowcaptionskip\nobreak%
   \setlength{\topsep}{\smallskipamount}%
   \lol@caption{\rlap{\thepllisting}\hskip5ex \pl@caption}
  }%
%
  \@ifundefined{pl@fontsize}{}{\fvset{fontsize=\pl@fontsize}}%
  \@ifundefined{pl@numbers}{}{\fvset{numbers=\pl@numbers}}%
  \@ifundefined{pl@numbersep}{}{\fvset{numbersep=\pl@numbersep}}%
  \ifpl@showspaces\fvset{showspaces}\fi%
%
  \definecolor{shadecolor}{named}{\pl@bgcolor}% 
  \begin{snugshade}
  \input{\jobname.pyg.vrb}
  \end{snugshade}
}

\def\pyglist@[#1]{%
  \setkeys{pyglist}{#1}
  \edef\pyg@cmd{pygmentize -P encoding=\pl@encoding\space -l \pl@language\space
     -F tokenmerge \ifnum\pl@gobble=0\space \else -F gobble:n=\pl@gobble\space\fi
     -f latex
     \ifpl@texcl -P texcomments\space\fi
     \ifpl@mathescape -P mathescape\space\fi
     -o \jobname.pyg.vrb \jobname.pyg.lst}
  \edef\pyg@style{pygmentize -S \pl@style\space -f latex > \jobname.pyg.sty}
  \VerbatimEnvironment
  \begin{VerbatimOut}{\jobname.pyg.lst}% No char whatsoever to the next brace
}

\AtBeginDocument{
  \@ifundefined{thechapter}{
    \newcounter{pllisting}
    \gdef\thepllisting{\@arabic\c@pllisting}
  }{
    \newcounter{pllisting}[chapter]
    \gdef\thepllisting%
      {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@pllisting}
  }
}

\plset{abovecaptionskip,belowcaptionskip,listingname,%
       bgcolor,language,encoding,mathescape,texcl,style,gobble,%
       showspaces} % set default key values
\endinput