From c3ed0230df578ce934289e3064b987ab86d602f2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 29 Mar 2019 15:32:52 +0100
Subject: Add summary-filter to SUMMARY field.

---
 module/config.scm | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

(limited to 'module/config.scm')

diff --git a/module/config.scm b/module/config.scm
index 3c6ebbb0..54cda06b 100644
--- a/module/config.scm
+++ b/module/config.scm
@@ -4,9 +4,31 @@
 
 
 (use-modules (srfi srfi-26)
-             (ice-9 ftw))
+             (srfi srfi-88)
+             (ice-9 ftw)
+             (ice-9 regex)
+             (ice-9 rdelim))
 
 (define calendar-files
     (let ((path (string-append (getenv "HOME") "/.calendars/")))
       (map (cut string-append path <>)
            (scandir path (lambda (str) (not (char=? #\. (string-ref str 0))))))))
+
+;;; TODO possibly replace with propper lookup
+(define my-courses
+  '((TSEA82 . "Datorteknik")
+    (TFYA19 . "Kvantdatorer")
+    (TATA42 . "Tvåvarren")
+    (TSRT04 . "Matlab")
+    (TDDC78 . "Paralellprogrammering")
+    (TDDB68 . "Pintos")))
+
+(define* (aref alist key optional: default)
+  (or (assoc-ref alist key) default key))
+
+
+(define (summary-filter ev str)
+  (regexp-substitute/global
+   #f "T[A-Z]{3}[0-9]{2}" str
+   'pre (lambda (m) (aref my-courses (string->symbol (match:substring m))))
+   'post))
-- 
cgit v1.2.3