From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Fri, 23 Oct 2009 11:25:51 +0000 (+0200)
Subject: Add \typebufferhs command to Haskell-typeset a buffer.
X-Git-Tag: final-thesis~198
X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Freport.git;a=commitdiff_plain;h=a2cd68ad63339068942ca8c38f454dbc50517fa4

Add \typebufferhs command to Haskell-typeset a buffer.
---

diff --git a/Utils/Lambda.tex b/Utils/Lambda.tex
index 6ad1fbb..4c65749 100644
--- a/Utils/Lambda.tex
+++ b/Utils/Lambda.tex
@@ -90,6 +90,19 @@ draw b;
   \setuptyping[option=none,style=\tttf]
 }
 
+% Type the given buffer with the haskell typing style.
+% e.g., \typebufferhs{buffname}
+\define[1]\typebufferhs{
+  % We can't use \startlambda here defined by definetyping[lambda] above when
+  % typing buffers, so instead we'll redfine the options here.
+  \setuptyping[option=HASKELL,style=mono]
+  \startboxed
+  \typebuffer[#1]
+  \stopboxed
+  % Reset the typing options
+  \setuptyping[option=none,style=\tttf]
+}
+
 % Display a useMPgraphic in a pretty box
 \define[1]\boxedgraphic{
   \startboxed