Add support for cursor blinking

1 files changed, 7 insertions, 0 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});