diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-20 01:31:56 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-20 01:31:56 +0100 |
| commit | a11e55319ba05b58adeecc4cd8afa9fe878c12ab (patch) | |
| tree | 0bfc59a5c5f5d1ae7dc953608d0e964b751bb232 /module | |
| parent | Start work on better wide html renderer. (diff) | |
| download | calp-a11e55319ba05b58adeecc4cd8afa9fe878c12ab.tar.gz calp-a11e55319ba05b58adeecc4cd8afa9fe878c12ab.tar.xz | |
Re-merge create-block{,-general}.
Diffstat (limited to 'module')
| -rw-r--r-- | module/output/html.scm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index a3e74a44..4079d3ce 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -117,10 +117,11 @@ (inner x (right-subtree tree)))))) -(define (create-block-general date ev fmt) +;; Format single event for graphical display +(define (create-block date ev) ;; (define time (date->time-utc day)) (define style - (format #f fmt + (format #f "left:~,3f%;width:~,3f%;top:~,3f%;height:~,3f%;" (* 100 (x-pos ev)) ; left (* 100 (width ev)) ; width @@ -152,10 +153,6 @@ ) -;; Format single event for graphical display -(define (create-block date ev) - (create-block-general date ev "left:~,3f%;width:~,3f%;top:~,3f%;height:~,3f%;")) - (define (create-top-block start-date end-date ev) ;; TODO |