From 9a0a030cc83559084e6e4637fbcaed43face6217 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Tue, 23 Apr 2019 23:14:35 +0200
Subject: Move some procedures.

---
 module/output/html.scm | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

(limited to 'module/output/html.scm')

diff --git a/module/output/html.scm b/module/output/html.scm
index 3df3c713..812e9d79 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -8,6 +8,7 @@
   #:use-module (util tree)
   #:use-module (srfi srfi-19)
   #:use-module (srfi srfi-19 util)
+  #:use-module (output general)
 
   #:use-module (parameters)
   #:use-module (config))
@@ -107,7 +108,6 @@
                " "
                ,@(stream->list (stream-map (lambda (e) (vevent->sxml date e)) events))))))
 
-
 (define (time-marker-div)
   (map (lambda (time)
          `(div (@ (id ,(string-append "clock-" time))
@@ -118,18 +118,6 @@
 (define (d str)
   (string->date str "~Y-~m-~d"))
 
-
-(define (calculate-fg-color c)
-  (define (str->num c n) (string->number (substring/shared c n (+ n 2)) 16))
-  (let ((r (str->num c 1))
-        (g (str->num c 3))
-        (b (str->num c 5)))
-    (if (< 1/2 (/ (+ (* 0.299 r)
-                     (* 0.587 g)
-                     (* 0.144 b))
-                  #xFF))
-        "black" "#e5e8e6")))
-
 (define (include-css path)
   `(link (@ (type "text/css")
             (rel "stylesheet")
-- 
cgit v1.2.3