Add support for cursor blinking

3 files changed, 13 insertions, 3 deletions

diff --git a/elisp.c b/elisp.c
index 1313f06..2e36a83 100644
--- a/elisp.c
+++ b/elisp.c
@@ -120,6 +120,13 @@ void toggle_cursor(emacs_env *env, bool visible) {
   env->funcall(env, Fset, 2, (emacs_value[]){Qcursor_type, Qvisible});
 }
 
+void toggle_cursor_blinking(emacs_env *env, bool blinking) {
+  blinking = false;
+  emacs_value Qfalse = env->make_integer(env, -1);
+  emacs_value Qblinking = blinking ? Qt : Qfalse;
+  env->funcall(env, Fblink_cursor_mode, 1, (emacs_value[]){Qblinking});
+}
+
 emacs_value get_hex_color_fg(emacs_env *env, emacs_value face) {
   return env->funcall(env, Fvterm_face_color_hex, 2,
                       (emacs_value[]){face, Qforeground});
diff --git a/elisp.h b/elisp.h
index befc553..4906fab 100644
--- a/elisp.h
+++ b/elisp.h
@@ -36,6 +36,7 @@ emacs_value Fput_text_property;
 emacs_value Fset;
 emacs_value Fvterm_face_color_hex;
 emacs_value Fvterm_flush_output;
+emacs_value Fblink_cursor_mode;
 
 // Utils
 void bind_function(emacs_env *env, const char *name, emacs_value Sfun);
@@ -55,6 +56,7 @@ void goto_char(emacs_env *env, int pos);
 void forward_line(emacs_env *env, int n) ;
 void goto_line(emacs_env *env, int n) ;
 void toggle_cursor(emacs_env *env, bool visible);
+void toggle_cursor_blinking(emacs_env *env, bool visible);
 void delete_lines(emacs_env *env ,int linenum,int count ,bool del_whole_line);
 emacs_value get_hex_color_fg(emacs_env *env, emacs_value face);
 emacs_value get_hex_color_bg(emacs_env *env, emacs_value face);
diff --git a/vterm-module.c b/vterm-module.c
index 19f45c1..b0410f1 100644
--- a/vterm-module.c
+++ b/vterm-module.c
@@ -341,6 +341,8 @@ static int term_settermprop(VTermProp prop, VTermValue *val, void *user_data) {
   case VTERM_PROP_CURSORVISIBLE:
     term->cursor_visible = val->boolean;
     break;
+  case VTERM_PROP_CURSORBLINK:
+    term->cursor_blinking = val->boolean;
   default:
     return 0;
   }
@@ -556,6 +558,7 @@ static emacs_value Fvterm_update(emacs_env *env, ptrdiff_t nargs,
                                  emacs_value args[], void *data) {
   Term *term = env->get_user_ptr(env, args[0]);
 
+  toggle_cursor_blinking(env, term->cursor_blinking);
   toggle_cursor(env, term->cursor_visible);
 
   // Process keys
@@ -647,9 +650,7 @@ int emacs_module_init(struct emacs_runtime *ert) {
   Fdelete_lines = env->make_global_ref(env, env->intern(env, "vterm--delete-lines"));
   Frecenter = env->make_global_ref(env,env->intern(env, "vterm--recenter"));
   Fforward_char = env->make_global_ref(env,env->intern(env, "vterm--forward-char"));
-
-
-
+  Fblink_cursor_mode = env->make_global_ref(env,env->intern(env, "blink-cursor-mode"));
 
   // Faces
   Qterm = env->make_global_ref(env, env->intern(env, "vterm"));