From a5a645fd541130bf4eb219b74dca3ba80e1c78cf Mon Sep 17 00:00:00 2001
From: Al Thomas <astavale@yahoo.co.uk>
Date: Thu, 1 May 2014 17:51:42 +0100
Subject: [PATCH] Add x-genie mime type for Genie source code

---
 freedesktop.org.xml.in |  6 ++++++
 tests/list             |  2 ++
 tests/test.gs          | 11 +++++++++++
 3 files changed, 19 insertions(+)
 create mode 100644 tests/test.gs

diff --git a/freedesktop.org.xml.in b/freedesktop.org.xml.in
index 20df752..3fe1684 100644
--- a/freedesktop.org.xml.in
+++ b/freedesktop.org.xml.in
@@ -5277,6 +5277,12 @@ command to generate the output files.
     <glob pattern="*.f95"/>
     <glob pattern="*.for"/>
   </mime-type>
+  <mime-type type="text/x-genie">
+    <_comment>Genie source code</_comment>
+    <sub-class-of type="text/plain"/>
+    <glob pattern="*.gs" case-sensitive="true"/>
+    <generic-icon name="text-x-generic"/>
+  </mime-type>
   <mime-type type="text/x-gettext-translation">
     <_comment>translation file</_comment>
     <sub-class-of type="text/plain"/>
diff --git a/tests/list b/tests/list
index 2ceacbd..6038174 100644
--- a/tests/list
+++ b/tests/list
@@ -270,6 +270,8 @@ simple-obj-c.m text/x-objcsrc
 ssh-public-key.txt text/plain
 # http://tools.ietf.org/html/draft-ietf-vcarddav-vcardrev-22
 test.vcf text/vcard
+# Genie source code
+test.gs text/x-genie ox
 # Test Go source code
 test.go text/x-go oxo
 # Qt Quick (QML) file
diff --git a/tests/test.gs b/tests/test.gs
new file mode 100644
index 0000000..94c48ee
--- /dev/null
+++ b/tests/test.gs
@@ -0,0 +1,11 @@
+class Sample : Object
+	init
+		pass
+
+	def run()
+		print "Hello World"
+
+init
+	var sample = new Sample()
+	sample.run ();
+
-- 
1.8.1.4