diff options
Diffstat (limited to '')
-rw-r--r-- | module/output/common.scm | 32 |
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)) |