aboutsummaryrefslogtreecommitdiff
path: root/module/entry-points/import.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@hornquist.se>2019-12-23 23:40:14 +0100
committerHugo Hörnquist <hugo@hornquist.se>2019-12-24 00:02:02 +0100
commit92b2f429a06ed9b052baff5e27f012397b338f6a (patch)
tree0ca9c2d8d1d72f5c898ee8384c2ef5459c1ef112 /module/entry-points/import.scm
parentMove open-{input,output}-port to (util io). (diff)
downloadcalp-92b2f429a06ed9b052baff5e27f012397b338f6a.tar.gz
calp-92b2f429a06ed9b052baff5e27f012397b338f6a.tar.xz
Rework program initialization.
Old init setup had the fancy idea to parse all files before anything could be done with them. This however led to problems when a part of the program which didn't care for the calendar files (such as text formatting). It also made testing performance almost impossible since to much code was run before I had a chance to init statprof.
Diffstat (limited to '')
-rw-r--r--module/entry-points/import.scm (renamed from module/output/import.scm)10
1 files changed, 8 insertions, 2 deletions
diff --git a/module/output/import.scm b/module/entry-points/import.scm
index 47f4fd47..5558433b 100644
--- a/module/output/import.scm
+++ b/module/entry-points/import.scm
@@ -1,5 +1,8 @@
-(define-module (output import)
- :use-module (util))
+(define-module (entry-points import)
+ :export (main)
+ :use-module (util)
+ :use-module (ice-9 getopt-long)
+ )
(define options
'((calendar (value #t) (single-char #\c))
@@ -29,3 +32,6 @@
)
+
+(define (main . _)
+ 'noop)