diff --git a/lib/org/lexer.ex b/lib/org/lexer.ex index 5abd894..35aef74 100644 --- a/lib/org/lexer.ex +++ b/lib/org/lexer.ex @@ -59,7 +59,7 @@ defmodule Org.Lexer do @empty_line_re ~r/^\s*$/ @table_row_re ~r/^\s*(?:\|[^|]*)+\|\s*$/ @begin_props_re ~r/^\s*\:PROPERTIES\:$/ - @property_re ~r/^\s*\:([A-Za-z]+)\:\s*(.+)$/ + @property_re ~r/^\s*\:([A-Za-z_]+)\:\s*(.+)$/ @end_drawer_re ~r/^\s*\:END\:$/ defp lex_line(line, %Org.Lexer{mode: :normal} = lexer) do diff --git a/test/org/lexer_test.exs b/test/org/lexer_test.exs index 6384d69..2b5cd93 100644 --- a/test/org/lexer_test.exs +++ b/test/org/lexer_test.exs @@ -34,6 +34,7 @@ defmodule Org.LexerTest do {:property, "Artist", "Glenn Gould"}, {:property, "Publisher", "Deutsche Grammophon"}, {:property, "NDisks", "1"}, + {:property, "ARCHIVE_TIME", "2018-08-14 Tue 16:39"}, {:end_drawer}, {:text, "3"}, {:section_title, 4, "is nesting"}, diff --git a/test/org/parser_test.exs b/test/org/parser_test.exs index af46e40..ce7247e 100644 --- a/test/org/parser_test.exs +++ b/test/org/parser_test.exs @@ -39,6 +39,7 @@ defmodule Org.ParserTest do {:Artist, "Glenn Gould"}, {:Publisher, "Deutsche Grammophon"}, {:NDisks, "1"}, + {:ARCHIVE_TIME, "2018-08-14 Tue 16:39"}, ] end end diff --git a/test/org_test.exs b/test/org_test.exs index fb7491a..90ea2de 100644 --- a/test/org_test.exs +++ b/test/org_test.exs @@ -21,11 +21,12 @@ defmodule OrgTest do 2 *** thing :PROPERTIES: - :Title: Goldberg Variations - :Composer: J.S. Bach - :Artist: Glenn Gould - :Publisher: Deutsche Grammophon - :NDisks: 1 + :Title: Goldberg Variations + :Composer: J.S. Bach + :Artist: Glenn Gould + :Publisher: Deutsche Grammophon + :NDisks: 1 + :ARCHIVE_TIME: 2018-08-14 Tue 16:39 :END: 3 **** is nesting