From a11e55319ba05b58adeecc4cd8afa9fe878c12ab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 20 Mar 2020 01:31:56 +0100
Subject: Re-merge create-block{,-general}.

---
 module/output/html.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'module/output')

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
-- 
cgit v1.2.3