/*
Programmikoodi kujundus
Kristjan Kannike
Loodud: 2005-07-31
Muudetud: 2006-11-04
*/

code, pre {
	font-family: Consolas, Monaco, "Courier New", Courier, mono;
	overflow:auto;
}

code.esile {
	display:block;
	text-indent:0;
	margin:0.5em 0;
}

span.indent {
	margin-left:4ex;
	display:block;
}

/* Mathematica */

.math_funcarg, .math_localvar {color:#438958;}

.math_funcarg {font-style:italic;}

.math_specialvar {color:#3c7d91;}

.math_comment {color:#999;}

.math_string {color:#666;}

.math_notassigned {color:#002cc3;}

/* Python: IDLE */

code.py {white-space:nowrap;}

.py_keyword {color:#f70;}

.py_def, .py_out {color:#00f;}

.py_builtin {color:#900090;}

.py_comment {color:#d0d;}

.py_string {color:#0a0;}

.py_prompt {color:#700;}

/* Haskell: Crimson Editor */

code.hs {white-space:nowrap}

.hs_keyword {color:#00f;} /* 
as
case class
data default deriving do
else
hiding
if import in infix infixl infixr instance
let
module
newtype
of
primitive
qualified
then type
where 
*/

.hs_truth {color:#f00;} /* otherwise True False GT LT EQ Nothing Just Left Right */

.hs_oper {color:#f0f;} /* 
. !! ^^ ^ ** `
quot rem div mod :% %
== /= < <= >= > elem notElem
&&
||
>> >>=
=<<
$! $ seq
.. : :: = \ | <- -> @ ~ => 
+ ++ - * /
and not or
!
compare min max 
*/

.hs_class {color:#ff9c00;} /* 
Real Integral Rational Fractional Floating RealFrac RealFloat Monad Functor Enum
Bool Char String Int Integer Float Double IO Ix Read
Show Eq Num Ord Ordering
Maybe Either Bounded ReadS ShowS
Addr Word ForeignObj StablePtr
Obj IOResult IOFinished HugsException IOError IOErrorKind
FilePath 
*/

.hs_comment {color:#008000;}

.hs_string {color:#800080;}