diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-28 02:32:38 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-28 02:32:38 +0100 |
| commit | e9c12af512349cb95a0018e25a9cc54e78b468a4 (patch) | |
| tree | 7bdfc3a05d673e220c5a3a49ebfbe7d4ebb6dba6 /module/main.scm | |
| parent | Broke out vevent->sxml into generalized function. (diff) | |
| download | calp-e9c12af512349cb95a0018e25a9cc54e78b468a4.tar.gz calp-e9c12af512349cb95a0018e25a9cc54e78b468a4.tar.xz | |
Move config from module to config directory.
Diffstat (limited to 'module/main.scm')
| -rwxr-xr-x | module/main.scm | 6 |
1 files changed, 4 insertions, 2 deletions
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 () |