Started properties.

diff --git a/src/parser.c b/src/parser.c
index 146509d122ee22cd8b9cba8940b5486a4193ded9..301cd6da0489ee349ea9f7d79d0a18211b2846b6 100644 (file)
--- a/src/parser.c
+++ b/src/parser.c
@@ -219,6 +219,9 @@ zak_gorg_parser_parse (ZakGorgParser *zak_gorg_parser)
 
        GRegex *regex_header;
        GRegex *regex_tags;
+       GRegex *regex_properties;
+       GRegex *regex_property;
+
        GMatchInfo *match_info;
        gint rx_start;
        gint rx_end;
@@ -261,6 +264,8 @@ zak_gorg_parser_parse (ZakGorgParser *zak_gorg_parser)
 
        regex_header = g_regex_new ("[*]+ ", 0, 0, NULL);
        regex_tags = g_regex_new (":[^ .]*:$", 0, 0, NULL);
+       regex_properties = g_regex_new ("^[ ]*:PROPERTIES:\n(.*\n)*[ ]*:END:\n", 0, 0, NULL);
+       regex_property = g_regex_new (":[^ .]*:.*", 0, 0, NULL);
 
        root = g_node_get_root (zak_gorg_parser->nodes);
 
@@ -284,6 +289,20 @@ zak_gorg_parser_parse (ZakGorgParser *zak_gorg_parser)
                                }
                        else
                                {
+                                       /* check if there are properties */
+                                       if (cur != NULL && ((Header *)cur->data)->body != NULL)
+                                               {
+                                                       g_regex_match (regex_properties, ((Header *)cur->data)->body->str, 0, &match_info);
+
+                                                       if (g_match_info_fetch (match_info, 0) != NULL)
+                                                               {
+                                                                       g_warning ("PROP %s", g_match_info_fetch (match_info, 0));
+                                                               }
+
+                                                       g_match_info_free (match_info);
+                                               }
+
+
                                        Header *h = g_new0 (Header, 1);
                                        h->body = NULL;
                                        for (l = 0; l < strlen (lines[i]); l++)
@@ -330,6 +349,7 @@ zak_gorg_parser_parse (ZakGorgParser *zak_gorg_parser)
                                                                        cur = cur->parent;
                                                                }
                                                }
+
                                        g_node_append (cur, n);
                                        cur = n;
                                }

diff --git a/tests/simple.org b/tests/simple.org
index 0f26f8835aa53dd232b77ed03818ac38661bbb56..524ab8b5557b2b539413b965132ce76386d597e0 100644 (file)
--- a/tests/simple.org
+++ b/tests/simple.org
@@ -3,6 +3,9 @@
 body with no space
 ** sub 2 first line
 * second line                                                          :tag1:
+  :PROPERTIES:
+  :prop1:    val1
+  :END:
   the body of the second line
   it's multiline body
 *** sub 1 sub 1 second line (without parent)