diff options
Diffstat (limited to 'rem.lua')
-rw-r--r-- | rem.lua | 13 |
1 files changed, 9 insertions, 4 deletions
@@ -247,7 +247,7 @@ local rem_of_vcalendars do return nil end - local msg_of_description = function (val) + local string_of_textdata = function (val) local sane = unescape_string (val.value) return trim_whitespace (sane) @@ -259,7 +259,7 @@ local rem_of_vcalendars do local rem_of_vevent = function (ev) local dtstart, dtend - local date, msg + local date, msg, msg_desc local vals = ev.value local nvals = #vals @@ -269,11 +269,12 @@ local rem_of_vcalendars do if val.kind == "other" then local valname = val.name - if valname == "description" then msg = msg_of_description (val) + if valname == "summary" then msg = string_of_textdata (val) + elseif valname == "description" then msg_desc = string_of_textdata (val) elseif valname == "dtstart" then dtstart = val elseif valname == "dtend" then dtend = val else - noiseln ("rem_of_vevent: ignoring value [%s]", valname) + debugln ("rem_of_vevent: ignoring value [%s]", valname) end else end @@ -289,6 +290,10 @@ local rem_of_vcalendars do error ("could not derive message text from event values") end + if msg_desc ~= nil then + msg = stringformat ("%s (%s)", msg, msg_desc) + end + return stringformat ("REM %s MSG %s", date, msg_of_string (msg)) end |