Mercurial > emacs
annotate lisp/calendar/icalendar.el @ 107439:ed20cbe62401
Remove support for Solaris on PPC and for old versions.
* s/sol2-6.h: Add the contents of s/sol-2.3.h, s/sol-2.4.h, s/sol-2.5.h.
(LD_SWITCH_SYSTEM, USE_MMAP_FOR_BUFFERS): Remove #defines/#undef
that cancel each other.
* s/sol2-3.h:
* s/sol2-4.h:
* s/sol2-5.h: Remove.
* m/ibmrs6000.h: Remove code for USG5_4, this file is only used on AIX.
(NO_REMAP): Remove, unused.
(UNEXEC): Move definition ...
* s/aix4-2.h (UNEXEC): ... here.
* configure.in: Remove support for Solaris on PPC and for old versions.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Fri, 19 Mar 2010 22:52:55 -0700 |
parents | 2da9673fc448 |
children | 111f90199914 376148b31b5e |
rev | line source |
---|---|
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1 ;;; icalendar.el --- iCalendar implementation -*-coding: utf-8 -*- |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2 |
106815 | 3 ;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
5 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
6 ;; Author: Ulf Jasper <ulf.jasper@web.de> |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
7 ;; Created: August 2002 |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
8 ;; Keywords: calendar |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
9 ;; Human-Keywords: calendar, diary, iCalendar, vCalendar |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
10 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
11 ;; This file is part of GNU Emacs. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
12 |
94653
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93790
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
14 ;; it under the terms of the GNU General Public License as published by |
94653
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93790
diff
changeset
|
15 ;; the Free Software Foundation, either version 3 of the License, or |
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93790
diff
changeset
|
16 ;; (at your option) any later version. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
17 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
18 ;; GNU Emacs is distributed in the hope that it will be useful, |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
21 ;; GNU General Public License for more details. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
22 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
23 ;; You should have received a copy of the GNU General Public License |
94653
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93790
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
25 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
26 ;;; Commentary: |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
27 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
28 ;; This package is documented in the Emacs Manual. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
29 |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
30 ;; Please note: |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
31 ;; - Diary entries which have a start time but no end time are assumed to |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
32 ;; last for one hour when they are exported. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
33 ;; - Weekly diary entries are assumed to occur the first time in the first |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
34 ;; week of the year 2000 when they are exported. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
35 ;; - Yearly diary entries are assumed to occur the first time in the year |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
36 ;; 1900 when they are exported. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
37 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
38 ;;; History: |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
39 |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
40 ;; 0.07 onwards: see lisp/ChangeLog |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
41 |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
42 ;; 0.06: (2004-10-06) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
43 ;; - Bugfixes regarding icalendar-import-format-*. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
44 ;; - Fix in icalendar-convert-diary-to-ical -- thanks to Philipp Grau. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
45 |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
46 ;; 0.05: (2003-06-19) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
47 ;; - New import format scheme: Replaced icalendar-import-prefix-*, |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
48 ;; icalendar-import-ignored-properties, and |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
49 ;; icalendar-import-separator with icalendar-import-format(-*). |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
50 ;; - icalendar-import-file and icalendar-convert-diary-to-ical |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
51 ;; have an extra parameter which should prevent them from |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
52 ;; erasing their target files (untested!). |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
53 ;; - Tested with Emacs 21.3.2 |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
54 |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
55 ;; 0.04: |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
56 ;; - Bugfix: import: double quoted param values did not work |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
57 ;; - Read DURATION property when importing. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
58 ;; - Added parameter icalendar-duration-correction. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
59 |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
60 ;; 0.03: (2003-05-07) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
61 ;; - Export takes care of european-calendar-style. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
62 ;; - Tested with Emacs 21.3.2 and XEmacs 21.4.12 |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
63 |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
64 ;; 0.02: |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
65 ;; - Should work in XEmacs now. Thanks to Len Trigg for the XEmacs patches! |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
66 ;; - Added exporting from Emacs diary to ical. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
67 ;; - Some bugfixes, after testing with calendars from http://icalshare.com. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
68 ;; - Tested with Emacs 21.3.2 and XEmacs 21.4.12 |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
69 |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
70 ;; 0.01: (2003-03-21) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
71 ;; - First published version. Trial version. Alpha version. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
72 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
73 ;; ====================================================================== |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
74 ;; To Do: |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
75 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
76 ;; * Import from ical to diary: |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
77 ;; + Need more properties for icalendar-import-format |
74673
9963f42a0a19
From Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
68943
diff
changeset
|
78 ;; (added all that Mozilla Calendar uses) |
9963f42a0a19
From Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
68943
diff
changeset
|
79 ;; From iCal specifications (RFC2445: 4.8.1), icalendar.el lacks |
9963f42a0a19
From Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
68943
diff
changeset
|
80 ;; ATTACH, CATEGORIES, COMMENT, GEO, PERCENT-COMPLETE (VTODO), |
9963f42a0a19
From Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
68943
diff
changeset
|
81 ;; PRIORITY, RESOURCES) not considering date/time and time-zone |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
82 ;; + check vcalendar version |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
83 ;; + check (unknown) elements |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
84 ;; + recurring events! |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
85 ;; + works for european style calendars only! Does it? |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
86 ;; + alarm |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
87 ;; + exceptions in recurring events |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
88 ;; + the parser is too soft |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
89 ;; + error log is incomplete |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
90 ;; + nice to have: #include "webcal://foo.com/some-calendar.ics" |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
91 ;; + timezones probably still need some improvements. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
92 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
93 ;; * Export from diary to ical |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
94 ;; + diary-date, diary-float, and self-made sexp entries are not |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
95 ;; understood |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
96 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
97 ;; * Other things |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
98 ;; + clean up all those date/time parsing functions |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
99 ;; + Handle todo items? |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
100 ;; + Check iso 8601 for datetime and period |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
101 ;; + Which chars to (un)escape? |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
102 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
103 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
104 ;;; Code: |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
105 |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
106 (defconst icalendar-version "0.19" |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
107 "Version number of icalendar.el.") |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
108 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
109 ;; ====================================================================== |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
110 ;; Customizables |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
111 ;; ====================================================================== |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
112 (defgroup icalendar nil |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
113 "Icalendar support." |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
114 :prefix "icalendar-" |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
115 :group 'calendar) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
116 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
117 (defcustom icalendar-import-format |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
118 "%s%d%l%o" |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
119 "Format for importing events from iCalendar into Emacs diary. |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
120 It defines how iCalendar events are inserted into diary file. |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
121 This may either be a string or a function. |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
122 |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
123 In case of a formatting STRING the following specifiers can be used: |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
124 %c Class, see `icalendar-import-format-class' |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
125 %d Description, see `icalendar-import-format-description' |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
126 %l Location, see `icalendar-import-format-location' |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
127 %o Organizer, see `icalendar-import-format-organizer' |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
128 %s Summary, see `icalendar-import-format-summary' |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
129 %t Status, see `icalendar-import-format-status' |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
130 %u URL, see `icalendar-import-format-url' |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
131 |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
132 A formatting FUNCTION will be called with a VEVENT as its only |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
133 argument. It must return a string. See |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
134 `icalendar-import-format-sample' for an example." |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
135 :type '(choice |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
136 (string :tag "String") |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
137 (function :tag "Function")) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
138 :group 'icalendar) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
139 |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
140 (defcustom icalendar-import-format-summary |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
141 "%s" |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
142 "Format string defining how the summary element is formatted. |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
143 This applies only if the summary is not empty! `%s' is replaced |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
144 by the summary." |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
145 :type 'string |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
146 :group 'icalendar) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
147 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
148 (defcustom icalendar-import-format-description |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
149 "\n Desc: %s" |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
150 "Format string defining how the description element is formatted. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
151 This applies only if the description is not empty! `%s' is |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
152 replaced by the description." |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
153 :type 'string |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
154 :group 'icalendar) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
155 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
156 (defcustom icalendar-import-format-location |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
157 "\n Location: %s" |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
158 "Format string defining how the location element is formatted. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
159 This applies only if the location is not empty! `%s' is replaced |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
160 by the location." |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
161 :type 'string |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
162 :group 'icalendar) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
163 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
164 (defcustom icalendar-import-format-organizer |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
165 "\n Organizer: %s" |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
166 "Format string defining how the organizer element is formatted. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
167 This applies only if the organizer is not empty! `%s' is |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
168 replaced by the organizer." |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
169 :type 'string |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
170 :group 'icalendar) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
171 |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
172 (defcustom icalendar-import-format-url |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
173 "\n URL: %s" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
174 "Format string defining how the URL element is formatted. |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
175 This applies only if the URL is not empty! `%s' is replaced by |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
176 the URL." |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
177 :type 'string |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
178 :group 'icalendar) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
179 |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
180 (defcustom icalendar-import-format-status |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
181 "\n Status: %s" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
182 "Format string defining how the status element is formatted. |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
183 This applies only if the status is not empty! `%s' is replaced by |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
184 the status." |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
185 :type 'string |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
186 :group 'icalendar) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
187 |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
188 (defcustom icalendar-import-format-class |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
189 "\n Class: %s" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
190 "Format string defining how the class element is formatted. |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
191 This applies only if the class is not empty! `%s' is replaced by |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
192 the class." |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
193 :type 'string |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
194 :group 'icalendar) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
195 |
92986
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
196 (defcustom icalendar-recurring-start-year |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
197 2005 |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
198 "Start year for recurring events. |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
199 Some calendar browsers only propagate recurring events for |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
200 several years beyond the start time. Set this string to a year |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
201 just before the start of your personal calendar." |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
202 :type 'integer |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
203 :group 'icalendar) |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
204 |
92987
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
205 (defcustom icalendar-export-hidden-diary-entries |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
206 t |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
207 "Determines whether hidden diary entries are exported. |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
208 If non-nil hidden diary entries (starting with `&') get exported, |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
209 if nil they are ignored." |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
210 :type 'boolean |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
211 :group 'icalendar) |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
212 |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
213 (defcustom icalendar-uid-format |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
214 "emacs%t%c" |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
215 "Format of unique ID code (UID) for each iCalendar object. |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
216 The following specifiers are available: |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
217 %c COUNTER, an integer value that is increased each time a uid is |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
218 generated. This may be necessary for systems which do not |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
219 provide time-resolution finer than a second. |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
220 %h HASH, a hash value of the diary entry, |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
221 %s DTSTART, the start date (excluding time) of the diary entry, |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
222 %t TIMESTAMP, a unique creation timestamp, |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
223 %u USERNAME, the user-login-name. |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
224 |
101497
dd2ac0d143cb
icalendar: fixed doc string.
Ulf Jasper <ulf.jasper@web.de>
parents:
101457
diff
changeset
|
225 For example, a value of \"%s_%h@mydomain.com\" will generate a |
dd2ac0d143cb
icalendar: fixed doc string.
Ulf Jasper <ulf.jasper@web.de>
parents:
101457
diff
changeset
|
226 UID code for each entry composed of the time of the event, a hash |
dd2ac0d143cb
icalendar: fixed doc string.
Ulf Jasper <ulf.jasper@web.de>
parents:
101457
diff
changeset
|
227 code for the event, and your personal domain name." |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
228 :type 'string |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
229 :group 'icalendar) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
230 |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
231 (defvar icalendar-debug nil |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
232 "Enable icalendar debug messages.") |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
233 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
234 ;; ====================================================================== |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
235 ;; NO USER SERVICABLE PARTS BELOW THIS LINE |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
236 ;; ====================================================================== |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
237 |
57652
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
238 (defconst icalendar--weekday-array ["SU" "MO" "TU" "WE" "TH" "FR" "SA"]) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
239 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
240 ;; ====================================================================== |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
241 ;; all the other libs we need |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
242 ;; ====================================================================== |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
243 (require 'calendar) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
244 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
245 ;; ====================================================================== |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
246 ;; misc |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
247 ;; ====================================================================== |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
248 (defun icalendar--dmsg (&rest args) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
249 "Print message ARGS if `icalendar-debug' is non-nil." |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
250 (if icalendar-debug |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
251 (apply 'message args))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
252 |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
253 ;; ====================================================================== |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
254 ;; Core functionality |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
255 ;; Functions for parsing icalendars, importing and so on |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
256 ;; ====================================================================== |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
257 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
258 (defun icalendar--get-unfolded-buffer (folded-ical-buffer) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
259 "Return a new buffer containing the unfolded contents of a buffer. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
260 Folding is the iCalendar way of wrapping long lines. In the |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
261 created buffer all occurrences of CR LF BLANK are replaced by the |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
262 empty string. Argument FOLDED-ICAL-BUFFER is the unfolded input |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
263 buffer." |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
264 (let ((unfolded-buffer (get-buffer-create " *icalendar-work*"))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
265 (save-current-buffer |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
266 (set-buffer unfolded-buffer) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
267 (erase-buffer) |
64432
cd3c7f95237e
(icalendar--get-unfolded-buffer): Use `insert-buffer-substring' and `goto-char',
Juanma Barranquero <lekktu@gmail.com>
parents:
64085
diff
changeset
|
268 (insert-buffer-substring folded-ical-buffer) |
cd3c7f95237e
(icalendar--get-unfolded-buffer): Use `insert-buffer-substring' and `goto-char',
Juanma Barranquero <lekktu@gmail.com>
parents:
64085
diff
changeset
|
269 (goto-char (point-min)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
270 (while (re-search-forward "\r?\n[ \t]" nil t) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
271 (replace-match "" nil nil))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
272 unfolded-buffer)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
273 |
76645
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
274 (defsubst icalendar--rris (regexp rep string &optional fixedcase literal) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
275 "Replace regular expression in string. |
76645
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
276 Pass arguments REGEXP REP STRING FIXEDCASE LITERAL to |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
277 `replace-regexp-in-string' (Emacs) or to `replace-in-string' (XEmacs)." |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
278 (cond ((fboundp 'replace-regexp-in-string) |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
279 ;; Emacs: |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
280 (replace-regexp-in-string regexp rep string fixedcase literal)) |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
281 ((fboundp 'replace-in-string) |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
282 ;; XEmacs: |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
283 (save-match-data ;; apparently XEmacs needs save-match-data |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
284 (replace-in-string string regexp rep literal))))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
285 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
286 (defun icalendar--read-element (invalue inparams) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
287 "Recursively read the next iCalendar element in the current buffer. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
288 INVALUE gives the current iCalendar element we are reading. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
289 INPARAMS gives the current parameters..... |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
290 This function calls itself recursively for each nested calendar element |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
291 it finds." |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
292 (let (element children line name params param param-name param-value |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
293 value |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
294 (continue t)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
295 (setq children '()) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
296 (while (and continue |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
297 (re-search-forward "^\\([A-Za-z0-9-]+\\)[;:]" nil t)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
298 (setq name (intern (match-string 1))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
299 (backward-char 1) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
300 (setq params '()) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
301 (setq line '()) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
302 (while (looking-at ";") |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
303 (re-search-forward ";\\([A-Za-z0-9-]+\\)=" nil nil) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
304 (setq param-name (intern (match-string 1))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
305 (re-search-forward "\\(\\([^;,:\"]+\\)\\|\"\\([^\"]+\\)\"\\)[;:]" |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
306 nil t) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
307 (backward-char 1) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
308 (setq param-value (or (match-string 2) (match-string 3))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
309 (setq param (list param-name param-value)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
310 (while (looking-at ",") |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
311 (re-search-forward "\\(\\([^;,:]+\\)\\|\"\\([^\"]+\\)\"\\)" |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
312 nil t) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
313 (if (match-string 2) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
314 (setq param-value (match-string 2)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
315 (setq param-value (match-string 3))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
316 (setq param (append param param-value))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
317 (setq params (append params param))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
318 (unless (looking-at ":") |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
319 (error "Oops")) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
320 (forward-char 1) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
321 (re-search-forward "\\(.*\\)\\(\r?\n[ \t].*\\)*" nil t) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
322 (setq value (icalendar--rris "\r?\n[ \t]" "" (match-string 0))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
323 (setq line (list name params value)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
324 (cond ((eq name 'BEGIN) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
325 (setq children |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
326 (append children |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
327 (list (icalendar--read-element (intern value) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
328 params))))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
329 ((eq name 'END) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
330 (setq continue nil)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
331 (t |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
332 (setq element (append element (list line)))))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
333 (if invalue |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
334 (list invalue inparams element children) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
335 children))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
336 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
337 ;; ====================================================================== |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
338 ;; helper functions for examining events |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
339 ;; ====================================================================== |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
340 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
341 ;;(defsubst icalendar--get-all-event-properties (event) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
342 ;; "Return the list of properties in this EVENT." |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
343 ;; (car (cddr event))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
344 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
345 (defun icalendar--get-event-property (event prop) |
68930
16194e6e2a7b
(icalendar--get-event-property, icalendar--get-event-property-attributes):
Juanma Barranquero <lekktu@gmail.com>
parents:
68721
diff
changeset
|
346 "For the given EVENT return the value of the first occurrence of PROP." |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
347 (catch 'found |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
348 (let ((props (car (cddr event))) pp) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
349 (while props |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
350 (setq pp (car props)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
351 (if (eq (car pp) prop) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
352 (throw 'found (car (cddr pp)))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
353 (setq props (cdr props)))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
354 nil)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
355 |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
356 (defun icalendar--get-event-property-attributes (event prop) |
68930
16194e6e2a7b
(icalendar--get-event-property, icalendar--get-event-property-attributes):
Juanma Barranquero <lekktu@gmail.com>
parents:
68721
diff
changeset
|
357 "For the given EVENT return attributes of the first occurrence of PROP." |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
358 (catch 'found |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
359 (let ((props (car (cddr event))) pp) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
360 (while props |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
361 (setq pp (car props)) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
362 (if (eq (car pp) prop) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
363 (throw 'found (cadr pp))) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
364 (setq props (cdr props)))) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
365 nil)) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
366 |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
367 (defun icalendar--get-event-properties (event prop) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
368 "For the given EVENT return a list of all values of the property PROP." |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
369 (let ((props (car (cddr event))) pp result) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
370 (while props |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
371 (setq pp (car props)) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
372 (if (eq (car pp) prop) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
373 (setq result (append (split-string (car (cddr pp)) ",") result))) |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
374 (setq props (cdr props))) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
375 result)) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
376 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
377 ;; (defun icalendar--set-event-property (event prop new-value) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
378 ;; "For the given EVENT set the property PROP to the value NEW-VALUE." |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
379 ;; (catch 'found |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
380 ;; (let ((props (car (cddr event))) pp) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
381 ;; (while props |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
382 ;; (setq pp (car props)) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
383 ;; (when (eq (car pp) prop) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
384 ;; (setcdr (cdr pp) new-value) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
385 ;; (throw 'found (car (cddr pp)))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
386 ;; (setq props (cdr props))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
387 ;; (setq props (car (cddr event))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
388 ;; (setcar (cddr event) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
389 ;; (append props (list (list prop nil new-value))))))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
390 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
391 (defun icalendar--get-children (node name) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
392 "Return all children of the given NODE which have a name NAME. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
393 For instance the VCALENDAR node can have VEVENT children as well as VTODO |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
394 children." |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
395 (let ((result nil) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
396 (children (cadr (cddr node)))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
397 (when (eq (car node) name) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
398 (setq result node)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
399 ;;(message "%s" node) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
400 (when children |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
401 (let ((subresult |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
402 (delq nil |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
403 (mapcar (lambda (n) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
404 (icalendar--get-children n name)) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
405 children)))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
406 (if subresult |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
407 (if result |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
408 (setq result (append result subresult)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
409 (setq result subresult))))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
410 result)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
411 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
412 ; private |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
413 (defun icalendar--all-events (icalendar) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
414 "Return the list of all existing events in the given ICALENDAR." |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
415 (icalendar--get-children (car icalendar) 'VEVENT)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
416 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
417 (defun icalendar--split-value (value-string) |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
418 "Split VALUE-STRING at ';='." |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
419 (let ((result '()) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
420 param-name param-value) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
421 (when value-string |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
422 (save-current-buffer |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
423 (set-buffer (get-buffer-create " *icalendar-work*")) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
424 (set-buffer-modified-p nil) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
425 (erase-buffer) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
426 (insert value-string) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
427 (goto-char (point-min)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
428 (while |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
429 (re-search-forward |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
430 "\\([A-Za-z0-9-]+\\)=\\(\\([^;,:]+\\)\\|\"\\([^\"]+\\)\"\\);?" |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
431 nil t) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
432 (setq param-name (intern (match-string 1))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
433 (setq param-value (match-string 2)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
434 (setq result |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
435 (append result (list (list param-name param-value))))))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
436 result)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
437 |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
438 (defun icalendar--convert-tz-offset (alist dst-p) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
439 "Return a cons of two strings representing a timezone start. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
440 ALIST is an alist entry from a VTIMEZONE, like STANDARD. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
441 DST-P is non-nil if this is for daylight savings time. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
442 The strings are suitable for assembling into a TZ variable." |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
443 (let ((offset (car (cddr (assq 'TZOFFSETTO alist)))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
444 (rrule-value (car (cddr (assq 'RRULE alist)))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
445 (dtstart (car (cddr (assq 'DTSTART alist))))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
446 ;; FIXME: for now we only handle RRULE and not RDATE here. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
447 (when (and offset rrule-value dtstart) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
448 (let* ((rrule (icalendar--split-value rrule-value)) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
449 (freq (cadr (assq 'FREQ rrule))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
450 (bymonth (cadr (assq 'BYMONTH rrule))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
451 (byday (cadr (assq 'BYDAY rrule)))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
452 ;; FIXME: we don't correctly handle WKST here. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
453 (if (and (string= freq "YEARLY") bymonth) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
454 (cons |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
455 (concat |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
456 ;; Fake a name. |
106617
78f92ffeb7ab
Fixed timezone handling problem in icalendar.el.
Ulf Jasper <ulf.jasper@web.de>
parents:
104396
diff
changeset
|
457 (if dst-p "DST" "STD") |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
458 ;; For TZ, OFFSET is added to the local time. So, |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
459 ;; invert the values. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
460 (if (eq (aref offset 0) ?-) "+" "-") |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
461 (substring offset 1 3) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
462 ":" |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
463 (substring offset 3 5)) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
464 ;; The start time. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
465 (let* ((day (icalendar--get-weekday-number (substring byday -2))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
466 (week (if (eq day -1) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
467 byday |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
468 (substring byday 0 -2)))) |
106617
78f92ffeb7ab
Fixed timezone handling problem in icalendar.el.
Ulf Jasper <ulf.jasper@web.de>
parents:
104396
diff
changeset
|
469 ;; "Translate" the icalendar way to specify the last |
78f92ffeb7ab
Fixed timezone handling problem in icalendar.el.
Ulf Jasper <ulf.jasper@web.de>
parents:
104396
diff
changeset
|
470 ;; (sun|mon|...)day in month to the tzset way. |
78f92ffeb7ab
Fixed timezone handling problem in icalendar.el.
Ulf Jasper <ulf.jasper@web.de>
parents:
104396
diff
changeset
|
471 (if (string= week "-1") ; last day as icalendar calls it |
78f92ffeb7ab
Fixed timezone handling problem in icalendar.el.
Ulf Jasper <ulf.jasper@web.de>
parents:
104396
diff
changeset
|
472 (setq week "5")) ; last day as tzset calls it |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
473 (concat "M" bymonth "." week "." (if (eq day -1) "0" |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
474 (int-to-string day)) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
475 ;; Start time. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
476 "/" |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
477 (substring dtstart -6 -4) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
478 ":" |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
479 (substring dtstart -4 -2) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
480 ":" |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
481 (substring dtstart -2))))))))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
482 |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
483 (defun icalendar--parse-vtimezone (alist) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
484 "Turn a VTIMEZONE ALIST into a cons (ID . TZ-STRING). |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
485 Return nil if timezone cannot be parsed." |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
486 (let* ((tz-id (icalendar--get-event-property alist 'TZID)) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
487 (daylight (cadr (cdar (icalendar--get-children alist 'DAYLIGHT)))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
488 (day (and daylight (icalendar--convert-tz-offset daylight t))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
489 (standard (cadr (cdar (icalendar--get-children alist 'STANDARD)))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
490 (std (and standard (icalendar--convert-tz-offset standard nil)))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
491 (if (and tz-id std) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
492 (cons tz-id |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
493 (if day |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
494 (concat (car std) (car day) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
495 "," (cdr day) "," (cdr std)) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
496 (car std)))))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
497 |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
498 (defun icalendar--convert-all-timezones (icalendar) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
499 "Convert all timezones in the ICALENDAR into an alist. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
500 Each element of the alist is a cons (ID . TZ-STRING), |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
501 like `icalendar--parse-vtimezone'." |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
502 (let (result) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
503 (dolist (zone (icalendar--get-children (car icalendar) 'VTIMEZONE)) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
504 (setq zone (icalendar--parse-vtimezone zone)) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
505 (if zone |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
506 (setq result (cons zone result)))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
507 result)) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
508 |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
509 (defun icalendar--find-time-zone (prop-list zone-map) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
510 "Return a timezone string for the time zone in PROP-LIST, or nil if none. |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
511 ZONE-MAP is a timezone alist as returned by `icalendar--convert-all-timezones'." |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
512 (let ((id (plist-get prop-list 'TZID))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
513 (if id |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
514 (cdr (assoc id zone-map))))) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
515 |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
516 (defun icalendar--decode-isodatetime (isodatetimestring &optional day-shift |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
517 zone) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
518 "Return ISODATETIMESTRING in format like `decode-time'. |
60235
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
519 Converts from ISO-8601 to Emacs representation. If |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
520 ISODATETIMESTRING specifies UTC time (trailing letter Z) the |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
521 decoded time is given in the local time zone! If optional |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
522 parameter DAY-SHIFT is non-nil the result is shifted by DAY-SHIFT |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
523 days. |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
524 ZONE, if provided, is the timezone, in any format understood by `encode-time'. |
60235
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
525 |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
526 FIXME: multiple comma-separated values should be allowed!" |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
527 (icalendar--dmsg isodatetimestring) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
528 (if isodatetimestring |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
529 ;; day/month/year must be present |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
530 (let ((year (read (substring isodatetimestring 0 4))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
531 (month (read (substring isodatetimestring 4 6))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
532 (day (read (substring isodatetimestring 6 8))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
533 (hour 0) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
534 (minute 0) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
535 (second 0)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
536 (when (> (length isodatetimestring) 12) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
537 ;; hour/minute present |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
538 (setq hour (read (substring isodatetimestring 9 11))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
539 (setq minute (read (substring isodatetimestring 11 13)))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
540 (when (> (length isodatetimestring) 14) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
541 ;; seconds present |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
542 (setq second (read (substring isodatetimestring 13 15)))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
543 (when (and (> (length isodatetimestring) 15) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
544 ;; UTC specifier present |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
545 (char-equal ?Z (aref isodatetimestring 15))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
546 ;; if not UTC add current-time-zone offset |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
547 (setq second (+ (car (current-time-zone)) second))) |
60235
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
548 ;; shift if necessary |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
549 (if day-shift |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
550 (let ((mdy (calendar-gregorian-from-absolute |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
551 (+ (calendar-absolute-from-gregorian |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
552 (list month day year)) |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
553 day-shift)))) |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
554 (setq month (nth 0 mdy)) |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
555 (setq day (nth 1 mdy)) |
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
556 (setq year (nth 2 mdy)))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
557 ;; create the decoded date-time |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
558 ;; FIXME!?! |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
559 (condition-case nil |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
560 (decode-time (encode-time second minute hour day month year zone)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
561 (error |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
562 (message "Cannot decode \"%s\"" isodatetimestring) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
563 ;; hope for the best... |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
564 (list second minute hour day month year 0 nil 0)))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
565 ;; isodatetimestring == nil |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
566 nil)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
567 |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
568 (defun icalendar--decode-isoduration (isodurationstring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
569 &optional duration-correction) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
570 "Convert ISODURATIONSTRING into format provided by `decode-time'. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
571 Converts from ISO-8601 to Emacs representation. If ISODURATIONSTRING |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
572 specifies UTC time (trailing letter Z) the decoded time is given in |
60382
87759c244379
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60235
diff
changeset
|
573 the local time zone! |
87759c244379
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60235
diff
changeset
|
574 |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
575 Optional argument DURATION-CORRECTION shortens result by one day. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
576 |
60382
87759c244379
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60235
diff
changeset
|
577 FIXME: TZID-attributes are ignored....! |
87759c244379
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60235
diff
changeset
|
578 FIXME: multiple comma-separated values should be allowed!" |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
579 (if isodurationstring |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
580 (save-match-data |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
581 (string-match |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
582 (concat |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
583 "^P[+-]?\\(" |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
584 "\\(\\([0-9]+\\)D\\)" ; days only |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
585 "\\|" |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
586 "\\(\\(\\([0-9]+\\)D\\)?T\\(\\([0-9]+\\)H\\)?" ; opt days |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
587 "\\(\\([0-9]+\\)M\\)?\\(\\([0-9]+\\)S\\)?\\)" ; mand. time |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
588 "\\|" |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
589 "\\(\\([0-9]+\\)W\\)" ; weeks only |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
590 "\\)$") isodurationstring) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
591 (let ((seconds 0) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
592 (minutes 0) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
593 (hours 0) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
594 (days 0) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
595 (months 0) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
596 (years 0)) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
597 (cond |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
598 ((match-beginning 2) ;days only |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
599 (setq days (read (substring isodurationstring |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
600 (match-beginning 3) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
601 (match-end 3)))) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
602 (when duration-correction |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
603 (setq days (1- days)))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
604 ((match-beginning 4) ;days and time |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
605 (if (match-beginning 5) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
606 (setq days (* 7 (read (substring isodurationstring |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
607 (match-beginning 6) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
608 (match-end 6)))))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
609 (if (match-beginning 7) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
610 (setq hours (read (substring isodurationstring |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
611 (match-beginning 8) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
612 (match-end 8))))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
613 (if (match-beginning 9) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
614 (setq minutes (read (substring isodurationstring |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
615 (match-beginning 10) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
616 (match-end 10))))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
617 (if (match-beginning 11) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
618 (setq seconds (read (substring isodurationstring |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
619 (match-beginning 12) |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
620 (match-end 12)))))) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
621 ((match-beginning 13) ;weeks only |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
622 (setq days (* 7 (read (substring isodurationstring |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
623 (match-beginning 14) |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
624 (match-end 14))))))) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
625 (list seconds minutes hours days months years))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
626 ;; isodatetimestring == nil |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
627 nil)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
628 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
629 (defun icalendar--add-decoded-times (time1 time2) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
630 "Add TIME1 to TIME2. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
631 Both times must be given in decoded form. One of these times must be |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
632 valid (year > 1900 or something)." |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
633 ;; FIXME: does this function exist already? |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
634 (decode-time (encode-time |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
635 (+ (nth 0 time1) (nth 0 time2)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
636 (+ (nth 1 time1) (nth 1 time2)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
637 (+ (nth 2 time1) (nth 2 time2)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
638 (+ (nth 3 time1) (nth 3 time2)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
639 (+ (nth 4 time1) (nth 4 time2)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
640 (+ (nth 5 time1) (nth 5 time2)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
641 nil |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
642 nil |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
643 ;;(or (nth 6 time1) (nth 6 time2)) ;; FIXME? |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
644 ))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
645 |
93376
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
646 (defun icalendar--datetime-to-american-date (datetime &optional separator) |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
647 "Convert the decoded DATETIME to American-style format. |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
648 Optional argument SEPARATOR gives the separator between month, |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
649 day, and year. If nil a blank character is used as separator. |
93376
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
650 American format: \"month day year\"." |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
651 (if datetime |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
652 (format "%d%s%d%s%d" (nth 4 datetime) ;month |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
653 (or separator " ") |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
654 (nth 3 datetime) ;day |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
655 (or separator " ") |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
656 (nth 5 datetime)) ;year |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
657 ;; datetime == nil |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
658 nil)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
659 |
93376
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
660 (define-obsolete-function-alias 'icalendar--datetime-to-noneuropean-date |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
661 'icalendar--datetime-to-american-date "icalendar 0.19") |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
662 |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
663 (defun icalendar--datetime-to-european-date (datetime &optional separator) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
664 "Convert the decoded DATETIME to European format. |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
665 Optional argument SEPARATOR gives the separator between month, |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
666 day, and year. If nil a blank character is used as separator. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
667 European format: (day month year). |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
668 FIXME" |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
669 (if datetime |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
670 (format "%d%s%d%s%d" (nth 3 datetime) ;day |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
671 (or separator " ") |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
672 (nth 4 datetime) ;month |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
673 (or separator " ") |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
674 (nth 5 datetime)) ;year |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
675 ;; datetime == nil |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
676 nil)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
677 |
93376
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
678 (defun icalendar--datetime-to-iso-date (datetime &optional separator) |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
679 "Convert the decoded DATETIME to ISO format. |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
680 Optional argument SEPARATOR gives the separator between month, |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
681 day, and year. If nil a blank character is used as separator. |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
682 ISO format: (year month day)." |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
683 (if datetime |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
684 (format "%d%s%d%s%d" (nth 5 datetime) ;year |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
685 (or separator " ") |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
686 (nth 4 datetime) ;month |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
687 (or separator " ") |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
688 (nth 3 datetime)) ;day |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
689 ;; datetime == nil |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
690 nil)) |
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
691 |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
692 (defun icalendar--date-style () |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
693 "Return current calendar date style. |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
694 Convenience function to handle transition from old |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
695 `european-calendar-style' to new `calendar-date-style'." |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
696 (if (boundp 'calendar-date-style) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
697 calendar-date-style |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
698 (if (with-no-warnings european-calendar-style) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
699 'european |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
700 'american))) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
701 |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
702 (defun icalendar--datetime-to-diary-date (datetime &optional separator) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
703 "Convert the decoded DATETIME to diary format. |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
704 Optional argument SEPARATOR gives the separator between month, |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
705 day, and year. If nil a blank character is used as separator. |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
706 Call icalendar--datetime-to-*-date according to the current |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
707 calendar date style." |
93376
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
708 (funcall (intern-soft (format "icalendar--datetime-to-%s-date" |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
709 (icalendar--date-style))) |
93376
bc4871e6df44
(icalendar--datetime-to-american-date): New name for
Glenn Morris <rgm@gnu.org>
parents:
92987
diff
changeset
|
710 datetime separator)) |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
711 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
712 (defun icalendar--datetime-to-colontime (datetime) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
713 "Extract the time part of a decoded DATETIME into 24-hour format. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
714 Note that this silently ignores seconds." |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
715 (format "%02d:%02d" (nth 2 datetime) (nth 1 datetime))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
716 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
717 (defun icalendar--get-month-number (monthname) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
718 "Return the month number for the given MONTHNAME." |
57652
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
719 (catch 'found |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
720 (let ((num 1) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
721 (m (downcase monthname))) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
722 (mapc (lambda (month) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
723 (let ((mm (downcase month))) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
724 (if (or (string-equal mm m) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
725 (string-equal (substring mm 0 3) m)) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
726 (throw 'found num)) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
727 (setq num (1+ num)))) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
728 calendar-month-name-array)) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
729 ;; Error: |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
730 -1)) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
731 |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
732 (defun icalendar--get-weekday-number (abbrevweekday) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
733 "Return the number for the ABBREVWEEKDAY." |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
734 (if abbrevweekday |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
735 (catch 'found |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
736 (let ((num 0) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
737 (aw (downcase abbrevweekday))) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
738 (mapc (lambda (day) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
739 (let ((d (downcase day))) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
740 (if (string-equal d aw) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
741 (throw 'found num)) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
742 (setq num (1+ num)))) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
743 icalendar--weekday-array))) |
57652
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
744 ;; Error: |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
745 -1)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
746 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
747 (defun icalendar--get-weekday-abbrev (weekday) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
748 "Return the abbreviated WEEKDAY." |
57652
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
749 (catch 'found |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
750 (let ((num 0) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
751 (w (downcase weekday))) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
752 (mapc (lambda (day) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
753 (let ((d (downcase day))) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
754 (if (or (string-equal d w) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
755 (string-equal (substring d 0 3) w)) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
756 (throw 'found (aref icalendar--weekday-array num))) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
757 (setq num (1+ num)))) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
758 calendar-day-name-array)) |
1d0ad14ff912
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57586
diff
changeset
|
759 ;; Error: |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
760 nil)) |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
761 |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
762 (defun icalendar--date-to-isodate (date &optional day-shift) |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
763 "Convert DATE to iso-style date. |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
764 DATE must be a list of the form (month day year). |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
765 If DAY-SHIFT is non-nil, the result is shifted by DAY-SHIFT days." |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
766 (let ((mdy (calendar-gregorian-from-absolute |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
767 (+ (calendar-absolute-from-gregorian date) |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
768 (or day-shift 0))))) |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
769 (format "%04d%02d%02d" (nth 2 mdy) (nth 0 mdy) (nth 1 mdy)))) |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
770 |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
771 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
772 (defun icalendar--datestring-to-isodate (datestring &optional day-shift) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
773 "Convert diary-style DATESTRING to iso-style date. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
774 If DAY-SHIFT is non-nil, the result is shifted by DAY-SHIFT days |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
775 -- DAY-SHIFT must be either nil or an integer. This function |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
776 tries to figure the date style from DATESTRING itself. If that |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
777 is not possible it uses the current calendar date style." |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
778 (let ((day -1) month year) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
779 (save-match-data |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
780 (cond ( ;; iso-style numeric date |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
781 (string-match (concat "\\s-*" |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
782 "\\([0-9]\\{4\\}\\)[ \t/]\\s-*" |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
783 "0?\\([1-9][0-9]?\\)[ \t/]\\s-*" |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
784 "0?\\([1-9][0-9]?\\)") |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
785 datestring) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
786 (setq year (read (substring datestring (match-beginning 1) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
787 (match-end 1)))) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
788 (setq month (read (substring datestring (match-beginning 2) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
789 (match-end 2)))) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
790 (setq day (read (substring datestring (match-beginning 3) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
791 (match-end 3))))) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
792 ( ;; non-iso numeric date -- must rely on configured |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
793 ;; calendar style |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
794 (string-match (concat "\\s-*" |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
795 "0?\\([1-9][0-9]?\\)[ \t/]\\s-*" |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
796 "0?\\([1-9][0-9]?\\),?[ \t/]\\s-*" |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
797 "\\([0-9]\\{4\\}\\)") |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
798 datestring) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
799 (setq day (read (substring datestring (match-beginning 1) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
800 (match-end 1)))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
801 (setq month (read (substring datestring (match-beginning 2) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
802 (match-end 2)))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
803 (setq year (read (substring datestring (match-beginning 3) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
804 (match-end 3)))) |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
805 (if (eq (icalendar--date-style) 'american) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
806 (let ((x month)) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
807 (setq month day) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
808 (setq day x)))) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
809 ( ;; date contains month names -- iso style |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
810 (string-match (concat "\\s-*" |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
811 "\\([0-9]\\{4\\}\\)[ \t/]\\s-*" |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
812 "\\([A-Za-z][^ ]+\\)[ \t/]\\s-*" |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
813 "0?\\([123]?[0-9]\\)") |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
814 datestring) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
815 (setq year (read (substring datestring (match-beginning 1) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
816 (match-end 1)))) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
817 (setq month (icalendar--get-month-number |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
818 (substring datestring (match-beginning 2) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
819 (match-end 2)))) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
820 (setq day (read (substring datestring (match-beginning 3) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
821 (match-end 3))))) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
822 ( ;; date contains month names -- european style |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
823 (string-match (concat "\\s-*" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
824 "0?\\([123]?[0-9]\\)[ \t/]\\s-*" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
825 "\\([A-Za-z][^ ]+\\)[ \t/]\\s-*" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
826 "\\([0-9]\\{4\\}\\)") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
827 datestring) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
828 (setq day (read (substring datestring (match-beginning 1) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
829 (match-end 1)))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
830 (setq month (icalendar--get-month-number |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
831 (substring datestring (match-beginning 2) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
832 (match-end 2)))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
833 (setq year (read (substring datestring (match-beginning 3) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
834 (match-end 3))))) |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
835 ( ;; date contains month names -- american style |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
836 (string-match (concat "\\s-*" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
837 "\\([A-Za-z][^ ]+\\)[ \t/]\\s-*" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
838 "0?\\([123]?[0-9]\\),?[ \t/]\\s-*" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
839 "\\([0-9]\\{4\\}\\)") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
840 datestring) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
841 (setq day (read (substring datestring (match-beginning 2) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
842 (match-end 2)))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
843 (setq month (icalendar--get-month-number |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
844 (substring datestring (match-beginning 1) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
845 (match-end 1)))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
846 (setq year (read (substring datestring (match-beginning 3) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
847 (match-end 3))))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
848 (t |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
849 nil))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
850 (if (> day 0) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
851 (let ((mdy (calendar-gregorian-from-absolute |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
852 (+ (calendar-absolute-from-gregorian (list month day |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
853 year)) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
854 (or day-shift 0))))) |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
855 (icalendar--dmsg (format "%04d%02d%02d" (nth 2 mdy) (nth 0 mdy) (nth 1 mdy))) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
856 (format "%04d%02d%02d" (nth 2 mdy) (nth 0 mdy) (nth 1 mdy))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
857 nil))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
858 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
859 (defun icalendar--diarytime-to-isotime (timestring ampmstring) |
77934
fc20957a3166
(icalendar--diarytime-to-isotime): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
76645
diff
changeset
|
860 "Convert a time like 9:30pm to an iso-conform string like T213000. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
861 In this example the TIMESTRING would be \"9:30\" and the AMPMSTRING |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
862 would be \"pm\"." |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
863 (if timestring |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
864 (let ((starttimenum (read (icalendar--rris ":" "" timestring)))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
865 ;; take care of am/pm style |
92986
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
866 ;; Be sure *not* to convert 12:00pm - 12:59pm to 2400-2459 |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
867 (if (and ampmstring (string= "pm" ampmstring) (< starttimenum 1200)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
868 (setq starttimenum (+ starttimenum 1200))) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
869 ;; Similar effect with 12:00am - 12:59am (need to convert to 0000-0059) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
870 (if (and ampmstring (string= "am" ampmstring) (>= starttimenum 1200)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
871 (setq starttimenum (- starttimenum 1200))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
872 (format "T%04d00" starttimenum)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
873 nil)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
874 |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
875 (defun icalendar--convert-string-for-export (string) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
876 "Escape comma and other critical characters in STRING." |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
877 (icalendar--rris "," "\\\\," string)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
878 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
879 (defun icalendar--convert-string-for-import (string) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
880 "Remove escape chars for comma, semicolon etc. from STRING." |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
881 (icalendar--rris |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
882 "\\\\n" "\n " (icalendar--rris |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
883 "\\\\\"" "\"" (icalendar--rris |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
884 "\\\\;" ";" (icalendar--rris |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
885 "\\\\," "," string))))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
886 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
887 ;; ====================================================================== |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
888 ;; Export -- convert emacs-diary to icalendar |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
889 ;; ====================================================================== |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
890 |
60382
87759c244379
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60235
diff
changeset
|
891 ;;;###autoload |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
892 (defun icalendar-export-file (diary-filename ical-filename) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
893 "Export diary file to iCalendar format. |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
894 All diary entries in the file DIARY-FILENAME are converted to iCalendar |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
895 format. The result is appended to the file ICAL-FILENAME." |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
896 (interactive "FExport diary data from file: |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
897 Finto iCalendar file: ") |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
898 (save-current-buffer |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
899 (set-buffer (find-file diary-filename)) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
900 (icalendar-export-region (point-min) (point-max) ical-filename))) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
901 |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
902 (defalias 'icalendar-convert-diary-to-ical 'icalendar-export-file) |
104396
e667f4aad5f2
* textmodes/remember.el (remember-buffer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
101497
diff
changeset
|
903 (make-obsolete 'icalendar-convert-diary-to-ical 'icalendar-export-file "22.1") |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
904 |
99284
b39c4aef1848
icalendar: uid-creation improved
Ulf Jasper <ulf.jasper@web.de>
parents:
95273
diff
changeset
|
905 (defvar icalendar--uid-count 0 |
b39c4aef1848
icalendar: uid-creation improved
Ulf Jasper <ulf.jasper@web.de>
parents:
95273
diff
changeset
|
906 "Auxiliary counter for creating unique ids.") |
b39c4aef1848
icalendar: uid-creation improved
Ulf Jasper <ulf.jasper@web.de>
parents:
95273
diff
changeset
|
907 |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
908 (defun icalendar--create-uid (entry-full contents) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
909 "Construct a unique iCalendar UID for a diary entry. |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
910 ENTRY-FULL is the full diary entry string. CONTENTS is the |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
911 current iCalendar object, as a string. Increase |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
912 `icalendar--uid-count'. Returns the UID string." |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
913 (let ((uid icalendar-uid-format)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
914 |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
915 (setq uid (replace-regexp-in-string |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
916 "%c" |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
917 (format "%d" icalendar--uid-count) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
918 uid t t)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
919 (setq icalendar--uid-count (1+ icalendar--uid-count)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
920 (setq uid (replace-regexp-in-string |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
921 "%t" |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
922 (format "%d%d%d" (car (current-time)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
923 (cadr (current-time)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
924 (car (cddr (current-time)))) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
925 uid t t)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
926 (setq uid (replace-regexp-in-string |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
927 "%h" |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
928 (format "%d" (abs (sxhash entry-full))) uid t t)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
929 (setq uid (replace-regexp-in-string |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
930 "%u" (or user-login-name "UNKNOWN_USER") uid t t)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
931 (let ((dtstart (if (string-match "^DTSTART[^:]*:\\([0-9]*\\)" contents) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
932 (substring contents (match-beginning 1) (match-end 1)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
933 "DTSTART"))) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
934 (setq uid (replace-regexp-in-string "%s" dtstart uid t t))) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
935 |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
936 ;; Return the UID string |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
937 uid)) |
99284
b39c4aef1848
icalendar: uid-creation improved
Ulf Jasper <ulf.jasper@web.de>
parents:
95273
diff
changeset
|
938 |
60382
87759c244379
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60235
diff
changeset
|
939 ;;;###autoload |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
940 (defun icalendar-export-region (min max ical-filename) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
941 "Export region in diary file to iCalendar format. |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
942 All diary entries in the region from MIN to MAX in the current buffer are |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
943 converted to iCalendar format. The result is appended to the file |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
944 ICAL-FILENAME. |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
945 This function attempts to return t if something goes wrong. In this |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
946 case an error string which describes all the errors and problems is |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
947 written into the buffer `*icalendar-errors*'." |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
948 (interactive "r |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
949 FExport diary data into iCalendar file: ") |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
950 (let ((result "") |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
951 (start 0) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
952 (entry-main "") |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
953 (entry-rest "") |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
954 (entry-full "") |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
955 (header "") |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
956 (contents-n-summary) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
957 (contents) |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
958 (found-error nil) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
959 (nonmarker (concat "^" (regexp-quote diary-nonmarking-symbol) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
960 "?")) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
961 (other-elements nil)) |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
962 ;; prepare buffer with error messages |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
963 (save-current-buffer |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
964 (set-buffer (get-buffer-create "*icalendar-errors*")) |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
965 (erase-buffer)) |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
966 |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
967 ;; here we go |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
968 (save-excursion |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
969 (goto-char min) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
970 (while (re-search-forward |
92987
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
971 ;; possibly ignore hidden entries beginning with "&" |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
972 (if icalendar-export-hidden-diary-entries |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
973 "^\\([^ \t\n#].+\\)\\(\\(\n[ \t].*\\)*\\)" |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
974 "^\\([^ \t\n&#].+\\)\\(\\(\n[ \t].*\\)*\\)") max t) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
975 (setq entry-main (match-string 1)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
976 (if (match-beginning 2) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
977 (setq entry-rest (match-string 2)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
978 (setq entry-rest "")) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
979 (setq entry-full (concat entry-main entry-rest)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
980 |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
981 (condition-case error-val |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
982 (progn |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
983 (setq contents-n-summary |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
984 (icalendar--convert-to-ical nonmarker entry-main)) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
985 (setq other-elements (icalendar--parse-summary-and-rest |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
986 entry-full)) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
987 (setq contents (concat (car contents-n-summary) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
988 "\nSUMMARY:" (cadr contents-n-summary))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
989 (let ((cla (cdr (assoc 'cla other-elements))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
990 (des (cdr (assoc 'des other-elements))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
991 (loc (cdr (assoc 'loc other-elements))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
992 (org (cdr (assoc 'org other-elements))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
993 (sta (cdr (assoc 'sta other-elements))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
994 (sum (cdr (assoc 'sum other-elements))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
995 (url (cdr (assoc 'url other-elements)))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
996 (if cla |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
997 (setq contents (concat contents "\nCLASS:" cla))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
998 (if des |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
999 (setq contents (concat contents "\nDESCRIPTION:" des))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1000 (if loc |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1001 (setq contents (concat contents "\nLOCATION:" loc))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1002 (if org |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1003 (setq contents (concat contents "\nORGANIZER:" org))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1004 (if sta |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1005 (setq contents (concat contents "\nSTATUS:" sta))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1006 ;;(if sum |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1007 ;; (setq contents (concat contents "\nSUMMARY:" sum))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1008 (if url |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1009 (setq contents (concat contents "\nURL:" url)))) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1010 |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1011 (setq header (concat "\nBEGIN:VEVENT\nUID:" |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1012 (icalendar--create-uid entry-full contents))) |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
1013 (setq result (concat result header contents "\nEND:VEVENT"))) |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
1014 ;; handle errors |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
1015 (error |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
1016 (setq found-error t) |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
1017 (save-current-buffer |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1018 (set-buffer (get-buffer-create "*icalendar-errors*")) |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
1019 (insert (format "Error in line %d -- %s: `%s'\n" |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
1020 (count-lines (point-min) (point)) |
92987
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1021 error-val |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
1022 entry-main)))))) |
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
1023 |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1024 ;; we're done, insert everything into the file |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1025 (save-current-buffer |
60235
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
1026 (let ((coding-system-for-write 'utf-8)) |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1027 (set-buffer (find-file ical-filename)) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1028 (goto-char (point-max)) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1029 (insert "BEGIN:VCALENDAR") |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1030 (insert "\nPRODID:-//Emacs//NONSGML icalendar.el//EN") |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1031 (insert "\nVERSION:2.0") |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1032 (insert result) |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1033 (insert "\nEND:VCALENDAR\n") |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1034 ;; save the diary file |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1035 (save-buffer) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1036 (unless found-error |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1037 (bury-buffer))))) |
57862
60f1782b5d8d
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57652
diff
changeset
|
1038 found-error)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1039 |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1040 (defun icalendar--convert-to-ical (nonmarker entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1041 "Convert a diary entry to icalendar format. |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1042 NONMARKER is a regular expression matching the start of non-marking |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1043 entries. ENTRY-MAIN is the first line of the diary entry." |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1044 (or |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1045 ;; anniversaries -- %%(diary-anniversary ...) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1046 (icalendar--convert-anniversary-to-ical nonmarker entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1047 ;; cyclic events -- %%(diary-cyclic ...) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1048 (icalendar--convert-cyclic-to-ical nonmarker entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1049 ;; diary-date -- %%(diary-date ...) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1050 (icalendar--convert-date-to-ical nonmarker entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1051 ;; float events -- %%(diary-float ...) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1052 (icalendar--convert-float-to-ical nonmarker entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1053 ;; block events -- %%(diary-block ...) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1054 (icalendar--convert-block-to-ical nonmarker entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1055 ;; other sexp diary entries |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1056 (icalendar--convert-sexp-to-ical nonmarker entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1057 ;; weekly by day -- Monday 8:30 Team meeting |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1058 (icalendar--convert-weekly-to-ical nonmarker entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1059 ;; yearly by day -- 1 May Tag der Arbeit |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1060 (icalendar--convert-yearly-to-ical nonmarker entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1061 ;; "ordinary" events, start and end time given |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1062 ;; 1 Feb 2003 blah |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1063 (icalendar--convert-ordinary-to-ical nonmarker entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1064 ;; everything else |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1065 ;; Oops! what's that? |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1066 (error "Could not parse entry"))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1067 |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1068 (defun icalendar--parse-summary-and-rest (summary-and-rest) |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1069 "Parse SUMMARY-AND-REST from a diary to fill iCalendar properties. |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1070 Returns an alist." |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1071 (save-match-data |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1072 (if (functionp icalendar-import-format) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1073 ;; can't do anything |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1074 nil |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1075 ;; split summary-and-rest |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1076 (let* ((s icalendar-import-format) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1077 (p-cla (or (string-match "%c" icalendar-import-format) -1)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1078 (p-des (or (string-match "%d" icalendar-import-format) -1)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1079 (p-loc (or (string-match "%l" icalendar-import-format) -1)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1080 (p-org (or (string-match "%o" icalendar-import-format) -1)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1081 (p-sum (or (string-match "%s" icalendar-import-format) -1)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1082 (p-sta (or (string-match "%t" icalendar-import-format) -1)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1083 (p-url (or (string-match "%u" icalendar-import-format) -1)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1084 (p-list (sort (list p-cla p-des p-loc p-org p-sta p-sum p-url) '<)) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1085 (ct 0) |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1086 pos-cla pos-des pos-loc pos-org pos-sta pos-sum pos-url) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1087 (dotimes (i (length p-list)) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1088 ;; Use 'ct' to keep track of current position in list |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1089 (cond ((and (>= p-cla 0) (= (nth i p-list) p-cla)) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1090 (setq ct (+ ct 1)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1091 (setq pos-cla (* 2 ct))) |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1092 ((and (>= p-des 0) (= (nth i p-list) p-des)) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1093 (setq ct (+ ct 1)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1094 (setq pos-des (* 2 ct))) |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1095 ((and (>= p-loc 0) (= (nth i p-list) p-loc)) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1096 (setq ct (+ ct 1)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1097 (setq pos-loc (* 2 ct))) |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1098 ((and (>= p-org 0) (= (nth i p-list) p-org)) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1099 (setq ct (+ ct 1)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1100 (setq pos-org (* 2 ct))) |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1101 ((and (>= p-sta 0) (= (nth i p-list) p-sta)) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1102 (setq ct (+ ct 1)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1103 (setq pos-sta (* 2 ct))) |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1104 ((and (>= p-sum 0) (= (nth i p-list) p-sum)) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1105 (setq ct (+ ct 1)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1106 (setq pos-sum (* 2 ct))) |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1107 ((and (>= p-url 0) (= (nth i p-list) p-url)) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1108 (setq ct (+ ct 1)) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1109 (setq pos-url (* 2 ct)))) ) |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1110 (mapc (lambda (ij) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1111 (setq s (icalendar--rris (car ij) (cadr ij) s t t))) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1112 (list |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1113 ;; summary must be first! because of %s |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1114 (list "%s" |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1115 (concat "\\(" icalendar-import-format-summary "\\)??")) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1116 (list "%c" |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1117 (concat "\\(" icalendar-import-format-class "\\)??")) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1118 (list "%d" |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1119 (concat "\\(" icalendar-import-format-description "\\)??")) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1120 (list "%l" |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1121 (concat "\\(" icalendar-import-format-location "\\)??")) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1122 (list "%o" |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1123 (concat "\\(" icalendar-import-format-organizer "\\)??")) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1124 (list "%t" |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1125 (concat "\\(" icalendar-import-format-status "\\)??")) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1126 (list "%u" |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1127 (concat "\\(" icalendar-import-format-url "\\)??")))) |
101457
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1128 ;; Need the \' regexp in order to detect multi-line items |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1129 (setq s (concat "\\`" |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1130 (icalendar--rris "%s" "\\(.*?\\)" s nil t) |
feab64c71ad0
icalendar: uid-format, bug fixes.
Ulf Jasper <ulf.jasper@web.de>
parents:
100908
diff
changeset
|
1131 "\\'")) |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1132 (if (string-match s summary-and-rest) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1133 (let (cla des loc org sta sum url) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1134 (if (and pos-sum (match-beginning pos-sum)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1135 (setq sum (substring summary-and-rest |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1136 (match-beginning pos-sum) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1137 (match-end pos-sum)))) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1138 (if (and pos-cla (match-beginning pos-cla)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1139 (setq cla (substring summary-and-rest |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1140 (match-beginning pos-cla) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1141 (match-end pos-cla)))) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1142 (if (and pos-des (match-beginning pos-des)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1143 (setq des (substring summary-and-rest |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1144 (match-beginning pos-des) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1145 (match-end pos-des)))) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1146 (if (and pos-loc (match-beginning pos-loc)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1147 (setq loc (substring summary-and-rest |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1148 (match-beginning pos-loc) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1149 (match-end pos-loc)))) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1150 (if (and pos-org (match-beginning pos-org)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1151 (setq org (substring summary-and-rest |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1152 (match-beginning pos-org) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1153 (match-end pos-org)))) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1154 (if (and pos-sta (match-beginning pos-sta)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1155 (setq sta (substring summary-and-rest |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1156 (match-beginning pos-sta) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1157 (match-end pos-sta)))) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1158 (if (and pos-url (match-beginning pos-url)) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1159 (setq url (substring summary-and-rest |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1160 (match-beginning pos-url) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1161 (match-end pos-url)))) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1162 (list (if cla (cons 'cla cla) nil) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1163 (if des (cons 'des des) nil) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1164 (if loc (cons 'loc loc) nil) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1165 (if org (cons 'org org) nil) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1166 (if sta (cons 'sta sta) nil) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1167 ;;(if sum (cons 'sum sum) nil) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1168 (if url (cons 'url url) nil)))))))) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1169 |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1170 ;; subroutines for icalendar-export-region |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1171 (defun icalendar--convert-ordinary-to-ical (nonmarker entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1172 "Convert \"ordinary\" diary entry to icalendar format. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1173 NONMARKER is a regular expression matching the start of non-marking |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1174 entries. ENTRY-MAIN is the first line of the diary entry." |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
1175 (if (string-match |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
1176 (concat nonmarker |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
1177 "\\([^ /]+[ /]+[^ /]+[ /]+[^ ]+\\)\\s-*" ; date |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1178 "\\(\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?" ; start time |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
1179 "\\(" |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1180 "-\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?\\)?" ; end time |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
1181 "\\)?" |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
1182 "\\s-*\\(.*?\\) ?$") |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
1183 entry-main) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1184 (let* ((datetime (substring entry-main (match-beginning 1) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1185 (match-end 1))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1186 (startisostring (icalendar--datestring-to-isodate |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1187 datetime)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1188 (endisostring (icalendar--datestring-to-isodate |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1189 datetime 1)) |
92986
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1190 (endisostring1) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1191 (starttimestring (icalendar--diarytime-to-isotime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1192 (if (match-beginning 3) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1193 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1194 (match-beginning 3) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1195 (match-end 3)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1196 nil) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1197 (if (match-beginning 4) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1198 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1199 (match-beginning 4) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1200 (match-end 4)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1201 nil))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1202 (endtimestring (icalendar--diarytime-to-isotime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1203 (if (match-beginning 6) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1204 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1205 (match-beginning 6) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1206 (match-end 6)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1207 nil) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1208 (if (match-beginning 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1209 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1210 (match-beginning 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1211 (match-end 7)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1212 nil))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1213 (summary (icalendar--convert-string-for-export |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1214 (substring entry-main (match-beginning 8) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1215 (match-end 8))))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1216 (icalendar--dmsg "ordinary %s" entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1217 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1218 (unless startisostring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1219 (error "Could not parse date")) |
92986
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1220 |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1221 ;; If only start-date is specified, then end-date is next day, |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1222 ;; otherwise it is same day. |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1223 (setq endisostring1 (if starttimestring |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1224 startisostring |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1225 endisostring)) |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1226 |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1227 (when starttimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1228 (unless endtimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1229 (let ((time |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1230 (read (icalendar--rris "^T0?" "" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1231 starttimestring)))) |
92986
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1232 (if (< time 230000) |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1233 ;; Case: ends on same day |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1234 (setq endtimestring (format "T%06d" |
92986
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1235 (+ 10000 time))) |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1236 ;; Case: ends on next day |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1237 (setq endtimestring (format "T%06d" |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1238 (- time 230000))) |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1239 (setq endisostring1 endisostring)) ))) |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1240 |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1241 (list (concat "\nDTSTART;" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1242 (if starttimestring "VALUE=DATE-TIME:" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1243 "VALUE=DATE:") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1244 startisostring |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1245 (or starttimestring "") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1246 "\nDTEND;" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1247 (if endtimestring "VALUE=DATE-TIME:" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1248 "VALUE=DATE:") |
92986
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1249 endisostring1 |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1250 (or endtimestring "")) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1251 summary)) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1252 ;; no match |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1253 nil)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1254 |
92987
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1255 (defun icalendar-first-weekday-of-year (abbrevweekday year) |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1256 "Find the first ABBREVWEEKDAY in a given YEAR. |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1257 Returns day number." |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1258 (let* ((day-of-week-jan01 (calendar-day-of-week (list 1 1 year))) |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1259 (result (+ 1 |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1260 (- (icalendar--get-weekday-number abbrevweekday) |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1261 day-of-week-jan01)))) |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1262 (cond ((<= result 0) |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1263 (setq result (+ result 7))) |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1264 ((> result 7) |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1265 (setq result (- result 7)))) |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1266 result)) |
92986
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1267 |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1268 (defun icalendar--convert-weekly-to-ical (nonmarker entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1269 "Convert weekly diary entry to icalendar format. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1270 NONMARKER is a regular expression matching the start of non-marking |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1271 entries. ENTRY-MAIN is the first line of the diary entry." |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1272 (if (and (string-match (concat nonmarker |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1273 "\\([a-z]+\\)\\s-+" |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1274 "\\(\\([0-9][0-9]?:[0-9][0-9]\\)" |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1275 "\\([ap]m\\)?" |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1276 "\\(-" |
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1277 "\\([0-9][0-9]?:[0-9][0-9]\\)" |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1278 "\\([ap]m\\)?\\)?" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1279 "\\)?" |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1280 "\\s-*\\(.*?\\) ?$") |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1281 entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1282 (icalendar--get-weekday-abbrev |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1283 (substring entry-main (match-beginning 1) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1284 (match-end 1)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1285 (let* ((day (icalendar--get-weekday-abbrev |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1286 (substring entry-main (match-beginning 1) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1287 (match-end 1)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1288 (starttimestring (icalendar--diarytime-to-isotime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1289 (if (match-beginning 3) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1290 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1291 (match-beginning 3) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1292 (match-end 3)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1293 nil) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1294 (if (match-beginning 4) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1295 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1296 (match-beginning 4) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1297 (match-end 4)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1298 nil))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1299 (endtimestring (icalendar--diarytime-to-isotime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1300 (if (match-beginning 6) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1301 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1302 (match-beginning 6) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1303 (match-end 6)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1304 nil) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1305 (if (match-beginning 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1306 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1307 (match-beginning 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1308 (match-end 7)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1309 nil))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1310 (summary (icalendar--convert-string-for-export |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1311 (substring entry-main (match-beginning 8) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1312 (match-end 8))))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1313 (icalendar--dmsg "weekly %s" entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1314 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1315 (when starttimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1316 (unless endtimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1317 (let ((time (read |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1318 (icalendar--rris "^T0?" "" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1319 starttimestring)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1320 (setq endtimestring (format "T%06d" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1321 (+ 10000 time)))))) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1322 (list (concat "\nDTSTART;" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1323 (if starttimestring |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1324 "VALUE=DATE-TIME:" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1325 "VALUE=DATE:") |
92986
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1326 ;; Find the first requested weekday of the |
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1327 ;; start year |
92987
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1328 (funcall 'format "%04d%02d%02d" |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1329 icalendar-recurring-start-year 1 |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1330 (icalendar-first-weekday-of-year |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1331 day icalendar-recurring-start-year)) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1332 (or starttimestring "") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1333 "\nDTEND;" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1334 (if endtimestring |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1335 "VALUE=DATE-TIME:" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1336 "VALUE=DATE:") |
92987
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1337 (funcall 'format "%04d%02d%02d" |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
1338 ;; end is non-inclusive! |
92987
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1339 icalendar-recurring-start-year 1 |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1340 (+ (icalendar-first-weekday-of-year |
fe7a1170342d
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
92986
diff
changeset
|
1341 day icalendar-recurring-start-year) |
92986
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1342 (if endtimestring 0 1))) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1343 (or endtimestring "") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1344 "\nRRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1345 day) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1346 summary)) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1347 ;; no match |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1348 nil)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1349 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1350 (defun icalendar--convert-yearly-to-ical (nonmarker entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1351 "Convert yearly diary entry to icalendar format. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1352 NONMARKER is a regular expression matching the start of non-marking |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1353 entries. ENTRY-MAIN is the first line of the diary entry." |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1354 (if (string-match (concat nonmarker |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
1355 (if (eq (icalendar--date-style) 'european) |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1356 "\\([0-9]+[0-9]?\\)\\s-+\\([a-z]+\\)\\s-+" |
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1357 "\\([a-z]+\\)\\s-+\\([0-9]+[0-9]?\\)\\s-+") |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1358 "\\*?\\s-*" |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1359 "\\(\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?" |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1360 "\\(" |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1361 "-\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?\\)?" |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1362 "\\)?" |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1363 "\\s-*\\([^0-9]+.*?\\) ?$" ; must not match years |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1364 ) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1365 entry-main) |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
1366 (let* ((daypos (if (eq (icalendar--date-style) 'european) 1 2)) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
1367 (monpos (if (eq (icalendar--date-style) 'european) 2 1)) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1368 (day (read (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1369 (match-beginning daypos) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1370 (match-end daypos)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1371 (month (icalendar--get-month-number |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1372 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1373 (match-beginning monpos) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1374 (match-end monpos)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1375 (starttimestring (icalendar--diarytime-to-isotime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1376 (if (match-beginning 4) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1377 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1378 (match-beginning 4) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1379 (match-end 4)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1380 nil) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1381 (if (match-beginning 5) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1382 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1383 (match-beginning 5) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1384 (match-end 5)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1385 nil))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1386 (endtimestring (icalendar--diarytime-to-isotime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1387 (if (match-beginning 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1388 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1389 (match-beginning 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1390 (match-end 7)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1391 nil) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1392 (if (match-beginning 8) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1393 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1394 (match-beginning 8) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1395 (match-end 8)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1396 nil))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1397 (summary (icalendar--convert-string-for-export |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1398 (substring entry-main (match-beginning 9) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1399 (match-end 9))))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1400 (icalendar--dmsg "yearly %s" entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1401 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1402 (when starttimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1403 (unless endtimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1404 (let ((time (read |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1405 (icalendar--rris "^T0?" "" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1406 starttimestring)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1407 (setq endtimestring (format "T%06d" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1408 (+ 10000 time)))))) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1409 (list (concat "\nDTSTART;" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1410 (if starttimestring "VALUE=DATE-TIME:" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1411 "VALUE=DATE:") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1412 (format "1900%02d%02d" month day) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1413 (or starttimestring "") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1414 "\nDTEND;" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1415 (if endtimestring "VALUE=DATE-TIME:" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1416 "VALUE=DATE:") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1417 ;; end is not included! shift by one day |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1418 (icalendar--date-to-isodate |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1419 (list month day 1900) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1420 (if endtimestring 0 1)) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1421 (or endtimestring "") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1422 "\nRRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=" |
92986
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1423 (format "%d" month) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1424 ";BYMONTHDAY=" |
92986
589bafdc6c3e
Craig Markwardt <Craig.Markwardt at nasa.gov>
Glenn Morris <rgm@gnu.org>
parents:
88008
diff
changeset
|
1425 (format "%d" day)) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1426 summary)) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1427 ;; no match |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1428 nil)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1429 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1430 (defun icalendar--convert-sexp-to-ical (nonmarker entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1431 "Convert complex sexp diary entry to icalendar format -- unsupported! |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1432 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1433 FIXME! |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1434 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1435 NONMARKER is a regular expression matching the start of non-marking |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1436 entries. ENTRY-MAIN is the first line of the diary entry." |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1437 (cond ((string-match (concat nonmarker |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1438 "%%(and \\(([^)]+)\\))\\(\\s-*.*?\\) ?$") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1439 entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1440 ;; simple sexp entry as generated by icalendar.el: strip off the |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1441 ;; unnecessary (and) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1442 (icalendar--dmsg "diary-sexp from icalendar.el %s" entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1443 (icalendar--convert-to-ical |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1444 nonmarker |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1445 (concat "%%" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1446 (substring entry-main (match-beginning 1) (match-end 1)) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1447 (substring entry-main (match-beginning 2) (match-end 2))))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1448 ((string-match (concat nonmarker |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1449 "%%([^)]+)\\s-*.*") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1450 entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1451 (icalendar--dmsg "diary-sexp %s" entry-main) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1452 (error "Sexp-entries are not supported yet")) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1453 (t |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1454 ;; no match |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1455 nil))) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1456 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1457 (defun icalendar--convert-block-to-ical (nonmarker entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1458 "Convert block diary entry to icalendar format. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1459 NONMARKER is a regular expression matching the start of non-marking |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1460 entries. ENTRY-MAIN is the first line of the diary entry." |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1461 (if (string-match (concat nonmarker |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1462 "%%(diary-block \\([^ /]+[ /]+[^ /]+[ /]+[^ ]+\\)" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1463 " +\\([^ /]+[ /]+[^ /]+[ /]+[^ ]+\\))\\s-*" |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1464 "\\(\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?" |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1465 "\\(" |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1466 "-\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?\\)?" |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1467 "\\)?" |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1468 "\\s-*\\(.*?\\) ?$") |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1469 entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1470 (let* ((startstring (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1471 (match-beginning 1) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1472 (match-end 1))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1473 (endstring (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1474 (match-beginning 2) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1475 (match-end 2))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1476 (startisostring (icalendar--datestring-to-isodate |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1477 startstring)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1478 (endisostring (icalendar--datestring-to-isodate |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1479 endstring)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1480 (endisostring+1 (icalendar--datestring-to-isodate |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1481 endstring 1)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1482 (starttimestring (icalendar--diarytime-to-isotime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1483 (if (match-beginning 4) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1484 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1485 (match-beginning 4) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1486 (match-end 4)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1487 nil) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1488 (if (match-beginning 5) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1489 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1490 (match-beginning 5) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1491 (match-end 5)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1492 nil))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1493 (endtimestring (icalendar--diarytime-to-isotime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1494 (if (match-beginning 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1495 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1496 (match-beginning 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1497 (match-end 7)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1498 nil) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1499 (if (match-beginning 8) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1500 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1501 (match-beginning 8) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1502 (match-end 8)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1503 nil))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1504 (summary (icalendar--convert-string-for-export |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1505 (substring entry-main (match-beginning 9) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1506 (match-end 9))))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1507 (icalendar--dmsg "diary-block %s" entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1508 (when starttimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1509 (unless endtimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1510 (let ((time |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1511 (read (icalendar--rris "^T0?" "" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1512 starttimestring)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1513 (setq endtimestring (format "T%06d" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1514 (+ 10000 time)))))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1515 (if starttimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1516 ;; with time -> write rrule |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1517 (list (concat "\nDTSTART;VALUE=DATE-TIME:" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1518 startisostring |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1519 starttimestring |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1520 "\nDTEND;VALUE=DATE-TIME:" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1521 startisostring |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1522 endtimestring |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1523 "\nRRULE:FREQ=DAILY;INTERVAL=1;UNTIL=" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1524 endisostring) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1525 summary) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1526 ;; no time -> write long event |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1527 (list (concat "\nDTSTART;VALUE=DATE:" startisostring |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1528 "\nDTEND;VALUE=DATE:" endisostring+1) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1529 summary))) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1530 ;; no match |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1531 nil)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1532 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1533 (defun icalendar--convert-float-to-ical (nonmarker entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1534 "Convert float diary entry to icalendar format -- unsupported! |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1535 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1536 FIXME! |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1537 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1538 NONMARKER is a regular expression matching the start of non-marking |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1539 entries. ENTRY-MAIN is the first line of the diary entry." |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1540 (if (string-match (concat nonmarker |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1541 "%%(diary-float \\([^)]+\\))\\s-*\\(.*?\\) ?$") |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1542 entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1543 (progn |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1544 (icalendar--dmsg "diary-float %s" entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1545 (error "`diary-float' is not supported yet")) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1546 ;; no match |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1547 nil)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1548 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1549 (defun icalendar--convert-date-to-ical (nonmarker entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1550 "Convert `diary-date' diary entry to icalendar format -- unsupported! |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1551 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1552 FIXME! |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1553 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1554 NONMARKER is a regular expression matching the start of non-marking |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1555 entries. ENTRY-MAIN is the first line of the diary entry." |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1556 (if (string-match (concat nonmarker |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1557 "%%(diary-date \\([^)]+\\))\\s-*\\(.*?\\) ?$") |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1558 entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1559 (progn |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1560 (icalendar--dmsg "diary-date %s" entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1561 (error "`diary-date' is not supported yet")) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1562 ;; no match |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1563 nil)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1564 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1565 (defun icalendar--convert-cyclic-to-ical (nonmarker entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1566 "Convert `diary-cyclic' diary entry to icalendar format. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1567 NONMARKER is a regular expression matching the start of non-marking |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1568 entries. ENTRY-MAIN is the first line of the diary entry." |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1569 (if (string-match (concat nonmarker |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1570 "%%(diary-cyclic \\([^ ]+\\) +" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1571 "\\([^ /]+[ /]+[^ /]+[ /]+[^ ]+\\))\\s-*" |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1572 "\\(\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?" |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1573 "\\(" |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1574 "-\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?\\)?" |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1575 "\\)?" |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1576 "\\s-*\\(.*?\\) ?$") |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1577 entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1578 (let* ((frequency (substring entry-main (match-beginning 1) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1579 (match-end 1))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1580 (datetime (substring entry-main (match-beginning 2) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1581 (match-end 2))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1582 (startisostring (icalendar--datestring-to-isodate |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1583 datetime)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1584 (endisostring (icalendar--datestring-to-isodate |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1585 datetime)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1586 (endisostring+1 (icalendar--datestring-to-isodate |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1587 datetime 1)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1588 (starttimestring (icalendar--diarytime-to-isotime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1589 (if (match-beginning 4) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1590 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1591 (match-beginning 4) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1592 (match-end 4)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1593 nil) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1594 (if (match-beginning 5) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1595 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1596 (match-beginning 5) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1597 (match-end 5)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1598 nil))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1599 (endtimestring (icalendar--diarytime-to-isotime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1600 (if (match-beginning 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1601 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1602 (match-beginning 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1603 (match-end 7)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1604 nil) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1605 (if (match-beginning 8) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1606 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1607 (match-beginning 8) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1608 (match-end 8)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1609 nil))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1610 (summary (icalendar--convert-string-for-export |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1611 (substring entry-main (match-beginning 9) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1612 (match-end 9))))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1613 (icalendar--dmsg "diary-cyclic %s" entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1614 (when starttimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1615 (unless endtimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1616 (let ((time |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1617 (read (icalendar--rris "^T0?" "" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1618 starttimestring)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1619 (setq endtimestring (format "T%06d" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1620 (+ 10000 time)))))) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1621 (list (concat "\nDTSTART;" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1622 (if starttimestring "VALUE=DATE-TIME:" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1623 "VALUE=DATE:") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1624 startisostring |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1625 (or starttimestring "") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1626 "\nDTEND;" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1627 (if endtimestring "VALUE=DATE-TIME:" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1628 "VALUE=DATE:") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1629 (if endtimestring endisostring endisostring+1) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1630 (or endtimestring "") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1631 "\nRRULE:FREQ=DAILY;INTERVAL=" frequency |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1632 ;; strange: korganizer does not expect |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1633 ;; BYSOMETHING here... |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1634 ) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1635 summary)) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1636 ;; no match |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1637 nil)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1638 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1639 (defun icalendar--convert-anniversary-to-ical (nonmarker entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1640 "Convert `diary-anniversary' diary entry to icalendar format. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1641 NONMARKER is a regular expression matching the start of non-marking |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1642 entries. ENTRY-MAIN is the first line of the diary entry." |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1643 (if (string-match (concat nonmarker |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1644 "%%(diary-anniversary \\([^)]+\\))\\s-*" |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1645 "\\(\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?" |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1646 "\\(" |
107199
8ce4f8460ed4
Fixed bug#5549 (icalendar.el)
Ulf Jasper <ulf.jasper@web.de>
parents:
106815
diff
changeset
|
1647 "-\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?\\)?" |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1648 "\\)?" |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1649 "\\s-*\\(.*?\\) ?$") |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1650 entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1651 (let* ((datetime (substring entry-main (match-beginning 1) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1652 (match-end 1))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1653 (startisostring (icalendar--datestring-to-isodate |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1654 datetime)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1655 (endisostring (icalendar--datestring-to-isodate |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1656 datetime 1)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1657 (starttimestring (icalendar--diarytime-to-isotime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1658 (if (match-beginning 3) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1659 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1660 (match-beginning 3) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1661 (match-end 3)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1662 nil) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1663 (if (match-beginning 4) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1664 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1665 (match-beginning 4) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1666 (match-end 4)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1667 nil))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1668 (endtimestring (icalendar--diarytime-to-isotime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1669 (if (match-beginning 6) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1670 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1671 (match-beginning 6) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1672 (match-end 6)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1673 nil) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1674 (if (match-beginning 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1675 (substring entry-main |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1676 (match-beginning 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1677 (match-end 7)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1678 nil))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1679 (summary (icalendar--convert-string-for-export |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1680 (substring entry-main (match-beginning 8) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1681 (match-end 8))))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1682 (icalendar--dmsg "diary-anniversary %s" entry-main) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1683 (when starttimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1684 (unless endtimestring |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1685 (let ((time |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1686 (read (icalendar--rris "^T0?" "" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1687 starttimestring)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1688 (setq endtimestring (format "T%06d" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1689 (+ 10000 time)))))) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1690 (list (concat "\nDTSTART;" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1691 (if starttimestring "VALUE=DATE-TIME:" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1692 "VALUE=DATE:") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1693 startisostring |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1694 (or starttimestring "") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1695 "\nDTEND;" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1696 (if endtimestring "VALUE=DATE-TIME:" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1697 "VALUE=DATE:") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1698 endisostring |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1699 (or endtimestring "") |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1700 "\nRRULE:FREQ=YEARLY;INTERVAL=1" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1701 ;; the following is redundant, |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1702 ;; but korganizer seems to expect this... ;( |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1703 ;; and evolution doesn't understand it... :( |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1704 ;; so... who is wrong?! |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1705 ";BYMONTH=" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1706 (substring startisostring 4 6) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1707 ";BYMONTHDAY=" |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1708 (substring startisostring 6 8)) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1709 summary)) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1710 ;; no match |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1711 nil)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1712 |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1713 ;; ====================================================================== |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1714 ;; Import -- convert icalendar to emacs-diary |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1715 ;; ====================================================================== |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1716 |
60382
87759c244379
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60235
diff
changeset
|
1717 ;;;###autoload |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1718 (defun icalendar-import-file (ical-filename diary-filename |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1719 &optional non-marking) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1720 "Import an iCalendar file and append to a diary file. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1721 Argument ICAL-FILENAME output iCalendar file. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1722 Argument DIARY-FILENAME input `diary-file'. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1723 Optional argument NON-MARKING determines whether events are created as |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1724 non-marking or not." |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1725 (interactive "fImport iCalendar data from file: |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1726 Finto diary file: |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1727 p") |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1728 ;; clean up the diary file |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1729 (save-current-buffer |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1730 ;; now load and convert from the ical file |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1731 (set-buffer (find-file ical-filename)) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1732 (icalendar-import-buffer diary-filename t non-marking))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1733 |
60382
87759c244379
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60235
diff
changeset
|
1734 ;;;###autoload |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1735 (defun icalendar-import-buffer (&optional diary-file do-not-ask |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1736 non-marking) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1737 "Extract iCalendar events from current buffer. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1738 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1739 This function searches the current buffer for the first iCalendar |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1740 object, reads it and adds all VEVENT elements to the diary |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1741 DIARY-FILE. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1742 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1743 It will ask for each appointment whether to add it to the diary |
76645
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1744 unless DO-NOT-ASK is non-nil. When called interactively, |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1745 DO-NOT-ASK is nil, so that you are asked for each event. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1746 |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1747 NON-MARKING determines whether diary events are created as |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1748 non-marking. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1749 |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1750 Return code t means that importing worked well, return code nil |
75141
e4abbe7f7417
(icalendar-import-buffer): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
74673
diff
changeset
|
1751 means that an error has occurred. Error messages will be in the |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1752 buffer `*icalendar-errors*'." |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1753 (interactive) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1754 (save-current-buffer |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1755 ;; prepare ical |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1756 (message "Preparing icalendar...") |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1757 (set-buffer (icalendar--get-unfolded-buffer (current-buffer))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1758 (goto-char (point-min)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1759 (message "Preparing icalendar...done") |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1760 (if (re-search-forward "^BEGIN:VCALENDAR\\s-*$" nil t) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1761 (let (ical-contents ical-errors) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1762 ;; read ical |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1763 (message "Reading icalendar...") |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1764 (beginning-of-line) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1765 (setq ical-contents (icalendar--read-element nil nil)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1766 (message "Reading icalendar...done") |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1767 ;; convert ical |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1768 (message "Converting icalendar...") |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1769 (setq ical-errors (icalendar--convert-ical-to-diary |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1770 ical-contents |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1771 diary-file do-not-ask non-marking)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1772 (when diary-file |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1773 ;; save the diary file if it is visited already |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1774 (let ((b (find-buffer-visiting diary-file))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1775 (when b |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1776 (save-current-buffer |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1777 (set-buffer b) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1778 (save-buffer))))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1779 (message "Converting icalendar...done") |
75141
e4abbe7f7417
(icalendar-import-buffer): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
74673
diff
changeset
|
1780 ;; return t if no error occurred |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1781 (not ical-errors)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1782 (message |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1783 "Current buffer does not contain icalendar contents!") |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1784 ;; return nil, i.e. import did not work |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1785 nil))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1786 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1787 (defalias 'icalendar-extract-ical-from-buffer 'icalendar-import-buffer) |
104396
e667f4aad5f2
* textmodes/remember.el (remember-buffer):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
101497
diff
changeset
|
1788 (make-obsolete 'icalendar-extract-ical-from-buffer 'icalendar-import-buffer "22.1") |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1789 |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1790 (defun icalendar--format-ical-event (event) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1791 "Create a string representation of an iCalendar EVENT." |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1792 (if (functionp icalendar-import-format) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1793 (funcall icalendar-import-format event) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1794 (let ((string icalendar-import-format) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1795 (conversion-list |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1796 '(("%c" CLASS icalendar-import-format-class) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1797 ("%d" DESCRIPTION icalendar-import-format-description) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1798 ("%l" LOCATION icalendar-import-format-location) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1799 ("%o" ORGANIZER icalendar-import-format-organizer) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1800 ("%s" SUMMARY icalendar-import-format-summary) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1801 ("%t" STATUS icalendar-import-format-status) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1802 ("%u" URL icalendar-import-format-url)))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1803 ;; convert the specifiers in the format string |
84893
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1804 (mapc (lambda (i) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1805 (let* ((spec (car i)) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1806 (prop (cadr i)) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1807 (format (car (cddr i))) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1808 (contents (icalendar--get-event-property event prop)) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1809 (formatted-contents "")) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1810 (when (and contents (> (length contents) 0)) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1811 (setq formatted-contents |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1812 (icalendar--rris "%s" |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1813 (icalendar--convert-string-for-import |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1814 contents) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1815 (symbol-value format) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1816 t t))) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1817 (setq string (icalendar--rris spec |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1818 formatted-contents |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1819 string |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1820 t t)))) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1821 conversion-list) |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
1822 string))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1823 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1824 (defun icalendar--convert-ical-to-diary (ical-list diary-file |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1825 &optional do-not-ask |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1826 non-marking) |
74673
9963f42a0a19
From Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
68943
diff
changeset
|
1827 "Convert iCalendar data to an Emacs diary file. |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1828 Import VEVENTS from the iCalendar object ICAL-LIST and saves them to a |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1829 DIARY-FILE. If DO-NOT-ASK is nil the user is asked for each event |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1830 whether to actually import it. NON-MARKING determines whether diary |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1831 events are created as non-marking. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1832 This function attempts to return t if something goes wrong. In this |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1833 case an error string which describes all the errors and problems is |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1834 written into the buffer `*icalendar-errors*'." |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1835 (let* ((ev (icalendar--all-events ical-list)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1836 (error-string "") |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1837 (event-ok t) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1838 (found-error nil) |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1839 (zone-map (icalendar--convert-all-timezones ical-list)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1840 e diary-string) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1841 ;; step through all events/appointments |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1842 (while ev |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1843 (setq e (car ev)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1844 (setq ev (cdr ev)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1845 (setq event-ok nil) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1846 (condition-case error-val |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1847 (let* ((dtstart (icalendar--get-event-property e 'DTSTART)) |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1848 (dtstart-zone (icalendar--find-time-zone |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1849 (icalendar--get-event-property-attributes |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1850 e 'DTSTART) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1851 zone-map)) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1852 (dtstart-dec (icalendar--decode-isodatetime dtstart nil |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1853 dtstart-zone)) |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1854 (start-d (icalendar--datetime-to-diary-date |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1855 dtstart-dec)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1856 (start-t (icalendar--datetime-to-colontime dtstart-dec)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1857 (dtend (icalendar--get-event-property e 'DTEND)) |
87780
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1858 (dtend-zone (icalendar--find-time-zone |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1859 (icalendar--get-event-property-attributes |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1860 e 'DTEND) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1861 zone-map)) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1862 (dtend-dec (icalendar--decode-isodatetime dtend |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1863 nil dtend-zone)) |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1864 (dtend-1-dec (icalendar--decode-isodatetime dtend -1 |
cdfa9a659163
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
1865 dtend-zone)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1866 end-d |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1867 end-1-d |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1868 end-t |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1869 (summary (icalendar--convert-string-for-import |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1870 (or (icalendar--get-event-property e 'SUMMARY) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1871 "No summary"))) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1872 (rrule (icalendar--get-event-property e 'RRULE)) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1873 (rdate (icalendar--get-event-property e 'RDATE)) |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1874 (duration (icalendar--get-event-property e 'DURATION))) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1875 (icalendar--dmsg "%s: `%s'" start-d summary) |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1876 ;; check whether start-time is missing |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1877 (if (and dtstart |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1878 (string= |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1879 (cadr (icalendar--get-event-property-attributes |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1880 e 'DTSTART)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1881 "DATE")) |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1882 (setq start-t nil)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1883 (when duration |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1884 (let ((dtend-dec-d (icalendar--add-decoded-times |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1885 dtstart-dec |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1886 (icalendar--decode-isoduration duration))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1887 (dtend-1-dec-d (icalendar--add-decoded-times |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1888 dtstart-dec |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1889 (icalendar--decode-isoduration duration |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1890 t)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1891 (if (and dtend-dec (not (eq dtend-dec dtend-dec-d))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1892 (message "Inconsistent endtime and duration for %s" |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1893 summary)) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1894 (setq dtend-dec dtend-dec-d) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1895 (setq dtend-1-dec dtend-1-dec-d))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1896 (setq end-d (if dtend-dec |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1897 (icalendar--datetime-to-diary-date dtend-dec) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1898 start-d)) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1899 (setq end-1-d (if dtend-1-dec |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1900 (icalendar--datetime-to-diary-date dtend-1-dec) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1901 start-d)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1902 (setq end-t (if (and |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1903 dtend-dec |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1904 (not (string= |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1905 (cadr |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1906 (icalendar--get-event-property-attributes |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1907 e 'DTEND)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1908 "DATE"))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1909 (icalendar--datetime-to-colontime dtend-dec) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1910 start-t)) |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1911 (icalendar--dmsg "start-d: %s, end-d: %s" start-d end-d) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1912 (cond |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1913 ;; recurring event |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1914 (rrule |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1915 (setq diary-string |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1916 (icalendar--convert-recurring-to-diary e dtstart-dec start-t |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1917 end-t)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1918 (setq event-ok t)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1919 (rdate |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1920 (icalendar--dmsg "rdate event") |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1921 (setq diary-string "") |
84893
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1922 (mapc (lambda (datestring) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1923 (setq diary-string |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1924 (concat diary-string |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1925 (format "......")))) |
527b0ddd39b9
(icalendar--format-ical-event, icalendar--convert-ical-to-diary):
Juanma Barranquero <lekktu@gmail.com>
parents:
78216
diff
changeset
|
1926 (icalendar--split-value rdate))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1927 ;; non-recurring event |
60235
025b4fbe4149
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60015
diff
changeset
|
1928 ;; all-day event |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1929 ((not (string= start-d end-d)) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1930 (setq diary-string |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1931 (icalendar--convert-non-recurring-all-day-to-diary |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1932 e start-d end-1-d)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1933 (setq event-ok t)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1934 ;; not all-day |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1935 ((and start-t (or (not end-t) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1936 (not (string= start-t end-t)))) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1937 (setq diary-string |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1938 (icalendar--convert-non-recurring-not-all-day-to-diary |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1939 e dtstart-dec dtend-dec start-t end-t)) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1940 (setq event-ok t)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1941 ;; all-day event |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1942 (t |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1943 (icalendar--dmsg "all day event") |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1944 (setq diary-string (icalendar--datetime-to-diary-date |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1945 dtstart-dec "/")) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1946 (setq event-ok t))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1947 ;; add all other elements unless the user doesn't want to have |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1948 ;; them |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1949 (if event-ok |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1950 (progn |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1951 (setq diary-string |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1952 (concat diary-string " " |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1953 (icalendar--format-ical-event e))) |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
1954 (if do-not-ask (setq summary nil)) |
76645
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1955 ;; add entry to diary and store actual name of diary |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1956 ;; file (in case it was nil) |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1957 (setq diary-file |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1958 (icalendar--add-diary-entry diary-string diary-file |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1959 non-marking summary))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1960 ;; event was not ok |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1961 (setq found-error t) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1962 (setq error-string |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1963 (format "%s\nCannot handle this event:%s" |
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
1964 error-string e)))) |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1965 ;; FIXME: inform user about ignored event properties |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1966 ;; handle errors |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1967 (error |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1968 (message "Ignoring event \"%s\"" e) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1969 (setq found-error t) |
60015
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1970 (setq error-string (format "%s\n%s\nCannot handle this event: %s" |
7152e45c561a
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57862
diff
changeset
|
1971 error-val error-string e)) |
65591
a65f8ec418fc
message format spec fixes, commit # 10
Deepak Goel <deego@gnufans.org>
parents:
64432
diff
changeset
|
1972 (message "%s" error-string)))) |
76645
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1973 |
74673
9963f42a0a19
From Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
68943
diff
changeset
|
1974 ;; insert final newline |
76645
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1975 (if diary-file |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1976 (let ((b (find-buffer-visiting diary-file))) |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1977 (when b |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1978 (save-current-buffer |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1979 (set-buffer b) |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1980 (goto-char (point-max)) |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
1981 (insert "\n"))))) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1982 (if found-error |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1983 (save-current-buffer |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1984 (set-buffer (get-buffer-create "*icalendar-errors*")) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1985 (erase-buffer) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1986 (insert error-string))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1987 (message "Converting icalendar...done") |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1988 found-error)) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
1989 |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1990 ;; subroutines for importing |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1991 (defun icalendar--convert-recurring-to-diary (e dtstart-dec start-t end-t) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1992 "Convert recurring icalendar event E to diary format. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1993 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1994 DTSTART-DEC is the DTSTART property of E. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1995 START-T is the event's start time in diary format. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1996 END-T is the event's end time in diary format." |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1997 (icalendar--dmsg "recurring event") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1998 (let* ((rrule (icalendar--get-event-property e 'RRULE)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
1999 (rrule-props (icalendar--split-value rrule)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2000 (frequency (cadr (assoc 'FREQ rrule-props))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2001 (until (cadr (assoc 'UNTIL rrule-props))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2002 (count (cadr (assoc 'COUNT rrule-props))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2003 (interval (read (or (cadr (assoc 'INTERVAL rrule-props)) "1"))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2004 (dtstart-conv (icalendar--datetime-to-diary-date dtstart-dec)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2005 (until-conv (icalendar--datetime-to-diary-date |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2006 (icalendar--decode-isodatetime until))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2007 (until-1-conv (icalendar--datetime-to-diary-date |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2008 (icalendar--decode-isodatetime until -1))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2009 (result "")) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2010 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2011 ;; FIXME FIXME interval!!!!!!!!!!!!! |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2012 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2013 (when count |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2014 (if until |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2015 (message "Must not have UNTIL and COUNT -- ignoring COUNT element!") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2016 (let ((until-1 0)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2017 (cond ((string-equal frequency "DAILY") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2018 (setq until (icalendar--add-decoded-times |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
2019 dtstart-dec |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2020 (list 0 0 0 (* (read count) interval) 0 0))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2021 (setq until-1 (icalendar--add-decoded-times |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2022 dtstart-dec |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2023 (list 0 0 0 (* (- (read count) 1) interval) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2024 0 0))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2025 ) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2026 ((string-equal frequency "WEEKLY") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2027 (setq until (icalendar--add-decoded-times |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2028 dtstart-dec |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2029 (list 0 0 0 (* (read count) 7 interval) 0 0))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2030 (setq until-1 (icalendar--add-decoded-times |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2031 dtstart-dec |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2032 (list 0 0 0 (* (- (read count) 1) 7 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2033 interval) 0 0))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2034 ) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2035 ((string-equal frequency "MONTHLY") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2036 (setq until (icalendar--add-decoded-times |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2037 dtstart-dec (list 0 0 0 0 (* (- (read count) 1) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2038 interval) 0))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2039 (setq until-1 (icalendar--add-decoded-times |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2040 dtstart-dec (list 0 0 0 0 (* (- (read count) 1) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2041 interval) 0))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2042 ) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2043 ((string-equal frequency "YEARLY") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2044 (setq until (icalendar--add-decoded-times |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2045 dtstart-dec (list 0 0 0 0 0 (* (- (read count) 1) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2046 interval)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2047 (setq until-1 (icalendar--add-decoded-times |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2048 dtstart-dec |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2049 (list 0 0 0 0 0 (* (- (read count) 1) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2050 interval)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2051 ) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2052 (t |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2053 (message "Cannot handle COUNT attribute for `%s' events." |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2054 frequency))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2055 (setq until-conv (icalendar--datetime-to-diary-date until)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2056 (setq until-1-conv (icalendar--datetime-to-diary-date until-1)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2057 )) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2058 ) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2059 (cond ((string-equal frequency "WEEKLY") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2060 (if (not start-t) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2061 (progn |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2062 ;; weekly and all-day |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2063 (icalendar--dmsg "weekly all-day") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2064 (if until |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2065 (setq result |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2066 (format |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2067 (concat "%%%%(and " |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2068 "(diary-cyclic %d %s) " |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2069 "(diary-block %s %s))") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2070 (* interval 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2071 dtstart-conv |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2072 dtstart-conv |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2073 (if count until-1-conv until-conv) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2074 )) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2075 (setq result |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2076 (format "%%%%(and (diary-cyclic %d %s))" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2077 (* interval 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2078 dtstart-conv)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2079 ;; weekly and not all-day |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2080 (let* ((byday (cadr (assoc 'BYDAY rrule-props))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2081 (weekday |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2082 (icalendar--get-weekday-number byday))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2083 (icalendar--dmsg "weekly not-all-day") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2084 (if until |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2085 (setq result |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2086 (format |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2087 (concat "%%%%(and " |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2088 "(diary-cyclic %d %s) " |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2089 "(diary-block %s %s)) " |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2090 "%s%s%s") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2091 (* interval 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2092 dtstart-conv |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2093 dtstart-conv |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2094 until-conv |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2095 (or start-t "") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2096 (if end-t "-" "") (or end-t ""))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2097 ;; no limit |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2098 ;; FIXME!!!! |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2099 ;; DTSTART;VALUE=DATE-TIME:20030919T090000 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2100 ;; DTEND;VALUE=DATE-TIME:20030919T113000 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2101 (setq result |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2102 (format |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2103 "%%%%(and (diary-cyclic %s %s)) %s%s%s" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2104 (* interval 7) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2105 dtstart-conv |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2106 (or start-t "") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2107 (if end-t "-" "") (or end-t ""))))))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2108 ;; yearly |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2109 ((string-equal frequency "YEARLY") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2110 (icalendar--dmsg "yearly") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2111 (if until |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2112 (let ((day (nth 3 dtstart-dec)) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2113 (month (nth 4 dtstart-dec))) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2114 (setq result (concat "%%(and (diary-date " |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2115 (cond ((eq (icalendar--date-style) 'iso) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2116 (format "t %d %d" month day)) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2117 ((eq (icalendar--date-style) 'european) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2118 (format "%d %d t" day month)) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2119 ((eq (icalendar--date-style) 'american) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2120 (format "%d %d t" month day))) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2121 ") (diary-block " |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2122 dtstart-conv |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2123 " " |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2124 until-conv |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2125 ")) " |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2126 (or start-t "") |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2127 (if end-t "-" "") |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2128 (or end-t "")))) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2129 (setq result (format |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2130 "%%%%(and (diary-anniversary %s)) %s%s%s" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2131 dtstart-conv |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2132 (or start-t "") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2133 (if end-t "-" "") (or end-t ""))))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2134 ;; monthly |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2135 ((string-equal frequency "MONTHLY") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2136 (icalendar--dmsg "monthly") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2137 (setq result |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2138 (format |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2139 "%%%%(and (diary-date %s) (diary-block %s %s)) %s%s%s" |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2140 (let ((day (nth 3 dtstart-dec))) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2141 (cond ((eq (icalendar--date-style) 'iso) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2142 (format "t t %d" day)) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2143 ((eq (icalendar--date-style) 'european) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2144 (format "%d t t" day)) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2145 ((eq (icalendar--date-style) 'american) |
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2146 (format "t %d t" day)))) |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2147 dtstart-conv |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2148 (if until |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2149 until-conv |
95273
4d3975347028
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
2150 (if (eq (icalendar--date-style) 'iso) "9999 1 1" "1 1 9999")) ;; FIXME: should be unlimited |
62053
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2151 (or start-t "") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2152 (if end-t "-" "") (or end-t "")))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2153 ;; daily |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2154 ((and (string-equal frequency "DAILY")) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2155 (if until |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2156 (setq result |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2157 (format |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2158 (concat "%%%%(and (diary-cyclic %s %s) " |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2159 "(diary-block %s %s)) %s%s%s") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2160 interval dtstart-conv dtstart-conv |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2161 (if count until-1-conv until-conv) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2162 (or start-t "") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2163 (if end-t "-" "") (or end-t ""))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2164 (setq result |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2165 (format |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2166 "%%%%(and (diary-cyclic %s %s)) %s%s%s" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2167 interval |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2168 dtstart-conv |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2169 (or start-t "") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2170 (if end-t "-" "") (or end-t "")))))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2171 ;; Handle exceptions from recurrence rules |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2172 (let ((ex-dates (icalendar--get-event-properties e 'EXDATE))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2173 (while ex-dates |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2174 (let* ((ex-start (icalendar--decode-isodatetime |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2175 (car ex-dates))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2176 (ex-d (icalendar--datetime-to-diary-date |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2177 ex-start))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2178 (setq result |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2179 (icalendar--rris "^%%(\\(and \\)?" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2180 (format |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2181 "%%%%(and (not (diary-date %s)) " |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2182 ex-d) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2183 result))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2184 (setq ex-dates (cdr ex-dates)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2185 ;; FIXME: exception rules are not recognized |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2186 (if (icalendar--get-event-property e 'EXRULE) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2187 (setq result |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2188 (concat result |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2189 "\n Exception rules: " |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2190 (icalendar--get-event-properties |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2191 e 'EXRULE)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2192 result)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2193 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2194 (defun icalendar--convert-non-recurring-all-day-to-diary (event start-d end-d) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2195 "Convert non-recurring icalendar EVENT to diary format. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2196 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2197 DTSTART is the decoded DTSTART property of E. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2198 Argument START-D gives the first day. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2199 Argument END-D gives the last day." |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2200 (icalendar--dmsg "non-recurring all-day event") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2201 (format "%%%%(and (diary-block %s %s))" start-d end-d)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2202 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2203 (defun icalendar--convert-non-recurring-not-all-day-to-diary (event dtstart-dec |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2204 dtend-dec |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2205 start-t |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2206 end-t) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2207 "Convert recurring icalendar EVENT to diary format. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2208 |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2209 DTSTART-DEC is the decoded DTSTART property of E. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2210 DTEND-DEC is the decoded DTEND property of E. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2211 START-T is the event's start time in diary format. |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2212 END-T is the event's end time in diary format." |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2213 (icalendar--dmsg "not all day event") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2214 (cond (end-t |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2215 (format "%s %s-%s" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2216 (icalendar--datetime-to-diary-date |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2217 dtstart-dec "/") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2218 start-t end-t)) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2219 (t |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2220 (format "%s %s" |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2221 (icalendar--datetime-to-diary-date |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2222 dtstart-dec "/") |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2223 start-t)))) |
57aabea77432
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
60382
diff
changeset
|
2224 |
57586
376b47c63cfd
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
57345
diff
changeset
|
2225 (defun icalendar--add-diary-entry (string diary-file non-marking |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
2226 &optional summary) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2227 "Add STRING to the diary file DIARY-FILE. |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2228 STRING must be a properly formatted valid diary entry. NON-MARKING |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2229 determines whether diary events are created as non-marking. If |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
2230 SUMMARY is not nil it must be a string that gives the summary of the |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2231 entry. In this case the user will be asked whether he wants to insert |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2232 the entry." |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
2233 (when (or (not summary) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2234 (y-or-n-p (format "Add appointment for `%s' to diary? " |
66374
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
2235 summary))) |
88fc54347c68
From Ulf Jasper <ulf.jasper@web.de>:
Glenn Morris <rgm@gnu.org>
parents:
65591
diff
changeset
|
2236 (when summary |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2237 (setq non-marking |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2238 (y-or-n-p (format "Make appointment non-marking? ")))) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2239 (save-window-excursion |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2240 (unless diary-file |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2241 (setq diary-file |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2242 (read-file-name "Add appointment to this diary file: "))) |
93790
adddea858c0d
Update for diary-lib name changes.
Glenn Morris <rgm@gnu.org>
parents:
93376
diff
changeset
|
2243 ;; Note: diary-make-entry will add a trailing blank char.... :( |
adddea858c0d
Update for diary-lib name changes.
Glenn Morris <rgm@gnu.org>
parents:
93376
diff
changeset
|
2244 (funcall (if (fboundp 'diary-make-entry) |
adddea858c0d
Update for diary-lib name changes.
Glenn Morris <rgm@gnu.org>
parents:
93376
diff
changeset
|
2245 'diary-make-entry |
adddea858c0d
Update for diary-lib name changes.
Glenn Morris <rgm@gnu.org>
parents:
93376
diff
changeset
|
2246 'make-diary-entry) |
adddea858c0d
Update for diary-lib name changes.
Glenn Morris <rgm@gnu.org>
parents:
93376
diff
changeset
|
2247 string non-marking diary-file))) |
106617
78f92ffeb7ab
Fixed timezone handling problem in icalendar.el.
Ulf Jasper <ulf.jasper@web.de>
parents:
104396
diff
changeset
|
2248 ;; Würgaround to remove the trailing blank char |
107252
2da9673fc448
Fix more save-excursion warnings.
Chong Yidong <cyd@stupidchicken.com>
parents:
107199
diff
changeset
|
2249 (with-current-buffer (find-file diary-file) |
106617
78f92ffeb7ab
Fixed timezone handling problem in icalendar.el.
Ulf Jasper <ulf.jasper@web.de>
parents:
104396
diff
changeset
|
2250 (goto-char (point-max)) |
78f92ffeb7ab
Fixed timezone handling problem in icalendar.el.
Ulf Jasper <ulf.jasper@web.de>
parents:
104396
diff
changeset
|
2251 (if (= (char-before) ? ) |
78f92ffeb7ab
Fixed timezone handling problem in icalendar.el.
Ulf Jasper <ulf.jasper@web.de>
parents:
104396
diff
changeset
|
2252 (delete-char -1))) |
76645
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
2253 ;; return diary-file in case it has been changed interactively |
fe0cd0081a51
Ulf Jasper <ulf.jasper at web.de>:
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
2254 diary-file) |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2255 |
88008
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2256 ;; ====================================================================== |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2257 ;; Examples |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2258 ;; ====================================================================== |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2259 (defun icalendar-import-format-sample (event) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2260 "Example function for formatting an icalendar EVENT." |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2261 (format (concat "SUMMARY=`%s' DESCRIPTION=`%s' LOCATION=`%s' ORGANIZER=`%s' " |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2262 "STATUS=`%s' URL=`%s' CLASS=`%s'") |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2263 (or (icalendar--get-event-property event 'SUMMARY) "") |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2264 (or (icalendar--get-event-property event 'DESCRIPTION) "") |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2265 (or (icalendar--get-event-property event 'LOCATION) "") |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2266 (or (icalendar--get-event-property event 'ORGANIZER) "") |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2267 (or (icalendar--get-event-property event 'STATUS) "") |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2268 (or (icalendar--get-event-property event 'URL) "") |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2269 (or (icalendar--get-event-property event 'CLASS) ""))) |
c8869a3e1938
Ulf Jasper <ulf.jasper at web.de>
Glenn Morris <rgm@gnu.org>
parents:
87780
diff
changeset
|
2270 |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2271 (provide 'icalendar) |
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2272 |
57345
f024640dc5e4
Changes from arch/CVS synchronization
Miles Bader <miles@gnu.org>
parents:
57337
diff
changeset
|
2273 ;; arch-tag: 74fdbe8e-0451-4e38-bb61-4416e822f4fc |
57337
a1b1850b5a47
New file, from Ulf Jasper <ulf.jasper@web.de>.
Glenn Morris <rgm@gnu.org>
parents:
diff
changeset
|
2274 ;;; icalendar.el ends here |