From d4b0fdc63d196b4159b607da86c75756bf20adc1 Mon Sep 17 00:00:00 2001
From: cn <cn@mycrobase.de>
Date: Fri, 1 May 2015 23:32:18 +0200
Subject: [PATCH] Add scheme

---
 ftyperc    | 11 ++++++++
 scheme.jsf | 73 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 84 insertions(+)
 create mode 100644 scheme.jsf

diff --git a/ftyperc b/ftyperc
index 66f9212..39302ba 100644
--- a/ftyperc
+++ b/ftyperc
@@ -1022,3 +1022,14 @@
 -syntax elixir
 -pound_comment
 -text_delimiters do=end
+
+ Scheme
+*.scm
+-autoindent
+-syntax scheme
+-semi_comment
+
+*.ss
+-autoindent
+-syntax scheme
+-semi_comment
diff --git a/scheme.jsf b/scheme.jsf
new file mode 100644
index 0000000..bfd86ff
--- /dev/null
+++ b/scheme.jsf
@@ -0,0 +1,73 @@
+# JOE syntax highlight file for Scheme
+
+=Idle
+=Comment	green
+=Constant	cyan
+=Escape		bold cyan
+=Bad		bold red
+
+=Keyword	bold
+
+:idle Idle
+	*		idle
+	";"		line_comment	recolor=-1
+	"1-9"		number		recolor=-1
+	"\""		string		recolor=-1
+	"'"		symbol		recolor=-1
+	"#"		maybe_bool
+	"a-zA-Z_"	ident		buffer
+
+:line_comment Comment
+	*		line_comment
+	"\n"		idle
+
+:number Constant
+	*		idle		noeat
+	"0-9"		number
+
+:string Constant
+	*		string
+	"\""		idle
+
+:symbol Constant
+	*		idle		noeat
+	"("		special_symbol
+	"a-zA-Z0-9_-"	symbol
+
+:special_symbol Constant
+	*		idle		noeat
+	")"		symbol
+
+:maybe_bool Idle
+	*		idle		noeat
+	"tf"		bool		recolor=-2
+
+:bool Constant
+	*		idle		noeat
+
+:ident Idle
+	*		idle		noeat strings
+	"call-with-current-continuation"	kw
+	"car"		kw
+	"cdr"		kw
+	"cons"		kw
+	"define"	kw
+	"even?"		kw
+	"exact?"	kw
+	"if"		kw
+	"lambda"	kw
+	"let"		kw
+	"letrec"	kw
+	"let*"		kw
+	"list"		kw
+	"map"		kw
+	"null?"		kw
+	"odd?"		kw
+	"s"		kw
+	"set!"		kw
+	"zero?"		kw
+done
+	"a-zA-Z0-9_*!?-"	ident
+
+:kw Keyword
+	*		idle		noeat