Merge pull request #72 from gjirokastrelbasanit34/master

Add R scripting language syntax support

1 files changed, 39 insertions, 0 deletions

diff --git a/plugins/language_R.lua b/plugins/language_R.lua
new file mode 100644
index 0000000..68c3a18
--- /dev/null
+++ b/plugins/language_R.lua
@@ -0,0 +1,39 @@
+-- mod-version:2 -- lite-xl 2.0
+local syntax = require "core.syntax"
+
+syntax.add{
+    files = {"%.r$", "%.rds$", "%.rda$", "%.rdata$", "%.R$"},
+    comment = "#",
+    patterns = {
+        {pattern = {"#", "\n"}, type = "comment"},
+        {pattern = {'"', '"'}, type = "string"},
+        {pattern = {"'", "'"}, type = "string"},
+        {pattern = "[%a_][%w_]*%f[(]", type = "function"},
+        {pattern = "[%a_][%w_]*", type = "symbol"},
+        {pattern = "[%+%-=/%*%^%%<>!|&]", type = "operator"},
+        {pattern = "0x[%da-fA-F]+", type = "number"},
+        {pattern = "-?%d+[%d%.eE]*", type = "number"},
+        {pattern = "-?%.?%d+", type = "number"},
+    
+    },
+    symbols = {
+        ["TRUE"] = "literal",
+        ["FALSE"] = "literal",
+        ["NA"] = "literal",
+        ["NULL"] = "literal",
+        ["Inf"] = "literal",
+        ["if"] = "keyword",
+        ["else"] = "keyword",
+        ["while"] = "keyword",
+        ["function"] = "keyword",
+        ["break"] = "keyword",
+        ["next"] = "keyword",
+        ["repeat"] = "keyword",
+        ["in"] = "keyword",
+        ["for"] = "keyword",
+        ["NA_integer"] = "keyword",
+        ["NA_complex"] = "keyword",
+        ["NA_character"] = "keyword",
+        ["NA_real"] = "keyword"
+    }
+}