Welcome to the CHICKEN Scheme pasting service

#!/bin/sh
#|
exec csi -s "$0" "$@"
|#

(use srfi-1
     colorize)

(define (extension->type ext)
  (case ext
    ((l lsp lisp) 'lisp)
    ((scm ss) 'scheme)
    ((el) 'elisp)
    ((cl) 'common-lisp)
    ((objc) 'objective-c)
    ((erl) 'erlang)
    ((py) 'python)
    ((rb) 'ruby)
    ((hs) 'haskell)
    ((c c++ java diff css xml xhtml html) ext)
    (else #f)))

(define (syntax-highlight type)
  (write-string
   (html-colorize type (read-string))))

(define args
  (command-line-arguments))

(define filename (car args))
(define extension
  (let ((l (string-split filename ".")))
    (and (pair? (cdr l)) (string->symbol (cadr l)))))

(cond
 ((extension->type extension) =>
  syntax-highlight)
 (else
  (write-string (read-string))))