From 21cfec3e75a475a5e421eae0cd29d98cf8d87ad0 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 17 Jun 2024 20:16:33 +0100
Subject: Suggest current subject as event summary.

* varuga.el (varuga-invite): Suggest current subject as event summary.
---
 varuga.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/varuga.el b/varuga.el
index b7e24c3..ab2b73c 100644
--- a/varuga.el
+++ b/varuga.el
@@ -132,7 +132,10 @@ SUMMARY is a short description of the event.  LOCATION is the
 location of the event (typically a URI for online meetings).
 WHEN is the encoded time when the event is scheduled.  DURATION
 is the length of the event in minutes."
-  (interactive (list (read-string "Event Summary: ")
+  (interactive (list (read-string "Event Summary: "
+                                  (string-trim
+                                   (string-remove-prefix
+                                    "Re:" (message-fetch-field "Subject"))))
                      (read-string "Location: ")
                      (org-read-date t t nil "When?")
                      (org-duration-to-minutes
-- 
cgit v1.2.3