More emacs fixups

git-svn-id: http://photonzero.com/dotfiles/trunk@87 23f722f6-122a-0410-8cef-c75bd312dd78

.emacs.d/haskell-mode/fontlock.hs

@@ -0,0 +1,49 @@
+-- Comments are coloured brightly and stand out clearly.
+
+import qualified Foo as F hiding (toto)
+import qualified Foo hiding (toto)
+import qualified Foo as F (toto)
+import Foo as F hiding (toto)
+import Foo hiding (toto)
+import Foo as F (toto)
+
+hiding = 1
+qualified = 3
+as = 2
+
+repeat :: a -> [a]
+repeat xs = xs where xs = x:xs          -- Keywords are also bright.
+
+head :: [a] -> a
+head (x:_) = x
+head [] = error "PreludeList.head: empty list" -- Strings are coloured softly.
+
+data Maybe a = Nothing | Just a              -- Type constructors, data
+             deriving (Eq, Ord, Read, Show)  -- constructors, class names
+                                             -- and module names are coloured
+                                             -- closer to ordinary code.
+
+recognize +++ infix :: Operator Declarations
+as `well` as = This Form
+(+) and this one = as well
+
+instance Show Toto where
+    fun1 arg1 = foo             -- FIXME: `fun1' should be highlighted.
+
+constStr = "hello \
+           \asdgfasgf\
+           \asf"
+
+{-
+map :: (a -> b) -> [a] -> [b]           -- Commenting out large sections of
+map f []     = []                       -- code can be misleading.  Coloured
+map f (x:xs) = f x : map f xs           -- comments reveal unused definitions.
+-}
+
+-- Note: the least significant bit is the first element of the list
+bdigits               :: Int -> [Int]
+bdigits 0             = [0]
+bdigits 1             = [1]
+bdigits n | n>1       = n `mod` 2 :
+
+-- arch-tag: a0d08cc2-4a81-4139-93bc-b3c6be0b5fb2