[PATCH] Minimal org-mode support

Index: Makefile
===================================================================
RCS file: /sources/qemacs/qemacs/Makefile,v
retrieving revision 1.57
diff -u -r1.57 Makefile
--- Makefile	2 Jan 2014 10:10:24 -0000	1.57
+++ Makefile	6 Jan 2014 11:56:10 -0000
@@ -111,7 +111,7 @@
 
 ifdef CONFIG_ALL_MODES
   OBJS+= unihex.o clang.o xml.o bufed.o \
-         lisp.o makemode.o perl.o htmlsrc.o script.o variables.o
+         lisp.o makemode.o org-mode.o perl.o htmlsrc.o script.o variables.o
   ifndef CONFIG_WIN32
     OBJS+= shell.o dired.o latex-mode.o
   endif
--- /dev/null	2013-11-11 13:26:50.667131979 +0100
+++ org-mode.c	2014-01-06 12:54:48.000000000 +0100
@@ -0,0 +1,362 @@
+/*
+ * Org mode for QEmacs.
+ *
+ * Copyright (c) 2001, 2002 Fabrice Bellard.
+ * Copyright (c) 2002-2013 Charlie Gordon.
+ * Copyright (c) 2014 Francois Revol.
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ */
+
+#include "qe.h"
+
+ModeDef org_mode;
+
+#define IN_BULLET       0x01
+#define IN_ACTION       0x02
+#define IN_TAG          0x04
+
+#define MAX_BUF_SIZE    512
+
+
+/* TODO: define specific styles */
+static struct OrgTodoKeywords {
+    const char *keyword;
+    int style;
+} OrgTodoKeywords [] = {
+  {"TODO", QE_STYLE_STRING},
+  {"DONE", QE_STYLE_TYPE}
+};
+
+/* TODO: define specific styles */
+#define BULLET_STYLES 5
+static int OrgBulletStyles[BULLET_STYLES] = {
+    QE_STYLE_FUNCTION,
+    QE_STYLE_VARIABLE,
+    QE_STYLE_PREPROCESS,
+    QE_STYLE_STRING,
+    QE_STYLE_TYPE
+};
+
+static int org_bullet_depth(int *str, int n)
+{
+    int i;
+
+    for (i = 0; i < n && (str[i] & CHAR_MASK) == '*'; i++) {
+        if ((str[i + 1] & CHAR_MASK) == ' ') {
+	    return i;
+	}
+    }
+    return -1;
+}
+
+static int org_todo_keyword(int *str, int n)
+{
+    int i;
+    char c;
+    int klen;
+    char kbuf[32];
+
+    klen = 0;
+    for (i = 0; i < n && qe_isalpha(c = (str[i] & CHAR_MASK)); i++) {
+        if (klen < countof(kbuf) - 1)
+	    kbuf[klen++] = c;
+	else
+	    break;
+    }
+    kbuf[klen] = '\0';
+    if (klen > 0 && c == ' ') {
+      int k;
+      for (k = 0; k < countof(OrgTodoKeywords); k++) {
+	if (!strcmp(kbuf, OrgTodoKeywords[k].keyword)) {
+	  set_color(str, str + i, OrgTodoKeywords[k].style);
+	  return k;
+	}
+      }
+    }
+    return -1;
+}
+
+static void org_colorize_line(unsigned int *str, int n, int *statep,
+                              __unused__ int state_only)
+{
+    int colstate = *statep;
+    int bullets = 0;
+    int base_style = 0;
+    int i = 0, j = 0;
+    int klen;
+    char kbuf[32];
+    char c;
+    int k;
+
+    bullets = org_bullet_depth(str, n);
+    if (bullets > -1) {
+	    colstate = IN_BULLET;
+	    base_style = OrgBulletStyles[bullets % BULLET_STYLES];
+	    set_color(str, str + bullets + 1, base_style);
+	    i = bullets + 2;
+    }
+
+    if (colstate & IN_BULLET) {
+        int kw = org_todo_keyword(str + i, n - i);
+        if (kw > -1) {
+	    int kwlen = strlen(OrgTodoKeywords[kw].keyword);
+            set_color(str + i, str + i + kwlen, OrgTodoKeywords[kw].style);
+	    i += kwlen;
+	}
+    }
+
+    while (i < n) {
+        c = str[i] & CHAR_MASK;
+        switch (c) {
+        default:
+            break;
+        }
+	set_color1(str + i, base_style);
+        i++;
+        continue;
+    }
+
+    colstate = 0;
+    *statep = colstate;
+}
+
+static void do_org_todo(EditState *s)
+{
+  int offset, offsetl, line_num, col_num, bullets, len;
+  unsigned int buf[MAX_BUF_SIZE], *p;
+  int kw;
+
+    /* find start of line */
+    eb_get_pos(s->b, &line_num, &col_num, s->offset);
+    offset = eb_goto_bol(s->b, s->offset);
+    do {
+      offsetl = offset;
+      len = eb_get_line(s->b, buf, countof(buf), &offsetl);
+      bullets = org_bullet_depth(buf, len);
+      if (bullets > -1) {
+	  break;
+      }
+      offsetl = offset;
+      offset = eb_prev_line(s->b, offset);
+    } while (offsetl > 0);
+
+    if (bullets < 0)
+      return;
+
+    offset = eb_goto_bol(s->b, offset);
+    kw = org_todo_keyword(buf + bullets + 2, len - bullets);
+
+    if (kw > -1) {
+      int kwlen = strlen(OrgTodoKeywords[kw].keyword);
+      eb_delete(s->b, offset + bullets + 2, kwlen + 1);
+    }
+
+    kw++;
+
+    if (kw < countof(OrgTodoKeywords)) {
+      int kwlen = strlen(OrgTodoKeywords[kw].keyword);
+      eb_insert(s->b, offset + bullets + 2, " ", 1);
+      eb_insert(s->b, offset + bullets + 2, OrgTodoKeywords[kw].keyword, kwlen);
+    }
+}
+
+static void do_org_meta_return(EditState *s)
+{
+    int offset, offsetl, line_num, col_num, bullets, len;
+    unsigned int buf[MAX_BUF_SIZE], *p;
+    int kw;
+
+    /* find start of line */
+    eb_get_pos(s->b, &line_num, &col_num, s->offset);
+    offset = eb_goto_bol(s->b, s->offset);
+    offsetl = offset;
+    len = eb_get_line(s->b, buf, countof(buf), &offsetl);
+    bullets = org_bullet_depth(buf, len);
+    if (bullets < 0)
+      return;
+
+    if (col_num > 0)
+      offset = offsetl;
+
+    eb_insert(s->b, offset, " \n", 2);
+    do {
+        eb_insert(s->b, offset, "*", 1);
+    } while (bullets--);
+    eb_goto_eol(s->b, offset);
+    if (col_num > 0)
+      text_move_up_down(s, 1);
+    text_move_eol(s);
+}
+
+static void do_org_insert_todo_heading(EditState *s)
+{
+    printf("M-S-RET\n");
+    /* TODO */
+}
+
+static void do_org_promote(EditState *s, int dir)
+{
+    int offset, offsetl, line_num, col_num, len;
+    int bullets;
+    unsigned int buf[MAX_BUF_SIZE], *p;
+    int kw;
+
+    /* find start of line */
+    eb_get_pos(s->b, &line_num, &col_num, s->offset);
+    offset = eb_goto_bol(s->b, s->offset);
+    offsetl = offset;
+    len = eb_get_line(s->b, buf, countof(buf), &offsetl);
+    bullets = org_bullet_depth(buf, len);
+    if (bullets < 0)
+      return;
+
+    if (dir > 0)
+        eb_insert(s->b, offset, "*", 1);
+    if (dir < 0 && bullets > 0)
+        eb_delete(s->b, offset, 1);
+}
+
+static void do_org_promote_subtree(EditState *s, int dir)
+{
+    int offset, offsetl, offseti, line_num, col_num, len;
+    int bullets, bullets1;
+    unsigned int buf[MAX_BUF_SIZE], *p;
+    int kw;
+
+    /* find start of line */
+    eb_get_pos(s->b, &line_num, &col_num, s->offset);
+    offset = eb_goto_bol(s->b, s->offset);
+    offsetl = offset;
+    len = eb_get_line(s->b, buf, countof(buf), &offsetl);
+    bullets = org_bullet_depth(buf, len);
+    if (bullets < 0)
+      return;
+
+    if (dir > 0)
+        eb_insert(s->b, offset, "*", 1);
+    else if (dir < 0 && bullets > 0)
+        eb_delete(s->b, offset, 1);
+    else
+        return;
+
+    bullets1 = bullets;
+    for (;;) {
+        offsetl = eb_next_line(s->b, offset);
+	if (offsetl == offset)
+	    break;
+	offset = offseti = offsetl;
+	eb_get_pos(s->b, &line_num, &col_num, offseti);
+	len = eb_get_line(s->b, buf, countof(buf), &offseti);
+	bullets = org_bullet_depth(buf, len);
+	if (bullets < 0)
+	    continue;
+	if (bullets <= bullets1)
+	    break;
+	
+	if (dir > 0)
+	    eb_insert(s->b, offset, "*", 1);
+	if (dir < 0 && bullets > 0)
+	    eb_delete(s->b, offset, 1);
+   }
+}
+
+static void do_org_metaleft(EditState *s)
+{
+  do_org_promote(s, -1);
+}
+
+static void do_org_metaright(EditState *s)
+{
+  do_org_promote(s, 1);
+}
+
+static void do_org_shiftmetaleft(EditState *s)
+{
+  do_org_promote_subtree(s, -1);
+}
+
+static void do_org_shiftmetaright(EditState *s)
+{
+  do_org_promote_subtree(s, 1);
+}
+
+static int org_mode_probe(ModeDef *mode, ModeProbeData *p)
+{
+    /* just check file extension */
+    if (match_extension(p->filename, mode->extensions))
+        return 80;
+
+    return 0;
+}
+
+static int org_mode_init(EditState *s, __unused__ ModeSavedData *saved_data)
+{
+    int ret;
+
+    ret = text_mode_init(s, saved_data);
+    if (ret)
+        return ret;
+
+    s->wrap = WRAP_TRUNCATE;
+    return 0;
+}
+
+static void org_mode_close(__unused__ EditState *s)
+{
+}
+
+/* Org mode specific commands */
+static CmdDef org_commands[] = {
+    /* actually C-c C-t */
+    CMD2( KEY_CTRL('t'), KEY_NONE,
+         "org-todo", do_org_todo, ES, "*")
+    CMD2( KEY_META(KEY_RET), KEY_NONE,
+         "org-meta-return", do_org_meta_return, ES, "*")
+    /*
+    CMD2( KEY_META_S('\n'), KEY_NONE,
+         "org-insert-todo-heading", do_org_insert_todo_heading, ES, "*")
+    */
+    /* actually M-left */
+    CMD2( KEY_CTRL_LEFT, KEY_NONE,
+         "org-metaleft", do_org_metaleft, ES, "*")
+    /* actually M-right */
+    CMD2( KEY_CTRL_RIGHT, KEY_NONE,
+         "org-metaright", do_org_metaright, ES, "*")
+    /* actually M-S-left */
+    CMD2( KEY_CTRLX('<'), KEY_NONE,
+         "org-shiftmetaleft", do_org_shiftmetaleft, ES, "*")
+    /* actually M-S-right */
+    CMD2( KEY_CTRLX('>'), KEY_NONE,
+         "org-shiftmetaright", do_org_shiftmetaright, ES, "*")
+    CMD_DEF_END,
+};
+
+static int org_init(void)
+{
+    memcpy(&org_mode, &text_mode, sizeof(ModeDef));
+    org_mode.name = "org";
+    org_mode.extensions = "org";
+    org_mode.mode_probe = org_mode_probe;
+    org_mode.colorize_func = org_colorize_line;
+    org_mode.mode_init = org_mode_init;
+
+    qe_register_mode(&org_mode);
+    qe_register_cmd_table(org_commands, &org_mode);
+
+    return 0;
+}
+
+qe_module_init(org_init);