From c1cbef6611df9c8918fee8699b5867d8a54ac810 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 17 Aug 2020 18:13:58 +0200 Subject: even more. --- module/output/common.scm | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 module/output/common.scm (limited to 'module/output/common.scm') diff --git a/module/output/common.scm b/module/output/common.scm deleted file mode 100644 index 84a2f77e..00000000 --- a/module/output/common.scm +++ /dev/null @@ -1,32 +0,0 @@ -;;; Commentary: -;; Common code between all serializers. -;; (ical and xcal). Not for graphical output stuff. -;;; Code: - -(define-module (output common) - :use-module (util) - :use-module (srfi srfi-1) - :use-module (vcomponent) - ) - - -(define*-public (internal-field? symbol optional: (prefix "-")) - (string=? prefix - (string-take-to (symbol->string symbol) - (string-length prefix)))) - -(define-public (get-tz-names events) - (lset-difference - equal? (lset-union - equal? '("dummy") - (filter-map - (lambda (vline) (and=> (param vline 'TZID) car)) - (filter-map (extract* 'DTSTART) - events))) - '("dummy" "local"))) - -(define-public (downcase-symbol symb) - (-> symb - symbol->string - string-downcase - string->symbol)) -- cgit v1.2.3