From a761eaf725974977a860d0e7cdfe18c1f11a62e9 Mon Sep 17 00:00:00 2001
From: Vlad Bokov <razum2um@mail.ru>
Date: Sun, 12 Aug 2018 11:20:25 +0700
Subject: [PATCH] Allow fullqualified function definition

---
 Units/parser-clojure.r/simple-clojure.d/expected.tags | 1 +
 Units/parser-clojure.r/simple-clojure.d/input.clj     | 3 +++
 parsers/clojure.c                                     | 9 +++++++--
 3 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/Units/parser-clojure.r/simple-clojure.d/expected.tags b/Units/parser-clojure.r/simple-clojure.d/expected.tags
index ad5958ebda..ecafbff388 100644
--- a/Units/parser-clojure.r/simple-clojure.d/expected.tags
+++ b/Units/parser-clojure.r/simple-clojure.d/expected.tags
@@ -1,5 +1,6 @@
 another.name	input.clj	/^(ns another.name)$/;"	n
 app.controller	input.clj	/^(ns app.controller)$/;"	n
+core-function-with-body	input.clj	/^(clojure.core\/defn core-function-with-body []$/;"	f	namespace:app.controller
 empty-fn	input.clj	/^ (defn empty-fn [])$/;"	f	namespace:app.controller
 function-with-body	input.clj	/^(defn function-with-body []$/;"	f	namespace:app.controller
 x	input.clj	/^(defn x [])$/;"	f	namespace:another.name
diff --git a/Units/parser-clojure.r/simple-clojure.d/input.clj b/Units/parser-clojure.r/simple-clojure.d/input.clj
index 4b18663635..9f6239a088 100644
--- a/Units/parser-clojure.r/simple-clojure.d/input.clj
+++ b/Units/parser-clojure.r/simple-clojure.d/input.clj
@@ -5,6 +5,9 @@
 (defn function-with-body []
     (println "body"))
 
+(clojure.core/defn core-function-with-body []
+    (println "core"))
+
 '(defn quoted-function [])
 (quote quoted-function2 [])
 
diff --git a/parsers/clojure.c b/parsers/clojure.c
index 5e419cd097..2dc6216c7b 100644
--- a/parsers/clojure.c
+++ b/parsers/clojure.c
@@ -34,7 +34,12 @@ static int isNamespace (const char *strp)
 
 static int isFunction (const char *strp)
 {
-	return strncmp (++strp, "defn", 4) == 0 && isspace (strp[4]);
+	return (strncmp (++strp, "defn", 4) == 0 && isspace (strp[4])); // || (strncmp (++strp, "clojure.core/defn", 17) == 0 && isspace (strp[17]));
+}
+
+static int isCoreFunction (const char *strp)
+{
+	return (strncmp (++strp, "clojure.core/defn", 17) == 0 && isspace (strp[17]));
 }
 
 static int isQuote (const char *strp)
@@ -154,7 +159,7 @@ static void findClojureTags (void)
 				skipToSymbol (&p);
 				scope_index = makeNamespaceTag (name, p);
 			}
-			else if (isFunction (p))
+			else if (isFunction (p) || isCoreFunction (p))
 			{
 				skipToSymbol (&p);
 				makeFunctionTag (name, p, scope_index);