externalize awk scripts

2025-06-02 09:19:28 +02:00
parent 8d5223343b
commit 498c7371b7
9 changed files with 542 additions and 12 deletions
--- a/src/awk/new.awk
+++ b/src/awk/new.awk
@@ -0,0 +1,96 @@
+function escape_categories(str)
+{
+  gsub("\\\\", "\\\\", str);
+  gsub(";",  "\\\\;",    str);
+}
+
+function escape(str)
+{
+  escape_categories(str)
+  gsub(",",  "\\\\,",    str);
+}
+
+function print_fold(nameparam, content,    i, s)
+{
+  i = 74 - length(nameparam);
+  s = substr(content, 1, i);
+  print nameparam s;
+  s = substr(content, i+1, 73);
+  i = i + 73;
+  while (s)
+  {
+    print " " s;
+    s = substr(content, i+1, 73);
+    i = i + 73;
+  }
+}
+
+BEGIN { 
+  FS=":"; 
+  type = "VJOURNAL"; 
+  zulu = strftime("%Y%m%dT%H%M%SZ", systime(), 1);
+}
+desc { desc = desc "\\n" $0; next; }
+{
+  if (substr($0, 1, 6) == "::: |>")
+  {
+    start = substr(zulu, 1, 8);
+    getline;
+  }
+  if (substr($0, 1, 6) == "::: <|")
+  {
+    type = "VTODO"
+    due = substr($0, 8);
+    getline;
+  }
+  summary = substr($0, 1, 2) != "# " ? "" : substr($0, 3);
+  getline;
+  categories = substr($0, 1, 1) != ">" ? "" : substr($0, 3);
+  getline; # This line should be empty
+  getline; # First line of description
+  desc = $0;
+  next;
+}
+END {
+  # Sanitize input
+  if (due) {
+    # Use command line `date` for parsing
+    cmd = "date -d \"" due "\" +\"%Y%m%d\"";
+    cmd | getline res
+    due = res ? res : ""
+  }
+  escape(summary);
+  escape(desc);
+  escape_categories(categories);
+
+  # print ical
+  print "BEGIN:VCALENDAR";
+  print "VERSION:2.0";
+  print "CALSCALE:GREGORIAN";
+  print "PRODID:-//fab//awk//EN";
+  print "BEGIN:" type;
+  print "DTSTAMP:" zulu;
+  print "UID:" uid;
+  print "CLASS:PRIVATE";
+  print "CREATED:" zulu;
+  print "SEQUENCE:1";
+  print "LAST-MODIFIED:" zulu;
+  if (type == "VTODO")
+  {
+    print "STATUS:NEEDS-ACTION";
+    print "PERCENT-COMPLETE:0";
+    if (due)
+      print "DUE;VALUE=DATE:" due; 
+  }
+  else
+  {
+    print "STATUS:FINAL";
+    if (start)
+      print "DTSTART;VALUE=DATE:" start;
+  }
+  if (summary)    print_fold("SUMMARY:",     summary,       i, s);
+  if (categories) print_fold("CATEGORIES:",  categories,    i, s);
+  if (desc)       print_fold("DESCRIPTION:", desc,          i, s);
+  print "END:" type;
+  print "END:VCALENDAR"
+}