From e9c12af512349cb95a0018e25a9cc54e78b468a4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sat, 28 Dec 2019 02:32:38 +0100
Subject: Move config from module to config directory.

---
 module/config.scm            | 32 --------------------------------
 module/entry-points/html.scm |  1 -
 module/main.scm              |  6 ++++--
 module/output/html.scm       |  2 +-
 module/output/terminal.scm   |  1 -
 5 files changed, 5 insertions(+), 37 deletions(-)
 delete mode 100644 module/config.scm

(limited to 'module')

diff --git a/module/config.scm b/module/config.scm
deleted file mode 100644
index 08c678c9..00000000
--- a/module/config.scm
+++ /dev/null
@@ -1,32 +0,0 @@
-;;; Preliminary config file for the system.
-;;; Currently loaded by main, and requires that `calendar-files`
-;;; is set to a list of files (or directories).
-
-(define-module (config) #:use-module (parameters))
-
-(use-modules (srfi srfi-26)
-             (srfi srfi-88)
-             (ice-9 regex)
-             (ice-9 rdelim)
-             (glob))
-
-(calendar-files (glob "~/.local/var/cal/*"))
-
-;;; 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))
-
-(summary-filter
- (lambda (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)))
diff --git a/module/entry-points/html.scm b/module/entry-points/html.scm
index 699eebdb..82f972ae 100644
--- a/module/entry-points/html.scm
+++ b/module/entry-points/html.scm
@@ -8,7 +8,6 @@
   :use-module (ice-9 getopt-long)
 
   :use-module (parameters)
-  ;; :use-module (config)
   )
 
 
diff --git a/module/main.scm b/module/main.scm
index 72465a50..901746ea 100755
--- a/module/main.scm
+++ b/module/main.scm
@@ -28,8 +28,7 @@ exec guile -e main -s $0 "$@"
 
              (statprof)
 
-             (parameters)
-             (config))
+             (parameters))
 
 (define options
   '((mode (value #t) (single-char #\m))
@@ -47,6 +46,9 @@ exec guile -e main -s $0 "$@"
   (when stprof
     (statprof-start))
 
+  (primitive-load (format #f "~a/.config/calp/config.scm"
+                          (getenv "HOME")))
+
   (with-output-to-port
       (open-output-port (option-ref opts 'output "-"))
     (lambda ()
diff --git a/module/output/html.scm b/module/output/html.scm
index d16bba1d..0682bc6e 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -16,7 +16,7 @@
 
   #:use-module (git)
   #:use-module (parameters)
-  #:use-module (config))
+  )
 
 (define (td param)
   (lambda (d) `(td (@ ,(map (lambda (p)
diff --git a/module/output/terminal.scm b/module/output/terminal.scm
index 5d8a5a24..5ab70aa8 100644
--- a/module/output/terminal.scm
+++ b/module/output/terminal.scm
@@ -20,7 +20,6 @@
 
   #:use-module (ice-9 format)
   #:use-module (parameters)
-  #:use-module (config)
 
   #:export (main-loop))
 
-- 
cgit v1.2.3