blob: 09a642da5680358e61c33a4ce2f2d0d81c2387dd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(define-module (calp namespaces))
;;; Commentary:
;;; (XML) Namespaces used by different parts of the program.
;;; Code:
(define-public webdav (string->symbol "DAV:"))
(define-public caldav (string->symbol "urn:ietf:params:xml:ns:caldav"))
(define-public xcal (string->symbol "urn:ietf:params:xml:ns:icalendar-2.0"))
(define-public namespaces
`((d . ,webdav)
(c . ,caldav)
(x . ,xcal)))
|