\usepackage{listings}

\usepackage{etoolbox}

\setmonofont[Scale=.95]{Consolas}

\newfontfamily{\consolas}{Consolas}

\definecolor{codered}{rgb}{0.6,0,0}            % for strings

\definecolor{codegreen}{rgb}{0.25,0.5,0.35}    % comments

\definecolor{codepurple}{rgb}{0.5,0,0.35}      % keywords

\definecolor{codedocblue}{rgb}{0.25,0.35,0.75} % doc

\definecolor{codeblue}{rgb}{0.25,0.35,0.75}    % types

\BeforeBeginEnvironment{lstlisting}{\par\noindent\begin{minipage}{\linewidth}}

\AfterEndEnvironment{lstlisting}{\end{minipage}\par}

\lstdefinelanguage{Scala}{

  morekeywords={abstract,case,catch,class,def,%

    do,else,extends,false,final,finally,%

    for,if,implicit,import,match,mixin,%

    new,null,object,override,package,%

    private,protected,requires,return,sealed,%

    super,this,throw,trait,true,try,%

    type,val,var,while,with,yield,write,read},%

  otherkeywords={=>,<-,<\%,<:,>:,\#},%

  sensitive=true,%

  %directives={Int,Char,Rexp,String,Boolean,BigInt,Unit,List,Set},%

  %moredelim=*[directive]:,%

  morecomment=[l]{//},%

  morecomment=[n]{/*}{*/},

  morestring=[s]{"""}{"""},

  morestring=[b]",

  morestring=[b]',

}[keywords,comments,strings]

\lstdefinelanguage{While}{

  morekeywords={if,then,else,while,do,true,false,write,upto,read,for,skip},

  morecomment=[l]{//},

  morecomment=[n]{/*}{*/},

  morestring=[b]",

  otherkeywords={=,!=,:=,<,>,\%;*,/},

}[keywords,comments,strings]

\lstdefinestyle{mystyle}

       {basicstyle=\ttfamily,

	keywordstyle=\color{codepurple}\bfseries,

	stringstyle=\color{codegreen},

	commentstyle=\color{codegreen},

	morecomment=[s][\color{codedocblue}]{/**}{*/},

	numbers=left,

	numberstyle=\tiny\color{black},

	stepnumber=1,

	numbersep=10pt,

	tabsize=2,

	showspaces=false,

	showstringspaces=false,

        xleftmargin=8mm,

        emphstyle=\color{codeblue}\bfseries,

        keepspaces

}

\lstset{language=Scala,

        style=mystyle}

\newcommand{\code}[1]{{\lstinline{#1}}}

\newcommand{\pcode}[1]{\mbox{\lstset{language={},keywordstyle=\color{black}}\lstinline!#1!}}

\newcommand{\scode}[1]{\mbox{\lstset{language={},basicstyle=\ttfamily\color{codegreen}}\lstinline!#1!}}

\makeatother

\lstset{escapeinside={(*@}{@*)}}

\newcommand\grid[1]{%

\begin{tikzpicture}[baseline=(char.base)]

  \path[use as bounding box]

    (0,0) rectangle (1em,1em);

  \draw[red!50, fill=red!20]

    (0,0) rectangle (1em,1em);

  \node[inner sep=1pt,anchor=base west]

    (char) at (0em,\gridraiseamount) {#1};

\end{tikzpicture}}

\newcommand\gridraiseamount{0.12em}

\makeatletter

\newcommand\Grid[1]{%

  \@tfor\z:=#1\do{\grid{\z}}}

\makeatother    

\newcommand\Vspace[1][.3em]{%

  \mbox{\kern.06em\vrule height.3ex}%

  \vbox{\hrule width#1}%

  \hbox{\vrule height.3ex}}

\def\VS{\Vspace[0.6em]}