#include "elisp.h"
#include <stdio.h>

/* Set the function cell of the symbol named NAME to SFUN using
   the 'fset' function.  */
void bind_function(emacs_env *env, const char *name, emacs_value Sfun) {
  emacs_value Qfset = env->intern(env, "fset");
  emacs_value Qsym = env->intern(env, name);

  env->funcall(env, Qfset, 2, (emacs_value[]){Qsym, Sfun});
}

/* Provide FEATURE to Emacs.  */
void provide(emacs_env *env, const char *feature) {
  emacs_value Qfeat = env->intern(env, feature);
  emacs_value Qprovide = env->intern(env, "provide");

  env->funcall(env, Qprovide, 1, (emacs_value[]){Qfeat});
}

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});
}

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);
};

uint8_t hex_to_byte(char *hex) { return strtoul(hex, NULL, 16); }

VTermColor rgb_string_to_color(emacs_env *env, emacs_value string) {
  VTermColor color;
  ptrdiff_t len = 8;
  char buffer[len];
  char hex[3];
  env->copy_string_contents(env, string, buffer, &len);
  hex[0] = buffer[1];
  hex[1] = buffer[2];
  color.red = hex_to_byte(hex);
  hex[0] = buffer[3];
  hex[1] = buffer[4];
  color.green = hex_to_byte(hex);
  hex[0] = buffer[5];
  hex[1] = buffer[6];
  color.blue = hex_to_byte(hex);

  return color;
};

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});
}

void forward_line(emacs_env *env, int n) {
  emacs_value nline = env->make_integer(env, n);
  env->funcall(env, Fforward_line, 1, (emacs_value[]){nline});
}
void goto_line(emacs_env *env, int n) {
  emacs_value nline = env->make_integer(env, n);
  env->funcall(env, Fgoto_line, 1, (emacs_value[]){nline});
}
void delete_lines(emacs_env *env, int linenum, int count, bool del_whole_line) {
  emacs_value Qlinenum = env->make_integer(env, linenum);
  emacs_value Qcount = env->make_integer(env, count);
  if (del_whole_line) {
    env->funcall(env, Fdelete_lines, 3, (emacs_value[]){Qlinenum, Qcount, Qt});
  } else {
    env->funcall(env, Fdelete_lines, 3,
                 (emacs_value[]){Qlinenum, Qcount, Qnil});
  }
}
void recenter(emacs_env *env, emacs_value pos) {
  env->funcall(env, Frecenter, 1, (emacs_value[]){pos});
}
void forward_char(emacs_env *env, emacs_value n) {
  env->funcall(env, Fforward_char, 1, (emacs_value[]){n});
}
emacs_value buffer_line_number(emacs_env *env) {
  return env->funcall(env, Fbuffer_line_number, 0, (emacs_value[]){});
}

emacs_value get_buffer_window(emacs_env *env) {
  return env->funcall(env, Fget_buffer_window, 0, (emacs_value[]){});
}

emacs_value selected_window(emacs_env *env) {
  return env->funcall(env, Fselected_window, 0, (emacs_value[]){});
}

void toggle_cursor(emacs_env *env, bool visible) {
  emacs_value Qvisible = visible ? Qt : Qnil;
  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});
}

emacs_value get_hex_color_bg(emacs_env *env, emacs_value face) {
  return env->funcall(env, Fvterm_face_color_hex, 2,
                      (emacs_value[]){face, Qbackground});
}
void set_title(emacs_env *env, emacs_value string) {
   env->funcall(env, Fvterm_set_title, 1, (emacs_value[]){string});
}