Bind the weechat_color function

LesBoloss-es · Dec 21, 2020 · c698fca · c698fca
1 parent dd23f04
commit c698fca
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 0 deletions.
diff --git a/src/api/bindings.h b/src/api/bindings.h
@@ -27,6 +27,7 @@ value caml_weechat_unhook(value hook);
 /* 13. Display */
 
 value caml_weechat_prefix(value prefix);
+value caml_weechat_prefix(value color_name);
 value caml_weechat_printf(value buffer, value message);
 
 

diff --git a/src/api/bindings_display.c b/src/api/bindings_display.c
@@ -13,6 +13,12 @@ value caml_weechat_prefix(value prefix) {
   CAMLreturn(res);
 }
 
+value caml_weechat_color(value color_name) {
+  CAMLparam1(color_name);
+  CAMLlocal1(res);
+  res = caml_copy_string(weechat_color(String_val(color_name)));
+  CAMLreturn(res);
+}
 
 value caml_weechat_printf(value buffer, value message) {
   CAMLparam2(buffer, message);

diff --git a/src/api/weechat.ml b/src/api/weechat.ml
@@ -3,6 +3,7 @@ type gui_buffer
 (** {2 13. Display} *)
 
 external prefix: string -> string = "caml_weechat_prefix"
+external color: string -> string = "caml_weechat_color"
 external printf: gui_buffer -> string -> unit = "caml_weechat_printf"
 let printf buffer = Format.kasprintf (printf buffer)