From dc490df69f3037b4152feae1ea595b480703e9a6 Mon Sep 17 00:00:00 2001
From: gjirokastrelbasanit34
 <62909272+gjirokastrelbasanit34@users.noreply.github.com>
Date: Fri, 10 Sep 2021 18:19:38 +0300
Subject: Create language_R.lua

Create the R scripting language syntax formatting
---
 plugins/language_R.lua | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 plugins/language_R.lua

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"
+    }
+}
-- 
cgit v1.2.3