wisp
 
(Arne Babenhauserheide)
2013-04-27: experiments with the emacs mode.

experiments with the emacs mode.

diff --git a/wisp-mode.el b/wisp-mode.el
--- a/wisp-mode.el
+++ b/wisp-mode.el
@@ -23,6 +23,8 @@
 
 ;;; Code:
 
+(require 'scheme)
+
 (define-derived-mode wisp-mode
   emacs-lisp-mode "Wisp" 
   "Major mode for whitespace-to-lisp files.
@@ -36,8 +38,16 @@
   (set (make-local-variable 'font-lock-defaults)
               '((scheme-font-lock-keywords
                  scheme-font-lock-keywords-1 scheme-font-lock-keywords-2)
-                nil nil nil nil))
+                nil ; keywords only
+                nil ; case fold
+                '((?_ "-")) ; syntax alist
+                'backward-paragraph)) ; syntax begin
   (set (make-local-variable 'mode-require-final-newline) t))
 
+(font-lock-add-keywords 'wisp-mode 
+                        '(("^ *\\(\\w+\\)\\| : *\\(\\w+\\)" . 'font-lock-function-call-face)
+                          ("^ *\\(\\w+\\)\\| : *\\(\\w+\\)" . 'font-lock-function-call-face)))
+                        
+
 (provide 'wisp-mode)
 ;;; wisp-mode.el ends here