aboutsummaryrefslogtreecommitdiff
path: root/module/output/common.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/output/common.scm')
-rw-r--r--module/output/common.scm32
1 files changed, 0 insertions, 32 deletions
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))