(define-module (gitile code)

  #:use-module (ice-9 match)

  #:use-module (syntax-highlight)

  #:use-module (syntax-highlight gitignore)

  #:use-module (gitile highlight shell)

  #:export (display-code

            display-formatted-code))

                     ("bash" "shell")

                     ("m4" "m4")

                     ("ac" "ac")

                     (_ (match (basename path)

                         ("bootstrap" "shell")

                         (_ "unknown"))))))

    ("gitignore" (highlight lex-gitignore content))

    ("m4" (highlight lex-m4 content))

    ("ac" (highlight lex-autoconf content))

    (_ (list content))))

(define (split-lines content)