Add support for strings on the LHS of function definitions

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## devel
 
+- `tags.scm` now tags function definitions with a string name as `@definition.function` (#147, @MichaelChirico).
+
 - Binary exponents are now supported in hexadecimal constants (#159).
 
 - `NULL` is now allowed as a function call argument name (#164).

queries/tags.scm

@@ -10,6 +10,18 @@
     rhs: (function_definition)
 ) @definition.function
 
+(binary_operator
+    lhs: (string) @name
+    operator: "<-"
+    rhs: (function_definition)
+) @definition.function
+
+(binary_operator
+    lhs: (string) @name
+    operator: "="
+    rhs: (function_definition)
+) @definition.function
+
 (call
     function: (identifier) @name
 ) @reference.call

test/tags/function-definitions.R

@@ -1,14 +1,38 @@
 fn <- function() {
-# <- definition.function  
+# <- definition.function
 }
 
 fn = function() {
-# <- definition.function  
+# <- definition.function
 }
-  
+
 fn <- function(a, b) {
-# <- definition.function   
+# <- definition.function
 
   bar <- function() {}
-  # ^ definition.function  
+  # ^ definition.function
+}
+
+"fn" <- function() {
+# <- definition.function
+}
+
+"fn" = function() {
+# <- definition.function
+}
+
+'fn' <- function() {
+# <- definition.function
+}
+
+'fn' = function() {
+# <- definition.function
+}
+
+`fn` <- function() {
+# <- definition.function
+}
+
+`fn` = function() {
+# <- definition.function
 }