rem: extract summary (subject) from events

1 files changed, 9 insertions, 4 deletions

diff --git a/rem.lua b/rem.lua
index ed3a355..c8826dc 100644
--- a/rem.lua
+++ b/rem.lua
@@ -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