Merge pull request #72 from gjirokastrelbasanit34/master

Add R scripting language syntax support

2 files changed, 40 insertions, 0 deletions

diff --git a/README.md b/README.md
index 225dffb..ac39ff0 100644
--- a/README.md
+++ b/README.md
@@ -82,6 +82,7 @@ Plugin | Description
 [`language_pony`*](https://github.com/MrAnyx/lite-plugin-pony) | Syntax for [Pony](https://www.ponylang.io/) programming language
 [`language_powershell`](plugins/language_powershell.lua?raw=1) | Syntax for [PowerShell](https://docs.microsoft.com/en-us/powershell) scripting language
 [`language_psql`](plugins/language_psql.lua?raw=1) | Syntax for the postgresql database access language
+[`language_r`](plugins/language_R.lua?raw=1) | Syntax for [R](https://www.r-project.org/) scripting language
 [`language_rescript`](plugins/language_rescript.lua?raw=1) | Syntax for the [ReScript](https://rescript-lang.org/) programming language
 [`language_rust`](plugins/language_rust.lua?raw=1) | Syntax for the [Rust](https://rust-lang.org/) programming language
 [`language_ruby`](plugins/language_ruby.lua?raw=1) | Syntax for the [Ruby](https://www.ruby-lang.org/) programming language
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"
+    }
+}