Get singles properties.

diff --git a/src/parser.c b/src/parser.c
index 301cd6da0489ee349ea9f7d79d0a18211b2846b6..fb7e7654405214db7badcc9976c1cd9d6433b847 100644 (file)
--- a/src/parser.c
+++ b/src/parser.c
@@ -264,8 +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);
+       regex_properties = g_regex_new ("^[ ]*:PROPERTIES:\n((.*\n)*)[ ]*:END:\n", 0, 0, NULL);
+       regex_property = g_regex_new ("^[ ]*:[^ .]*:.*\n$", 0, 0, NULL);
 
        root = g_node_get_root (zak_gorg_parser->nodes);
 
@@ -296,7 +296,18 @@ zak_gorg_parser_parse (ZakGorgParser *zak_gorg_parser)
 
                                                        if (g_match_info_fetch (match_info, 0) != NULL)
                                                                {
-                                                                       g_warning ("PROP %s", g_match_info_fetch (match_info, 0));
+                                                                       gchar **props;
+                                                                       guint f;
+
+                                                                       g_warning ("PROPS %s", g_match_info_fetch (match_info, 0));
+
+                                                                       props = g_strsplit (g_match_info_fetch (match_info, 1), "\n", -1);
+
+                                                                       f = g_strv_length (props);
+                                                                       for (l = 0; l < f; l++)
+                                                                               {
+                                                                                       g_warning ("PROP %s", props[l]);
+                                                                               }
                                                                }
 
                                                        g_match_info_free (match_info);
@@ -372,4 +383,6 @@ zak_gorg_parser_parse (ZakGorgParser *zak_gorg_parser)
 
        g_regex_unref (regex_header);
        g_regex_unref (regex_tags);
+       g_regex_unref (regex_properties);
+       g_regex_unref (regex_property);
 }

diff --git a/tests/simple.org b/tests/simple.org
index 524ab8b5557b2b539413b965132ce76386d597e0..9748af0be4ab302577d965ba480f2fd770f5247c 100644 (file)
--- a/tests/simple.org
+++ b/tests/simple.org
@@ -5,6 +5,7 @@ body with no space
 * second line                                                          :tag1:
   :PROPERTIES:
   :prop1:    val1
+  :property2:    value2
   :END:
   the body of the second line
   it's multiline body