From a24afb0e12b71cce0199dfa85e0e09043f5fb7f4 Mon Sep 17 00:00:00 2001
From: John Haugeland <stonecypher@gmail.com>
Date: Wed, 20 Aug 2014 19:30:57 -0700
Subject: [PATCH] Add APL to recognized languages

---
 lib/linguist/languages.yml   |  6 ++++++
 samples/APL/DeepakChopra.apl | 18 ++++++++++++++++++
 2 files changed, 24 insertions(+)
 create mode 100644 samples/APL/DeepakChopra.apl

diff --git a/lib/linguist/languages.yml b/lib/linguist/languages.yml
index 551ad886..d85d33e1 100644
--- a/lib/linguist/languages.yml
+++ b/lib/linguist/languages.yml
@@ -45,6 +45,12 @@ ANTLR:
   extensions:
   - .g4
 
+APL:
+  type: programming
+  color: "#8a0707"
+  extensions:
+  - .apl
+
 ASP:
   type: programming
   color: "#6a40fd"
diff --git a/samples/APL/DeepakChopra.apl b/samples/APL/DeepakChopra.apl
new file mode 100644
index 00000000..ba7fd625
--- /dev/null
+++ b/samples/APL/DeepakChopra.apl
@@ -0,0 +1,18 @@
+⍝   You can try this at http://tryapl.org/
+⍝   I can not explain how much I suddenly love this crypto-language
+
+
+
+Starts     ← 'Experiential truth ' 'The physical world ' 'Non-judgment '       'Quantum physics '
+Middles    ← 'nurtures an '        'projects onto '      'imparts reality to ' 'constructs with '
+Qualifiers ← 'abundance of '       'the barrier of '     'self-righteous '     'potential '
+Finishes   ← 'marvel.'             'choices.'            'creativity.'         'actions.'
+
+rf     ← {(?⍴⍵)⊃⍵}
+erf    ← {rf ¨ ⍵}
+
+deepak ← {erf Starts Middles Qualifiers Finishes}
+
+
+
+deepak ⍬
\ No newline at end of file