" Snug syntax file
" Language:    Snug functional programing language
" Maintainer:  Camil Staps <info@camilstaps.nl>
" License:     This file is placed in the public domain.

if exists("b:current_syntax")
  finish
endif

let s:cpo_save = &cpo
set cpo&vim

syn keyword snugKeyword    case data fun type

syn keyword snugTodo       TODO FIXME XXX BUG NB contained containedin=snugComment

syn match   snugChar       /'[^'\\]'/ display
syn match   snugInt        /\d\+/ display

syn match   snugDelimiter  /\v[\[\]\(\):;=,]/ display

syn match   snugIdentifier /^[_a-zA-Z]\+/ display

syn region  snugComment    start="(#" end="#)" contains=@Spell,snugComment display

hi def link snugKeyword    Keyword
hi def link snugChar       Character
hi def link snugInt        Number
hi def link snugDelimiter  Delimiter
hi def link snugIdentifier Identifier
hi def link snugTodo       Todo
hi def link snugComment    Comment

syntax sync ccomment snugComment

let b:current_syntax = 'snug'

let &cpo = s:cpo_save
unlet s:cpo_save