ifixed spacing - ics2txt - convert icalendar .ics file to plain text Err bitreich.org 70 hgit clone git://bitreich.org/ics2txt git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/ics2txt URL:git://bitreich.org/ics2txt git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/ics2txt bitreich.org 70 1Log /scm/ics2txt/log.gph bitreich.org 70 1Files /scm/ics2txt/files.gph bitreich.org 70 1Refs /scm/ics2txt/refs.gph bitreich.org 70 1Tags /scm/ics2txt/tag bitreich.org 70 1README /scm/ics2txt/file/README.md.gph bitreich.org 70 i--- Err bitreich.org 70 1commit d587bdf097f3d058457675df00434427fb664976 /scm/ics2txt/commit/d587bdf097f3d058457675df00434427fb664976.gph bitreich.org 70 1parent 13d34f87f87305c3ee0e246e387316baeeea4e29 /scm/ics2txt/commit/13d34f87f87305c3ee0e246e387316baeeea4e29.gph bitreich.org 70 hAuthor: Josuah Demangeon URL:mailto:mail@josuah.net bitreich.org 70 iDate: Fri, 20 Apr 2018 03:16:25 +0200 Err bitreich.org 70 i Err bitreich.org 70 ifixed spacing Err bitreich.org 70 i Err bitreich.org 70 iDiffstat: Err bitreich.org 70 i M agenda | 33 ++++++++++++++++--------------- Err bitreich.org 70 i Err bitreich.org 70 i1 file changed, 17 insertions(+), 16 deletions(-) Err bitreich.org 70 i--- Err bitreich.org 70 1diff --git a/agenda b/agenda /scm/ics2txt/file/agenda.gph bitreich.org 70 i@@ -92,9 +92,9 @@ function parse_ical(list, off) Err bitreich.org 70 i FS = "[:;]"; Err bitreich.org 70 i Err bitreich.org 70 i while (getline) { Err bitreich.org 70 i- gsub("\\\\[ntr]", " "); Err bitreich.org 70 i- gsub("[ \t]*<[a-zA-Z0-9/]*>*[ \t]*", ""); Err bitreich.org 70 i- gsub("\\\\", ""); Err bitreich.org 70 i+ gsub("\r", " "); gsub("\\\\[ntr]", " "); gsub("\\\\", ""); Err bitreich.org 70 i+ gsub("^ *", ""); gsub(" *$", ""); Err bitreich.org 70 i+ gsub(" *<[a-zA-Z0-9/]*>* *", ""); Err bitreich.org 70 i Err bitreich.org 70 i if (match($0, "^ ")) { Err bitreich.org 70 i event[type] = event[type] substr($0, 2, length($0) - 1); Err bitreich.org 70 i@@ -117,15 +117,6 @@ function parse_ical(list, off) Err bitreich.org 70 i return nb; Err bitreich.org 70 i } Err bitreich.org 70 i Err bitreich.org 70 i-function txt(off) Err bitreich.org 70 i-{ Err bitreich.org 70 i- nb = parse_ical(list, off); Err bitreich.org 70 i- for (i = 1; i <= nb; i++) { Err bitreich.org 70 i- split(list[i], arr, "\t"); Err bitreich.org 70 i- txt_one(arr[1], arr[2], arr[3], arr[4], arr[5], arr[6]); Err bitreich.org 70 i- } Err bitreich.org 70 i-} Err bitreich.org 70 i- Err bitreich.org 70 i function txt_one(beg, end, cat, sum, loc, des, off) { Err bitreich.org 70 i b = to_date("%04d/%02d/%02d %02d:%02d", beg + off); Err bitreich.org 70 i e = to_date("%04d/%02d/%02d %02d:%02d", end + off); Err bitreich.org 70 i@@ -144,18 +135,28 @@ function txt_one(beg, end, cat, sum, loc, des, off) { Err bitreich.org 70 i while ((line = substr(des, 1, 66)) != "") { Err bitreich.org 70 i if (length(line) == 66) Err bitreich.org 70 i sub(" +[^ ]*$", "", line); Err bitreich.org 70 i- printf(" %s\n", line); Err bitreich.org 70 i- des = substr(des, length(line) + 1); Err bitreich.org 70 i+ des = substr(des, length(line) + 2); Err bitreich.org 70 i+ sub("^ *", "", line); Err bitreich.org 70 i sub("^ *", "", des); Err bitreich.org 70 i+ printf(" %s\n", line); Err bitreich.org 70 i } Err bitreich.org 70 i l_mth = b_mth; Err bitreich.org 70 i l_day = b_day; Err bitreich.org 70 i } Err bitreich.org 70 i Err bitreich.org 70 i+function txt(off) Err bitreich.org 70 i+{ Err bitreich.org 70 i+ nb = parse_ical(list, off); Err bitreich.org 70 i+ for (i = 1; i <= nb; i++) { Err bitreich.org 70 i+ split(list[i], arr, "\t"); Err bitreich.org 70 i+ txt_one(arr[1], arr[2], arr[3], arr[4], arr[5], arr[6]); Err bitreich.org 70 i+ } Err bitreich.org 70 i+} Err bitreich.org 70 i+ Err bitreich.org 70 i function tsv(off) Err bitreich.org 70 i { Err bitreich.org 70 i- n = parse_ical(list, off); Err bitreich.org 70 i- for (i = 0; i < n; i++) Err bitreich.org 70 i+ nb = parse_ical(list, off); Err bitreich.org 70 i+ for (i = 0; i < nb; i++) Err bitreich.org 70 i print(list[i]); Err bitreich.org 70 i } Err bitreich.org 70 i Err bitreich.org 70 .