Added perl LSP support and some syntax highlighting improvements.

SpartanJ · Dec 1, 2024 · 062040b · 062040b
1 parent 2cdd14c
commit 062040b
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 3 deletions.
diff --git a/bin/assets/plugins/lspclient.json b/bin/assets/plugins/lspclient.json
@@ -375,6 +375,13 @@
       "command": "fortls --hover_signature --hover_language fortran --use_signature_help --incremental_sync",
       "file_patterns": ["%.f$", "%.f90$", "%.f95$"],
       "rootIndicationFileNames": [".fortls"]
+    },
+    {
+      "language": "perl",
+      "name": "PerlNavigator",
+      "url": "https://github.com/bscan/PerlNavigator",
+      "command": "perlnavigator",
+      "file_patterns": ["%.pm$", "%.pl$"]
     }
   ]
 }
diff --git a/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/perl.cpp b/src/modules/languages-syntax-highlighting/src/eepp/ui/doc/languages/perl.cpp
@@ -21,7 +21,20 @@ void addPerl() {
 
 		  },
 		  {
+			  { "if", "keyword" },
+			  { "elsif", "keyword" },
+			  { "else", "keyword" },
+			  { "unless", "keyword" },
+			  { "while", "keyword" },
+			  { "until", "keyword" },
+			  { "foreach", "keyword" },
+			  { "for", "keyword" },
+			  { "do", "keyword" },
 			  { "atan2", "keyword" },
+			  { "next", "keyword" },
+			  { "last", "keyword" },
+			  { "redo", "keyword" },
+			  { "goto", "keyword" },
 			  { "endhostent", "keyword" },
 			  { "sysread", "keyword" },
 			  { "last", "keyword" },
@@ -88,7 +101,7 @@ void addPerl() {
 			  { "flock", "keyword" },
 			  { "endprotoent", "keyword" },
 			  { "-X", "keyword" },
-			  { "system", "keyword" },
+			  { "system", "function" },
 			  { "select", "keyword" },
 			  { "localtime", "keyword" },
 			  { "index", "keyword" },
@@ -215,7 +228,7 @@ void addPerl() {
 			  { "shmctl", "keyword" },
 			  { "sin", "keyword" },
 			  { "semctl", "keyword" },
-			  { "exit", "keyword" },
+			  { "exit", "function" },
 			  { "getppid", "keyword" },
 			  { "-O", "keyword" },
 			  { "shmget", "keyword" },
@@ -228,7 +241,7 @@ void addPerl() {
 			  { "vec", "keyword" },
 			  { "-A", "keyword" },
 			  { "getgrnam", "keyword" },
-			  { "exec", "keyword" },
+			  { "exec", "function" },
 			  { "-o", "keyword" },
 			  { "msgctl", "keyword" },
 			  { "msgget", "keyword" },