From 3beeda7bcc3f06269dcb0ce2b5891e2735563a8b Mon Sep 17 00:00:00 2001
From: Cormac Stephenson <c7s@kasku.net>
Date: Mon, 15 Jan 2024 02:59:04 +0000
Subject: [PATCH] ocaml.kak: give a name to the hook which inserts comment
 characters

This lets set-option window disabled_hooks .*-insert work as expected.
---
 rc/filetype/ocaml.kak | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/rc/filetype/ocaml.kak b/rc/filetype/ocaml.kak
index f41111c52..0c7986c43 100644
--- a/rc/filetype/ocaml.kak
+++ b/rc/filetype/ocaml.kak
@@ -14,6 +14,7 @@ hook global BufCreate .*\.(ml|mli|mll|mly)$ %{
 hook global WinSetOption filetype=ocaml %{
     require-module ocaml
     set-option window static_words %opt{ocaml_static_words}
+    hook window InsertChar -group ocaml-insert '\*' ocaml-insert-closing-comment-bracket
 }
 
 hook -group ocaml-highlight global WinSetOption filetype=ocaml %{
@@ -102,11 +103,9 @@ define-command ocaml-alternative-file -docstring 'Switch between .ml and .mli fi
 #
 # Recognize when the user is trying to commence a comment when they type `(*` and
 # then automatically insert `*)` on behalf of the user. A small convenience.
-hook global WinSetOption filetype=ocaml %{
-    hook window InsertChar '\*' %{
-        try %{
-            execute-keys -draft 'HH<a-k>\(\*<ret>'
-            execute-keys '  *)<left><left><left>'
-        }
+define-command -hidden ocaml-insert-closing-comment-bracket %{
+    try %{
+        execute-keys -draft 'HH<a-k>\(\*<ret>'
+        execute-keys '  *)<left><left><left>'
     }
 }