X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Freport.git;a=blobdiff_plain;f=Utils%2FLambda.tex;h=fe1fb6ffcf405a506ce9c818b280b74573043237;hp=6ad1fbbd9996524c46c12d931c202dbcbe26972f;hb=72a9e027667346a15478adc8109c26a4ffd17f5e;hpb=8efa6369ca89d10a176f8aa5e10bc257ec3a80b7

diff --git a/Utils/Lambda.tex b/Utils/Lambda.tex
index 6ad1fbb..fe1fb6f 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
@@ -103,3 +116,8 @@ draw b;
 % TODO: Make more pretty.
 \definefloat[definition][definitions]
 \setupfloat[definition][background=box,backgroundoffset=1mm]
+
+% Define an "example" float. Don't add box around it, since an example will
+% commonly contain two boxed items (Before / after, code / picture).
+\definefloat[example][examples]
+\setupcaption[example][location=top] % Put captions on top