Extract elisp related functionality into elisp.c

1 files changed, 108 insertions, 0 deletions

diff --git a/elisp.c b/elisp.c
new file mode 100644
index 0000000..c17b7e1
--- /dev/null
+++ b/elisp.c
@@ -0,0 +1,108 @@
+#include "elisp.h"
+#include <stdio.h>
+
+/* Bind NAME to FUN.  */
+void bind_function(emacs_env *env, const char *name, emacs_value Sfun) {
+  /* Set the function cell of the symbol named NAME to SFUN using
+     the 'fset' function.  */
+
+  /* Convert the strings to symbols by interning them */
+  emacs_value Qfset = env->intern(env, "fset");
+  emacs_value Qsym = env->intern(env, name);
+
+  /* Prepare the arguments array */
+  emacs_value args[] = {Qsym, Sfun};
+
+  /* Make the call (2 == nb of arguments) */
+  env->funcall(env, Qfset, 2, args);
+}
+
+/* Provide FEATURE to Emacs.  */
+void provide(emacs_env *env, const char *feature) {
+  /* call 'provide' with FEATURE converted to a symbol */
+
+  emacs_value Qfeat = env->intern(env, feature);
+  emacs_value Qprovide = env->intern(env, "provide");
+  emacs_value args[] = {Qfeat};
+
+  env->funcall(env, Qprovide, 1, args);
+}
+
+int string_bytes(emacs_env *env, emacs_value string) {
+  ptrdiff_t size = 0;
+  env->copy_string_contents(env, string, NULL, &size);
+  return size;
+}
+
+emacs_value string_length(emacs_env *env, emacs_value string) {
+  return env->funcall(env, Flength, 1, (emacs_value[]){string});
+}
+
+emacs_value list(emacs_env *env, emacs_value *elements, ptrdiff_t len) {
+  return env->funcall(env, Flist, len, elements);
+}
+
+void put_text_property(emacs_env *env, emacs_value string,
+                              emacs_value property, emacs_value value) {
+  emacs_value start = env->make_integer(env, 0);
+  emacs_value end = string_length(env, string);
+
+  env->funcall(env, Fput_text_property, 5,
+               (emacs_value[]){start, end, property, value, string});
+}
+
+/*
+ * Color must be a string #RGB
+ */
+emacs_value render_text(emacs_env *env, char *buffer, int len,
+                               VTermScreenCell *cell) {
+  emacs_value text = env->make_string(env, buffer, len);
+
+  emacs_value foreground = color_to_rgb_string(env, cell->fg);
+  emacs_value background = color_to_rgb_string(env, cell->bg);
+  emacs_value bold = cell->attrs.bold ? Qbold : Qnormal;
+  emacs_value underline = cell->attrs.underline ? Qt : Qnil;
+  emacs_value italic = cell->attrs.italic ? Qitalic : Qnormal;
+  emacs_value reverse = cell->attrs.reverse ? Qt : Qnil;
+  emacs_value strike = cell->attrs.strike ? Qt : Qnil;
+
+  // TODO: Blink, font, dwl, dhl is missing
+  emacs_value properties =
+      list(env,
+           (emacs_value[]){Qforeground, foreground, Qbackground, background,
+                           Qweight, bold, Qunderline, underline, Qslant, italic,
+                           Qreverse, reverse, Qstrike, strike},
+           14);
+
+  put_text_property(env, text, Qface, properties);
+
+  return text;
+}
+
+void byte_to_hex(uint8_t byte, char *hex) {
+  snprintf(hex, 3, "%.2X", byte);
+}
+
+emacs_value color_to_rgb_string(emacs_env *env, VTermColor color) {
+  char buffer[8];
+  buffer[0] = '#';
+  buffer[7] = '\0';
+  byte_to_hex(color.red, buffer + 1);
+  byte_to_hex(color.green, buffer + 3);
+  byte_to_hex(color.blue, buffer + 5);
+
+  return env->make_string(env, buffer, 7);
+};
+
+void erase_buffer(emacs_env *env) {
+  env->funcall(env, Ferase_buffer, 0, NULL);
+}
+
+void insert(emacs_env *env, emacs_value string) {
+  env->funcall(env, Finsert, 1, (emacs_value[]){string});
+}
+
+void goto_char(emacs_env *env, int pos) {
+  emacs_value point = env->make_integer(env, pos);
+  env->funcall(env, Fgoto_char, 1, (emacs_value[]){point});
+}