From e39dc5f0cb18794a33029ed40d306d24fb7ad0f4 Mon Sep 17 00:00:00 2001
From: xenia <xenia.agda@gmail.com>
Date: Thu, 11 Jan 2024 20:31:59 +0100
Subject: [PATCH] Add patched version of kak-verilog

---
 home/kak.nix            |  7 ++++
 kak-verilog/verilog.kak | 79 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 86 insertions(+)
 create mode 100644 kak-verilog/verilog.kak

diff --git a/home/kak.nix b/home/kak.nix
index 2722c20d..71b003a7 100644
--- a/home/kak.nix
+++ b/home/kak.nix
@@ -12,6 +12,12 @@ with pkgs; let
     meta.homepage = "https://github.com/Delapouite/kakoune-mirror";
   };
 
+  kakoune-verilog = kakouneUtils.buildKakounePluginFrom2Nix {
+    pname = "kakoune-verilog";
+    version = "latest";
+    src = ../kak-verilog;
+  };
+
   ad-hoc-org-mode = kakouneUtils.buildKakounePluginFrom2Nix {
     pname = "ad-hoc-org-mode";
     version = "latest";
@@ -75,6 +81,7 @@ in
 
     kakoune-mirror
     ad-hoc-org-mode
+    kakoune-verilog
 
     kakoune-lsp
     kak-tree
diff --git a/kak-verilog/verilog.kak b/kak-verilog/verilog.kak
new file mode 100644
index 00000000..cfc7b117
--- /dev/null
+++ b/kak-verilog/verilog.kak
@@ -0,0 +1,79 @@
+# Verilog for Kakoune
+# stolen and modified from https://github.com/asyncial/kakoune-verilog/blob/master/verilog.kak
+# this file is under the gnu license
+
+# Detection
+hook global WinCreate .*\.v %{
+    set-option window filetype verilog
+}
+
+# Set up comments
+hook global WinSetOption filetype=verilog %{
+    set-option window comment_block_begin /*
+    set-option window comment_block_end */
+    set-option window comment_line //
+}
+
+# Highlighting
+add-highlighter shared/verilog regions
+add-highlighter shared/verilog/code default-region group
+add-highlighter shared/verilog/string region '"' (?<!\\)(\\\\)*" fill string
+add-highlighter shared/verilog/comment_line region '//' $ fill comment
+add-highlighter shared/verilog/comment region /\* \*/ fill comment
+
+evaluate-commands %sh{
+    keywords='@ assign automatic cell deassign default defparam design disable edge genvar ifnone incdir instance liblist library localparam negedge noshowcancelled parameter posedge primitive pulsestyle_ondetect pulsestyle_oneventi release scalared showcancelled specparam strength table tri tri0 tri1 triand trior use vectored wait'
+    blocks='always case casex casez else endcase for forever if repeat while begin config end endconfig endfunction endgenerate endmodule endprimitive endspecify endtable endtask fork function generate initial join macromodule module specify task'
+    declarations='event inout input integer output real realtime reg signed time trireg unsigned wand wor wire'
+    gates='and or xor nand nor xnor buf not bufif0 notif0 bufif1 notif1 pullup pulldown pmos nmos cmos tran tranif1 tranif0'
+    symbols='+ - = == != !== === ; <= ( )'
+    system_tasks='display write strobe monitor monitoron monitoroff displayb writeb strobeb monitorb displayo writeo strobeo monitoro displayh writeh strobeh monitorh fopen fclose frewind fflush fseek ftell fdisplay fwrite swrite fstrobe fmonitor fread fscanf fdisplayb fwriteb swriteb fstrobeb fmonitorb fdisplayo fwriteo swriteo fstrobeo fmonitoro fdisplayh fwriteh swriteh fstrobeh fmonitorh sscanf sdf_annotate'
+
+    kak_join() { sep="$2" ; set -- $1 ; printf "%%{%s}" "$1" ; shift ; for x in $* ; do printf "%s%%{%s}" "$sep" "$x"; done }
+    regex_join() { sep="$2" ; set -- $1 ; printf '\\Q%s\\E' "$1" ; shift ; for x in $* ; do printf '%s\\Q%s\\E' "$sep" "$x"; done }
+
+    # Add the language's grammar to the static completion list
+    printf %s\\n "hook global WinSetOption 'filetype=verilog' %{ set-option window static_words $(kak_join "${keywords} ${blocks} ${declarations} ${gates} ${symbols} ${system_tasks}" ' ') }"
+
+    # Highlight keywords
+    printf %s "
+        add-highlighter shared/verilog/code/ regex %{\b($(regex_join "${keywords}" '|'))\b} 0:keyword
+        add-highlighter shared/verilog/code/ regex %{\b($(regex_join "${blocks}" '|'))\b} 0:attribute
+        add-highlighter shared/verilog/code/ regex %{\b($(regex_join "${declarations}" '|'))\b} 0:type
+        add-highlighter shared/verilog/code/ regex %{\b($(regex_join "${gates}" '|'))\b} 0:builtin
+        add-highlighter shared/verilog/code/ regex %{\b($(regex_join "${symbols}" '|'))\b} 0:operator
+    "
+}
+
+add-highlighter shared/verilog/code/ regex '\$\w+' 0:function
+add-highlighter shared/verilog/code/ regex '`\w+' 0:meta
+add-highlighter shared/verilog/code/ regex "\d+'[bodhBODH][1234567890abcdefABCDEF]+" 0:value
+add-highlighter shared/verilog/code/ regex "(?<=[^a-zA-Z_])\d+" 0:value
+
+# Indentation
+
+define-command -hidden verilog-indent-on-new-line %{
+    evaluate-commands -no-hooks -draft -itersel %{
+        # preserve previous line indent
+        try %{ execute-keys -draft K <a-&> }
+        # indent after start structure
+        try %{ execute-keys -draft k <a-x> <a-k> ^ \h * (always|case|casex|casez|else|for|forever|if|repeat|while|begin|config|fork|function|generate|initial|join|macromodule|module|specify|task)\b|(do\h*$|(.*\h+do(\h+\|[^\n]*\|)?\h*$)) <ret> j <a-gt> }
+        try %{
+            # previous line is empty, next is not
+            execute-keys -draft k <a-x> 2X <a-k> \A\n\n[^\n]+\n\z <ret>
+            # copy indent of next line
+            execute-keys -draft j <a-x> s ^\h+ <ret> y k P
+        }
+    }
+}
+
+# Initialization
+
+hook global WinSetOption filetype=verilog %{
+	hook window InsertChar \n -group verilog-indent verilog-indent-on-new-line
+	add-highlighter window/verilog ref verilog
+	hook -once -always window WinSetOption filetype=(?!verilog).* %{
+    	remove-hooks window verilog-indent
+    	remove-highlighter window/c
+    }
+}