ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/calendar/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/calendar/icalendar.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@33 Version number of icalendar.el.
(defconst icalendar-version "0.19" (#$ . 410))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\306\301&\210\310\316\317\320\314\321\306\301&\210\310\322\323\324\314\321\306\301&\210\310\325\326\327\314\321\306\301&\210\310\330\331\332\314\321\306\301&\210\310\333\334\335\314\321\306\301&\210\310\336\337\340\314\321\341\342\306\301& \210\310\343\344\345\314\321\306\301&\210\310\346\347\350\314\321\306\301&\210\310\351\352\353\314\354\306\301&\210\310\355\356\357\314\360\306\301&\210\310\361\362\363\314\321\306\301&\210\310\364\365\366\341\367\314\354\306\301& \210\310\370\302\371\341\367\314\360\306\301& \210\310\372\302\373\341\367\314\374\306\301& \207" [custom-declare-group icalendar nil "iCalendar support." :prefix "icalendar-" :group calendar custom-declare-variable icalendar-import-format "%s%d%l%o" "Format for importing events from iCalendar into Emacs diary.\nIt defines how iCalendar events are inserted into diary file.\nThis may either be a string or a function.\n\nIn case of a formatting STRING the following specifiers can be used:\n%c Class, see `icalendar-import-format-class'\n%d Description, see `icalendar-import-format-description'\n%l Location, see `icalendar-import-format-location'\n%o Organizer, see `icalendar-import-format-organizer'\n%s Summary, see `icalendar-import-format-summary'\n%t Status, see `icalendar-import-format-status'\n%u URL, see `icalendar-import-format-url'\n%U UID, see `icalendar-import-format-uid'\n\nA formatting FUNCTION will be called with a VEVENT as its only\nargument. It must return a string. See\n`icalendar-import-format-sample' for an example." :type (choice (string :tag "String") (function :tag "Function")) icalendar-import-format-summary "%s" "Format string defining how the summary element is formatted.\nThis applies only if the summary is not empty! `%s' is replaced\nby the summary." string icalendar-import-format-description "\n Desc: %s" "Format string defining how the description element is formatted.\nThis applies only if the description is not empty! `%s' is\nreplaced by the description." icalendar-import-format-location "\n Location: %s" "Format string defining how the location element is formatted.\nThis applies only if the location is not empty! `%s' is replaced\nby the location." icalendar-import-format-organizer "\n Organizer: %s" "Format string defining how the organizer element is formatted.\nThis applies only if the organizer is not empty! `%s' is\nreplaced by the organizer." icalendar-import-format-url "\n URL: %s" "Format string defining how the URL element is formatted.\nThis applies only if the URL is not empty! `%s' is replaced by\nthe URL." icalendar-import-format-uid "\n UID: %s" "Format string defining how the UID element is formatted.\nThis applies only if the UID is not empty! `%s' is replaced by\nthe UID." :version "24.3" icalendar-import-format-status "\n Status: %s" "Format string defining how the status element is formatted.\nThis applies only if the status is not empty! `%s' is replaced by\nthe status." icalendar-import-format-class "\n Class: %s" "Format string defining how the class element is formatted.\nThis applies only if the class is not empty! `%s' is replaced by\nthe class." icalendar-recurring-start-year 2005 "Start year for recurring events.\nSome calendar browsers only propagate recurring events for\nseveral years beyond the start time. Set this string to a year\njust before the start of your personal calendar." integer icalendar-export-hidden-diary-entries t "Determines whether hidden diary entries are exported.\nIf non-nil hidden diary entries (starting with `&') get exported,\nif nil they are ignored." boolean icalendar-uid-format "emacs%t%c" "Format of unique ID code (UID) for each iCalendar object.\nThe following specifiers are available:\n%c COUNTER, an integer value that is increased each time a uid is\n generated. This may be necessary for systems which do not\n provide time-resolution finer than a second.\n%h HASH, a hash value of the diary entry,\n%s DTSTART, the start date (excluding time) of the diary entry,\n%t TIMESTAMP, a unique creation timestamp,\n%u USERNAME, the variable `user-login-name'.\n\nFor example, a value of \"%s_%h@mydomain.com\" will generate a\nUID code for each entry composed of the time of the event, a hash\ncode for the event, and your personal domain name." icalendar-export-sexp-enumeration-days 14 "Number of days over which a sexp diary entry is enumerated.\nIn general sexp entries cannot be translated to icalendar format.\nThey are therefore enumerated, i.e. explicitly evaluated for a\ncertain number of days, and then exported. The enumeration starts\non the current day and continues for the number of days given here.\n\nSee `icalendar-export-sexp-enumerate-all' for a list of sexp\nentries which by default are NOT enumerated." "25.1" icalendar-export-sexp-enumerate-all "Determines whether ALL sexp diary entries are enumerated.\nIf non-nil all sexp diary entries are enumerated for\n`icalendar-export-sexp-enumeration-days' days instead of\ntranslating into an icalendar equivalent. This affects the\nfollowing sexp diary entries: `diary-anniversary',\n`diary-cyclic', `diary-date', `diary-float', `diary-block'. All\nother sexp entries are enumerated in any case." icalendar-export-alarms "Determine if and how alarms are included in exported diary events." (choice (const :tag "Do not include alarms in export" nil) (list :tag "Create alarms in exported diary entries" (integer :tag "Advance time (minutes)" :value 10) (set :tag "Alarm type" (list :tag "Audio" (const audio :tag "Audio")) (list :tag "Display" (const display :tag "Display")) (list :tag "Email" (const email) (repeat :tag "Attendees" (string :tag "Email"))))))] 10)
#@34 Enable icalendar debug messages.
(defvar icalendar-debug nil (#$ . 6242))
(defconst icalendar--weekday-array ["SU" "MO" "TU" "WE" "TH" "FR" "SA"])
(byte-code "\300\301!\210\300\302!\207" [require calendar diary-lib] 2)
#@53 Print message ARGS if `icalendar-debug' is non-nil.
(defalias 'icalendar--dmsg #[(&rest args) "\205 \302\303 \"\207" [icalendar-debug args apply message] 3 (#$ . 6467)])
#@265 Return a new buffer containing the unfolded contents of a buffer.
Folding is the iCalendar way of wrapping long lines. In the
created buffer all occurrences of CR LF BLANK are replaced by the
empty string. Argument FOLDED-ICAL-BUFFER is the folded input
buffer.
(defalias 'icalendar--get-unfolded-buffer #[(folded-ical-buffer) "\302\303!rq\210\304 \210\305 !\210\306 \210eb\210\307\310\311\312#\203& \313\314\311\211#\210\202 ))\207" [unfolded-buffer folded-ical-buffer get-buffer-create " *icalendar-work*" erase-buffer insert-buffer-substring icalendar--clean-up-line-endings re-search-forward "
?\n[ ]" nil t replace-match ""] 4 (#$ . 6646)])
#@224 Replace DOS- and MAC-like line endings with unix line endings.
All occurrences of (CR LF) and (LF CF) are replaced with LF in
the current buffer. This is necessary in buffers which contain a
mix of different line endings.
(defalias 'icalendar--clean-up-line-endings #[nil "\212eb\210\300\301\302\303#\205 \304\305\302\211#\210\202 )\207" [re-search-forward "
\n\\|\n
" nil t replace-match "\n"] 4 (#$ . 7306)])
#@164 Replace regular expression in string.
Pass arguments REGEXP REP STRING FIXEDCASE LITERAL to
`replace-regexp-in-string' (Emacs) or to `replace-in-string' (XEmacs).
(defalias 'icalendar--rris #[(regexp rep string &optional fixedcase literal) "\306\307!\203 \307 \n \f%\207\306\310!\205 \311 \312\216\310\n \f$*\207" [regexp rep string fixedcase literal save-match-data-internal fboundp replace-regexp-in-string replace-in-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 6 (#$ . 7727)])
(put 'icalendar--rris 'byte-optimizer 'byte-compile-inline-expand)
#@353 Recursively read the next iCalendar element in the current buffer.
INVALUE gives the current iCalendar element we are reading.
INPARAMS gives the current parameters.....
This function calls itself recursively for each nested calendar element
it finds. The current buffer should be an unfolded buffer as returned
from `icalendar--get-unfolded-buffer'.
(defalias 'icalendar--read-element #[(invalue inparams) "\306\211\211\211\211\211\211\211\211\307 \306 \203\334 \310\311\306\307#\203\334 \312\313\314!! \315u\210\306\211 \316\317!\203\214 \310\320\306\211#\210\312\313\314!!\310\321\306\307#\210\315u\210\313\322!\206Z \313\323! \nD\316\324!\203\204 \310\325\306\307#\210\313\322!\203x \313\322!\202| \313\323!\326\f\n\"\202_ \326
\f\"\2026 \316\327!\204\226 \330\331!\210\314u\210` !\306\210!`{)
E \332=\203\303 \326 \333\312 !
\"C\" \202 \334=\203\320 \306\211\202 \326 C\" \202 \"\203\355 \"# F\202\357 .\n\207" [continue value param-value param-name param params nil t re-search-forward "^\\([A-Za-z0-9-]+\\)[;:]" intern match-string 1 -1 looking-at ";" ";\\([A-Za-z0-9-]+\\)=" "\\(\\([^;,:\"]+\\)\\|\"\\([^\"]+\\)\"\\)[;:]" 2 3 "," "\\(\\([^;,:]+\\)\\|\"\\([^\"]+\\)\"\\)" append ":" error "Oops" BEGIN icalendar--read-element END name line children element start invalue inparams] 11 (#$ . 8340)])
#@71 For the given EVENT return the value of the first occurrence of PROP.
(defalias 'icalendar--get-event-property #[(event prop) "\3042+ AA@\305\211\203( \n@\211@ =\203! \306\304 AA@\"\210\nA\211\204 *\3050\207" [event pp props prop found nil throw] 4 (#$ . 9706)])
#@72 For the given EVENT return attributes of the first occurrence of PROP.
(defalias 'icalendar--get-event-property-attributes #[(event prop) "\3042* AA@\305\211\203' \n@\211@ =\203 \306\304 A@\"\210\nA\211\204 *\3050\207" [event pp props prop found nil throw] 4 (#$ . 9981)])
#@71 For the given EVENT return a list of all values of the property PROP.
(defalias 'icalendar--get-event-properties #[(event prop) "AA@\305\211\211\203) @\211@\f=\203\" \306\307\nAA@\310\" \" A\211\204
+\207" [event result pp props prop nil append split-string ","] 5 (#$ . 10267)])
#@147 Return all children of the given NODE which have a name NAME.
For instance the VCALENDAR node can have VEVENT children as well as VTODO
children.
(defalias 'icalendar--get-children #[(node name) "\305AAA@@ =\203 \2030 \306\305\307\310 \"\"\211 \203/ \n\203- \311\n\f\"\202/ \f)\n*\207" [node children result name subresult nil delq mapcar #[(n) "\302 \"\207" [n name icalendar--get-children] 3] append] 6 (#$ . 10564)])
#@64 Return the list of all existing events in the given ICALENDAR.
(defalias 'icalendar--all-events #[(icalendar) "\302\303\304 \237\"\210)\207" [result icalendar nil mapc #[(elt) "\302\303\304\" \"\211\207" [elt result append icalendar--get-children VEVENT] 4]] 3 (#$ . 11001)])
#@29 Split VALUE-STRING at `;='.
(defalias 'icalendar--split-value #[(value-string) "\304\211\211 \203; r\305\306!q\210\307\304!\210\310 \210 c\210eb\210\311\312\304\313#\203: \314\315\316!!\315\317!\320\n DC\"\202 )\n+\207" [param-value param-name result value-string nil get-buffer-create " *icalendar-work*" set-buffer-modified-p erase-buffer re-search-forward "\\([A-Za-z0-9-]+\\)=\\(\\([^;:]+\\)\\|\"\\([^\"]+\\)\"\\);?" t intern match-string 1 2 append] 4 (#$ . 11287)])
#@233 Return a cons of two strings representing a timezone start.
ALIST is an alist entry from a VTIMEZONE, like STANDARD.
DST-P is non-nil if this is for daylight savings time.
The strings are suitable for assembling into a TZ variable.
(defalias 'icalendar--convert-tz-offset #[(alist dst-p) "\306\236AA@\307\236AA@\310\236AA@\311\236AA@ \n\232 \205\345 \f\205\345 \2040
\205\345 \312 ! '\313'\236A@ (\314'\236A@ )\315'\236A@ *
\204] (\316\230\205\344 )\205\344 +\203f \317\202g \320 \321H\322=\203s \323\202t \324 \325\326O\327 \326\330O\260
\203\207 \325\202\216 \331*\332\333O! ,
\203\230 \334\202\251 ,\335=\203\244 *\202\251 *\321\332O\211 -\336\230\203\264 \337-
\203\273 \334)\340)\341-\341,\335=\203\315 \342\202\321 \343,!\344\f\345\346O\327\f\346\332O\327\f\332\333O\260\f*B,-\207" [alist offsetto offsetfrom rrule-value dtstart no-dst TZOFFSETTO TZOFFSETFROM RRULE DTSTART icalendar--split-value FREQ BYMONTH BYDAY "YEARLY" "DST" "STD" 0 45 "+" "-" 1 3 ":" 5 icalendar--get-weekday-number -2 nil "1" -1 "-1" "5" "M" "." "0" int-to-string "/" -6 -4 rrule freq bymonth byday dst-p day week] 16 (#$ . 11774)])
#@95 Turn a VTIMEZONE ALIST into a cons (ID . TZ-STRING).
Return nil if timezone cannot be parsed.
(defalias 'icalendar--parse-vtimezone #[(alist) "\306\307\310\"!\311\312\"@AA@\211\205 \313\n\314\"\311\315\"@AA@\211 \205* \313\f\316\" \205J
\205J \203G
@ @\317 A\317
A\260\202I
@B-\207" [alist tz-id daylight day standard std icalendar--convert-string-for-import icalendar--get-event-property TZID icalendar--get-children DAYLIGHT icalendar--convert-tz-offset t STANDARD nil ","] 8 (#$ . 12922)])
#@144 Convert all timezones in the ICALENDAR into an alist.
Each element of the alist is a cons (ID . TZ-STRING),
like `icalendar--parse-vtimezone'.
(defalias 'icalendar--convert-all-timezones #[(icalendar) "\304\305 @\306\"\304\211\203$ @\307\n!\211\203 \nB A\211\204 *)\207" [result icalendar zone --dolist-tail-- nil icalendar--get-children VTIMEZONE icalendar--parse-vtimezone] 4 (#$ . 13436)])
#@154 Return a timezone string for the time zone in PROP-LIST, or nil if none.
ZONE-MAP is a timezone alist as returned by `icalendar--convert-all-timezones'.
(defalias 'icalendar--find-time-zone #[(prop-list zone-map) "\303\304\"\211\205 \305 \n\"A)\207" [prop-list id zone-map plist-get TZID assoc] 4 (#$ . 13848)])
#@438 Return ISODATETIMESTRING in format like `decode-time'.
Converts from ISO-8601 to Emacs representation. If
ISODATETIMESTRING specifies UTC time (trailing letter Z) the
decoded time is given in the local time zone! If optional
parameter DAY-SHIFT is non-nil the result is shifted by DAY-SHIFT
days.
ZONE, if provided, is the timezone, in any format understood by `encode-time'.
FIXME: multiple comma-separated values should be allowed!
(defalias 'icalendar--decode-isodatetime #[(isodatetimestring &optional day-shift zone) "\306!\210\205I\307\310\311O!\307\311\312O!\307\312\313O!\310\211\211 )G\314V\2039 \307\315\316O!\307\316\317O!G\320V\203G \307\317\321O!G\321V\203Z \322\323\321H\"\203Z \324*+\203 \325
\f)E\211 , ,\326,8)\327 -\211 )\310U\203\200 \330\331!\202 )\310V\203)S-\332,\211 ,\211 ,@) ,\211 ,A@) , ,\326,8) )\f
S\333_\\ .
\326V\203\371 .\334
\311_\\\335\245Z.)\211 )\310W\203\327 \336)!S))\311\246\310U\205\360 )\337\246\310U?\206\360 )\340\246\310U)\203\371 .T..--\341_-\311\245-\337\245[-\340\245%\202 \336)T!-\342,\211 ,\211 ,@) ,\211 ,A@) , ,\326,8) )\f
S\333_\\ .
\326V\203\205.\334
\311_\\\335\245Z.)\211 )\310W\203c\336)!S))\311\246\310U\205|)\337\246\310U?\206|)\340\246\310U)\203\205.T..--\341_-\311\245-\337\245[-\340\245\343\211 ,\211 ,@) ,\211 ,A@) , ,\326,8) )\f
S\333_\\ .
\326V\203.\334
\311_\\\335\245Z.)\211 )\310W\203\342\336)!S))\311\246\310U\205\373)\337\246\310U?\206\373)\340\246\310U)\203.T..-&++\\!\211 /@/A@\326/8))\34415\345\346 \n \f
)*&!0\202G\210\347\350\"\210 \n \f
)\310\327\310\257 .\207" [isodatetimestring second minute hour day month icalendar--dmsg read 0 4 6 8 12 9 11 13 14 15 char-equal 90 t calendar-gregorian-from-absolute 2 nil user-error "There was no year zero" + 31 23 10 abs 100 400 365 - (12 31 -1) (error) decode-time encode-time message "Cannot decode \"%s\"" year zone day-shift date offset-years day-of-year mdy] 12 (#$ . 14170)])
#@391 Convert ISODURATIONSTRING into format provided by `decode-time'.
Converts from ISO-8601 to Emacs representation. If ISODURATIONSTRING
specifies UTC time (trailing letter Z) the decoded time is given in
the local time zone!
Optional argument DURATION-CORRECTION shortens result by one day.
FIXME: TZID-attributes are ignored....!
FIXME: multiple comma-separated values should be allowed!
(defalias 'icalendar--decode-isoduration #[(isodurationstring &optional duration-correction) "\205\225 \306 \307\216\310\311\"\210\312\211\211\211\211\211 \313\224\2035 \314\315\224\315\225O!\203\211 \fS\202\211 \316\224\203y \317\224\203J \314\320\224\320\225O!\321_\321\224\203X \314\322\224\322\225O!\323\224\203g \314\324\224\324\225O!\325\224\203\211 \314\326\224\326\225O!\202\211 \327\224\203\211 \314\330\224\330\225O!\321_
\f \n\257.\207" [isodurationstring save-match-data-internal years months days hours match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "^P[+-]?\\(\\(\\([0-9]+\\)D\\)\\|\\(\\(\\([0-9]+\\)D\\)?T\\(\\([0-9]+\\)H\\)?\\(\\([0-9]+\\)M\\)?\\(\\([0-9]+\\)S\\)?\\)\\|\\(\\([0-9]+\\)W\\)\\)$" 0 2 read 3 4 5 6 7 8 9 10 11 12 13 14 minutes seconds duration-correction] 6 (#$ . 16191)])
#@125 Add TIME1 to TIME2.
Both times must be given in decoded form. One of these times must be
valid (year > 1900 or something).
(defalias 'icalendar--add-decoded-times #[(time1 time2) "\302\303@ @\\A@ A@\\\3048\304 8\\\3058\305 8\\\3068\306 8\\\3078\307 8\\\310\211&!\207" [time1 time2 decode-time encode-time 2 3 4 5 nil] 10 (#$ . 17480)])
#@217 Convert the decoded DATETIME to American-style format.
Optional argument SEPARATOR gives the separator between month,
day, and year. If nil a blank character is used as separator.
American format: "month day year".
(defalias 'icalendar--datetime-to-american-date #[(datetime &optional separator) "\205 \302\303\3048 \206 \305\3068 \206 \305\3078&\207" [datetime separator format "%d%s%d%s%d" 4 " " 3 5] 8 (#$ . 17831)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias icalendar--datetime-to-noneuropean-date icalendar--datetime-to-american-date nil make-obsolete "icalendar 0.19"] 4)
#@217 Convert the decoded DATETIME to European format.
Optional argument SEPARATOR gives the separator between month,
day, and year. If nil a blank character is used as separator.
European format: (day month year).
FIXME
(defalias 'icalendar--datetime-to-european-date #[(datetime &optional separator) "\205 \302\303\3048 \206 \305\3068 \206 \305\3078&\207" [datetime separator format "%d%s%d%s%d" 3 " " 4 5] 8 (#$ . 18449)])
#@201 Convert the decoded DATETIME to ISO format.
Optional argument SEPARATOR gives the separator between month,
day, and year. If nil a blank character is used as separator.
ISO format: (year month day).
(defalias 'icalendar--datetime-to-iso-date #[(datetime &optional separator) "\205 \302\303\3048 \206 \305\3068 \206 \305\3078&\207" [datetime separator format "%d%s%d%s%d" 5 " " 4 3] 8 (#$ . 18885)])
#@254 Convert the decoded DATETIME to diary format.
Optional argument SEPARATOR gives the separator between month,
day, and year. If nil a blank character is used as separator.
Call icalendar--datetime-to-*-date according to the current
calendar date style.
(defalias 'icalendar--datetime-to-diary-date #[(datetime &optional separator) "\303\304\305\"! \n\"\207" [calendar-date-style datetime separator intern-soft format "icalendar--datetime-to-%s-date"] 4 (#$ . 19300)])
#@107 Extract the time part of a decoded DATETIME into 24-hour format.
Note that this silently ignores seconds.
(defalias 'icalendar--datetime-to-colontime #[(datetime) "\301\302\3038A@#\207" [datetime format "%02d:%02d" 2] 4 (#$ . 19776)])
#@50 Return the month number for the given MONTHNAME.
(defalias 'icalendar--get-month-number #[(monthname) "\3042 \305\227\306\307 \"\210*\3100\207" [monthname m num calendar-month-name-array found 1 mapc #[(month) "\227\211\n\230\204 \304\305O\n\230\203 \306\307 \"\210 T\211)\207" [month mm m num 0 3 throw found] 4] -1] 3 (#$ . 20019)])
#@42 Return the number for the ABBREVWEEKDAY.
(defalias 'icalendar--get-weekday-number #[(abbrevweekday) "\203 \3042 \305\227\306\307 \"*0\207\310\207" [abbrevweekday aw num icalendar--weekday-array found 0 mapc #[(day) "\227\211\n\230\203 \304\305 \"\210 T\211)\207" [day d aw num throw found] 4] -1] 3 (#$ . 20370)])
#@68 Return the list of numbers for the comma-separated ABBREVWEEKDAYS.
(defalias 'icalendar--get-weekday-numbers #[(abbrevweekdays) "\205 \304\305\306\n\"\307\310\305\311\312\227\313\"\"\"*\207" [abbrevweekdays num icalendar--weekday-array weekday-alist -1 mapcar #[(day) "T \227B\207" [num day] 2] delq nil #[(abbrevday) "\302 \"A\207" [abbrevday weekday-alist assoc] 3] split-string ","] 7 (#$ . 20700)])
#@33 Return the abbreviated WEEKDAY.
(defalias 'icalendar--get-weekday-abbrev #[(weekday) "\3042 \305\227\306\307 \"\210*\3100\207" [weekday w num calendar-day-name-array found 0 mapc #[(day) "\227\211\n\230\204 \305\306O\n\230\203 \307\310 \fH\"\210\fT\211)\207" [day d w icalendar--weekday-array num 0 3 throw found] 5] nil] 3 (#$ . 21118)])
#@149 Convert DATE to iso-style date.
DATE must be a list of the form (month day year).
If DAY-SHIFT is non-nil, the result is shifted by DAY-SHIFT days.
(defalias 'icalendar--date-to-isodate #[(date &optional day-shift) "\306\211\3078)\310\211\311U\203 \312\313!\202S\n\311V\203\214 \nS\314\211\211@)\211A@) \3078)\f S\315_\\ \307V\203y
\316 \317_\\\320\245Z\n\211\311W\203\\ \321\n!S\n\317\246\311U\205r \n\322\246\311U?\206r \n\323\246\311U)\203y
T
- \324_ \317\245 \322\245[ \323\245%\202S\321\nT!\325\211\211@)\211A@) \3078)\f S\315_\\ \307V\203\351
\316 \317_\\\320\245Z\n\211\311W\203\314 \321\n!S\n\317\246\311U\205\342 \n\322\246\311U?\206\342 \n\323\246\311U)\203\351
T
- \324_ \317\245 \322\245[ \323\245\326\211\211@)\211A@) \3078)\f S\315_\\ \307V\203O
\316 \317_\\\320\245Z\n\211\311W\2032\321\n!S\n\317\246\311U\205H\n\322\246\311U?\206H\n\323\246\311U)\203O
T
-&+\206Z\311\\! \327\330\3078@A@$)\207" [date offset-years year month day day-of-year calendar-gregorian-from-absolute 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) format "%04d%02d%02d" day-shift mdy] 12 (#$ . 21474)])
#@299 Convert diary-style DATESTRING to iso-style date.
If DAY-SHIFT is non-nil, the result is shifted by DAY-SHIFT days
-- DAY-SHIFT must be either nil or an integer. This function
tries to figure the date style from DATESTRING itself. If that
is not possible it uses the current calendar date style.
(defalias 'icalendar--datestring-to-isodate #[(datestring &optional day-shift) "\306\307\211\310 \311\216\312\313\f\"\2030 \314\f\315\224\315\225O!\314\f\316\224\316\225O!\314\f\317\224\317\225O!\202\320 \312\320\f\"\203d \314\f\315\224\315\225O!\314\f\316\224\316\225O!\314\f\317\224\317\225O!
\321=\203\320 (\n()\202\320 \312\322\f\"\203\211 \314\f\315\224\315\225O!\323\f\316\224\316\225O!\314\f\317\224\317\225O!\202\320 \312\324\f\"\203\256 \314\f\315\224\315\225O!\323\f\316\224\316\225O!\314\f\317\224\317\225O!\202\320 \312\325\f\"\203\320 \314\f\316\224\316\225O!\323\f\315\224\315\225O!\314\f\317\224\317\225O!*\n\326V\205\217\327 \nE\211 ) )\316)8)\307 *\211\326U\203\366 \330\331!\202d\326V\203}S*\332)\211 )\211 )@))\211 )A@)) )\316)8)\n S\333_\\ + \316V\203e+\334 \335_\\\336\245Z+\211\326W\203F\337!S\335\246\326U\205\\\340\246\326U?\206\\\341\246\326U)\203e+T++-*\342_*\335\245*\340\245[*\341\245%\202d\337T!*\343)\211 )\211 )@))\211 )A@)) )\316)8)\n S\333_\\ + \316V\203\350+\334 \335_\\\336\245Z+\211\326W\203\311\337!S\335\246\326U\205\337\340\246\326U?\206\337\341\246\326U)\203\350+T++-*\342_*\335\245*\340\245[*\341\245\344\211 )\211 )@))\211 )A@)) )\316)8)\n S\333_\\ + \316V\203_+\334 \335_\\\336\245Z+\211\326W\203@\337!S\335\246\326U\205V\340\246\326U?\206V\341\246\326U)\203_+T++-&+,\206k\326\\! -\345\346\347\316-8-@-A@$!\210\346\347\316-8-@-A@$)+\207" [year month day save-match-data-internal datestring calendar-date-style -1 nil match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "\\s-*\\([0-9]\\{4\\}\\)[ /]\\s-*0?\\([1-9][0-9]?\\)[ /]\\s-*0?\\([1-9][0-9]?\\)" read 1 2 3 "\\s-*0?\\([1-9][0-9]?\\)[ /]\\s-*0?\\([1-9][0-9]?\\),?[ /]\\s-*\\([0-9]\\{4\\}\\)" american "\\s-*\\([0-9]\\{4\\}\\)[ /]\\s-*\\([A-Za-z][^ ]+\\)[ /]\\s-*0?\\([123]?[0-9]\\)" icalendar--get-month-number "\\s-*0?\\([123]?[0-9]\\)[ /]\\s-*\\([A-Za-z][^ ]+\\)[ /]\\s-*\\([0-9]\\{4\\}\\)" "\\s-*\\([A-Za-z][^ ]+\\)[ /]\\s-*0?\\([123]?[0-9]\\),?[ /]\\s-*\\([0-9]\\{4\\}\\)" 0 calendar-gregorian-from-absolute user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) icalendar--dmsg format "%04d%02d%02d" x date offset-years day-of-year day-shift mdy] 12 (#$ . 22686)])
#@286 Convert a time like 9:30pm to an iso-conform string like T213000.
In this example the TIMESTRING would be "9:30" and the
AMPMSTRING would be "pm". The minutes may be missing as long
as the colon is missing as well, i.e. "9" is allowed as
TIMESTRING and has the same result as "9:00".
(defalias 'icalendar--diarytime-to-isotime #[(timestring ampmstring) "\205a \306 \307\216\310\311\"*\211@\nA\203 \nA@\202) G\312V\203( \313\202) \314 \315 \fP! \203F \316\230\203F
\317W\203F
\317\\\203\\ \320\230\203\\
\317Y\203\\
\317Z\321\322
\",\207" [timestring save-match-data-internal parts h m starttimenum match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] split-string ":" 2 "" "00" read "pm" 1200 "am" format "T%04d00" ampmstring] 4 (#$ . 25366)])
#@55 Escape comma and other critical characters in STRING.
(defalias 'icalendar--convert-string-for-export #[(string) "\306\307\310\211 \311\312!\203 \312\f \n %\202, \311\313!\205, \314 \315\216\313\f $*-\207" [string literal fixedcase rep regexp save-match-data-internal "," "\\\\," nil fboundp replace-regexp-in-string replace-in-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 6 (#$ . 26175)])
#@60 Remove escape chars for comma, semicolon etc. from STRING.
(defalias 'icalendar--convert-string-for-import #[(string) "\306\307\310\311\312\313\314\315\316\211 \317\320!\203 \320\f \n %\2022 \317\321!\2052 \322 \323\216\321\f $*-\316\211 \317\320!\203J \320\f \n %\202\\ \317\321!\205\\ \322 \323\216\321\f $*-\316\211 \317\320!\203t \320\f \n %\202\206 \317\321!\205\206 \322 \323\216\321\f $*-\316\211 \317\320!\203\236 \320\f \n %\202\260 \317\321!\205\260 \322 \323\216\321\f $*-\207" [string literal fixedcase rep regexp save-match-data-internal "\\\\n" "\n " "\\\\\"" "\"" "\\\\;" ";" "\\\\," "," nil fboundp replace-regexp-in-string replace-in-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 12 (#$ . 26634)])
#@171 Export diary file to iCalendar format.
All diary entries in the file DIARY-FILENAME are converted to iCalendar
format. The result is appended to the file ICAL-FILENAME.
(defalias 'icalendar-export-file #[(diary-filename ical-filename) "r\302!q\210\303ed #)\207" [diary-filename ical-filename find-file icalendar-export-region] 4 (#$ . 27442) "FExport diary data from file: \nFinto iCalendar file: "])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias icalendar-convert-diary-to-ical icalendar-export-file nil make-obsolete "22.1"] 4)
#@44 Auxiliary counter for creating unique ids.
(defvar icalendar--uid-count 0 (#$ . 28000))
#@211 Construct a unique iCalendar UID for a diary entry.
ENTRY-FULL is the full diary entry string. CONTENTS is the
current iCalendar object, as a string. Increase
`icalendar--uid-count'. Returns the UID string.
(defalias 'icalendar--create-uid #[(entry-full contents) "\306\307\301\n#\203 \306\307\301\n#\202o \310\311\312\313 \" \314\211% T\310\315\312\316\317 @\317 A@\317 AA@$ \314\211%\310\320\312\313\321\322\n!!\" \314\211%\310\323\f\206M \324 \314\211%\325\326
\"\203b
\327\224\327\225O\202c \330 \310\331 \314\211%) )\207" [icalendar-uid-format uid entry-full icalendar--uid-count user-login-name contents get-text-property 0 replace-regexp-in-string "%c" format "%d" t "%t" "%d%d%d" current-time "%h" abs sxhash "%u" "UNKNOWN_USER" string-match "^DTSTART[^:]*:\\([0-9]*\\)" 1 "DTSTART" "%s" dtstart] 7 (#$ . 28095)])
#@389 Export region in diary file to iCalendar format.
All diary entries in the region from MIN to MAX in the current buffer are
converted to iCalendar format. The result is appended to the file
ICAL-FILENAME.
This function attempts to return t if something goes wrong. In this
case an error string which describes all the errors and problems is
written into the buffer `*icalendar-errors*'.
(defalias 'icalendar-export-region #[(min max ical-filename) "\306\307\306\211\211\211\310\211\211\211\311\312!\313Q\310\211 & ' ( ) * + , -r\314\315!q\210\316 \210)\212.b\210\317/\203@ \320\202A \3210\322#\203\240 \323\324!+\325\224\203Z \323\325!*\202] \306*+*P)\3261\205 \327 +\"\330)!\331\332 :\203 C\202\200 \"0\202\234 1\322r\314\315!q\210\333\334\335e`\"1+$c*\210\2026 r\336 2\3373!q\210db\210\340c\210\341c\210\342c\210-c\210\343c\210\344 \210\f\204\307 \345 \210+\f.
\207" [diary-nonmarking-symbol cns-cons-or-list other-elements nonmarker found-error alarm "" 0 nil "^" regexp-quote "?" get-buffer-create "*icalendar-errors*" erase-buffer re-search-forward "^\\([^ \n#].+\\)\\(\\(\n[ ].*\\)*\\)" "^\\([^ \n&#].+\\)\\(\\(\n[ ].*\\)*\\)" t match-string 1 2 (error) icalendar--convert-to-ical icalendar--parse-summary-and-rest mapc #[(contents-n-summary) "@\306AQ\307\310\n\"A\307\311\n\"A\307\312\n\"A\307\313\n\"A\307\314\n\"A\307\305\n\"A\307\304\n\"A\307\303\n\"A \f \n \211 \203F \315Q \203Q \316 Q\n\203\\ \317\nQ \203g \320 Q\f\203r \321\fQ\f\203{ \322\fQ\323 \206\205 \324 \"P\325A!. \326\260\211\207" [contents-n-summary contents other-elements uid url sum "\nSUMMARY:" assoc cla des loc org sta "\nCLASS:" "\nDESCRIPTION:" "\nLOCATION:" "\nORGANIZER:" "\nSTATUS:" "\nURL:" "\nBEGIN:VEVENT\nUID:" icalendar--create-uid icalendar--create-ical-alarm "\nEND:VEVENT" entry-full header alarm result] 11] format-message "Error in line %d -- %s: `%s'\n" count-lines utf-8 find-file "BEGIN:VCALENDAR" "\nPRODID:-//Emacs//NONSGML icalendar.el//EN" "\nVERSION:2.0" "\nEND:VCALENDAR\n" save-buffer bury-buffer contents contents-n-summary header entry-full entry-rest entry-main start result min icalendar-export-hidden-diary-entries max error-val coding-system-for-write ical-filename] 13 (#$ . 28941) "r\nFExport diary data into iCalendar file: "])
#@171 Convert a diary entry to iCalendar format.
NONMARKER is a regular expression matching the start of non-marking
entries. ENTRY-MAIN is the first line of the diary entry.
(defalias 'icalendar--convert-to-ical #[(nonmarker entry-main) "\204' \303 \n\"\206F \304 \n\"\206F \305 \n\"\206F \306 \n\"\206F \307 \n\"\206F \310 \n\"\206F \311 \n\"\206F \312 \n\"\206F \313 \n\"\206F \314\315!\207" [icalendar-export-sexp-enumerate-all nonmarker entry-main icalendar--convert-anniversary-to-ical icalendar--convert-cyclic-to-ical icalendar--convert-date-to-ical icalendar--convert-float-to-ical icalendar--convert-block-to-ical icalendar--convert-sexp-to-ical icalendar--convert-weekly-to-ical icalendar--convert-yearly-to-ical icalendar--convert-ordinary-to-ical error "Could not parse entry"] 3 (#$ . 31272)])
#@85 Parse SUMMARY-AND-REST from a diary to fill iCalendar properties.
Returns an alist.
(defalias 'icalendar--parse-summary-and-rest #[(summary-and-rest) "\306 \307\216\310 !?\205+\311 \312\313 \"\206 \314 \312\315 \"\206! \314 \312\316 \"\206* \314 +\312\317 \"\2064 \314 ,\312\320 \"\206> \314 -\312\321 \"\206H \314 .\312\322 \"\206R \314 /\312\323 \"\206\\ \314 0\324\f
+,.-/0\257\325\" 1\326 2\311\211 3 4\311\211 5 6\311\211 7 8\311\211 9 :1G\326 ; <;<W\203\230\f\326Y\203\273 ;18\fU\203\273 2T\2112\327_3\202\217
\326Y\203\330 ;18
U\203\330 2T\2112\327_4\202\217+\326Y\203\367 ;18+U\203\367 2T\2112\327_5\202\217,\326Y\203;18,U\2032T\2112\327_6\202\217.\326Y\2035;18.U\20352T\2112\327_7\202\217-\326Y\203T;18-U\203T2T\2112\327_8\202\217/\326Y\203s;18/U\203s2T\2112\327_9\202\2170\326Y\203\217;180U\203\2172T\2112\327_:;T\211;\202\230 *\330\331\320\332=\333QD\313\332>\333QD\315\332?\333QD\316\332@\333QD\317\332A\333QD\321\332B\333QD\322\332C\333QD\323\332D\333QD\257\"\210\334\320\335 \311\336 E F G H I\337\340!\203\374\340IHGFE%\202\337\341!\205\306 \342\216\341GIHE$*-\343Q\312 J\"\205)\311\211\211\211\211\211\211\211 * ) K ( ' & % $8\203L8\224\203LJ8\2248\225OK3\203b3\224\203bJ3\2243\225O$4\203x4\224\203xJ4\2244\225O%5\203\2165\224\203\216J5\2245\225O&6\203\2446\224\203\244J6\2246\225O'7\203\2727\224\203\272J7\2247\225O(9\203\3209\224\203\320J9\2249\225O):\203\346:\224\203\346J:\224:\225O*$\205\357\344$B%\205\370\345%B&\205\346&B'\205\n\347'B(\205\350(B)\205 \351)B*\205%\352*B\257..*\207" [save-match-data-internal icalendar-import-format case-fold-search s p-cla p-des match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] functionp nil string-match "%c" -1 "%d" "%l" "%o" "%s" "%t" "%u" "%U" sort < 0 2 mapc #[(ij) "@A@ \306\211 \f\307\310!\203 \310\f
\f \n%\2023 \307\311!\2053 \312
\313\216\311\f\f
\n$*-\211\207" [ij s literal fixedcase string rep t fboundp replace-regexp-in-string replace-in-string match-data #1=#[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] regexp save-match-data-internal] 6] "\\(" "\\)??" "\\`" "\\(.*?\\)" t fboundp replace-regexp-in-string replace-in-string #1# "\\'" cla des loc org sta url uid p-loc p-org p-sum p-sta p-url p-uid p-list ct pos-cla pos-des pos-loc pos-org pos-sta pos-sum pos-url pos-uid i --dotimes-limit-- icalendar-import-format-summary icalendar-import-format-class icalendar-import-format-description icalendar-import-format-location icalendar-import-format-organizer icalendar-import-format-status icalendar-import-format-url icalendar-import-format-uid literal fixedcase string rep regexp summary-and-rest sum] 14 (#$ . 32082)])
#@45 Return VALARM blocks for the given SUMMARY.
(defalias 'icalendar--create-ical-alarm #[(summary) "\205 @A@\304\305 \n\306#+\207" [icalendar-export-alarms advance-time alarm-specs fun #[(spec) "\303 \n#\207" [advance-time spec summary icalendar--do-create-ical-alarm] 4] mapconcat ""] 4 (#$ . 34974)])
#@343 Return a VALARM block.
Argument ADVANCE-TIME is a number giving the time when the alarm
fires (minutes before the respective event). Argument ALARM-SPEC
is a list which must be one of (audio), (display) or
(email (ADDRESS1 ...)), see `icalendar-export-alarms'. Argument
SUMMARY is a string which contains a short description for the
alarm.
(defalias 'icalendar--do-create-ical-alarm #[(advance-time alarm-spec summary) "@\306\307\310 \311\"A\"\306\312 \" \313>\203 \306\314
\"\202 \315 \316=\203. \306\317
\"\202/ \315 \316=\203A \320\321A@\315#\202B \315 \322\n\f\323\260.\207" [alarm-spec action act advance-time tri summary format "\nACTION:%s" assoc ((audio . "AUDIO") (display . "DISPLAY") (email . "EMAIL")) "\nTRIGGER:-PT%dM" (display email) "\nDESCRIPTION:%s" "" email "\nSUMMARY:%s" mapconcat #[(i) "\301\302\"\207" [i format "\nATTENDEE:MAILTO:%s"] 3] "\nBEGIN:VALARM" "\nEND:VALARM" des sum att] 7 (#$ . 35289)])
#@180 Convert "ordinary" diary entry to iCalendar format.
NONMARKER is a regular expression matching the start of non-marking
entries. ENTRY-MAIN is the first line of the diary entry.
(defalias 'icalendar--convert-ordinary-to-ical #[(nonmarker entry-main) "\306\307\310\311\312\313\314\260 \"\205 \315\224\315\225O\316\n!\316\n\315\" \317 \320\321\224\205- \321\224\321\225O\322\224\2058 \322\224\322\225O\" +\320\323\224\205G \323\224\323\225O\324\224\205R \324\224\324\225O\" ,\325 \326\224\326\225O! -\327\330 \"\210 \204l \331\332!\210+\203u \202v \f+\203\340 ,\204\340 \333\334\335+\317\211 . / 0 1 2\336\337!\203\247 \337210/.%\202\276 \336\340!\205\276 \341 3\342\216\340021.$*-!\211 4\343W\203\324 \344\345\3464\\\",\202\337 \344\3454\343Z\",\f)\347+\203\352 \350\202\353 \351 +\206\362 \335\352,\203\374 \350\202\375 \351
,\206\335\260-.B\207" [nonmarker entry-main datetime startisostring endisostring endisostring1 string-match "\\([^ /]+[ /]+[^ /]+[ /]+[^ ]+\\)\\s-*" "\\(\\([0-9][0-9]?\\(:[0-9][0-9]\\)?\\)\\([ap]m\\)?" "\\(" "-\\([0-9][0-9]?\\(:[0-9][0-9]\\)?\\)\\([ap]m\\)?\\)?" "\\)?" "\\s-*\\(.*?\\) ?$" 1 icalendar--datestring-to-isodate nil icalendar--diarytime-to-isotime 3 5 7 9 icalendar--convert-string-for-export 10 icalendar--dmsg "ordinary %s" error "Could not parse date" read "^T0?" "" fboundp replace-regexp-in-string replace-in-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 230000 format "T%06d" 10000 "\nDTSTART;" "VALUE=DATE-TIME:" "VALUE=DATE:" "\nDTEND;" starttimestring endtimestring summary literal fixedcase string rep regexp save-match-data-internal time] 9 (#$ . 36243)])
#@67 Find the first ABBREVWEEKDAY in a given YEAR.
Returns day number.
(defalias 'icalendar-first-weekday-of-year #[(abbrevweekday year) "\304\305\211E!\306\n! ZT\211\307X\203 \310\\\202% \310V\203% \310Z *\207" [year day-of-week-jan01 abbrevweekday result calendar-day-of-week 1 icalendar--get-weekday-number 0 7] 5 (#$ . 37946)])
#@176 Convert weekly diary entry to iCalendar format.
NONMARKER is a regular expression matching the start of non-marking
entries. ENTRY-MAIN is the first line of the diary entry.
(defalias 'icalendar--convert-weekly-to-ical #[(nonmarker entry-main) "\306\307\310\311\312\313\314\315\316\260 \"\205\373 \317 \320\224\320\225O!\205\373 \317 \320\224\320\225O!\321\322\224\2051 \322\224\322\225O\323\224\205< \323\224\323\225O\"\321\324\224\205J \324\224\324\225O\325\224\205U \325\224\325\225O\" \326 \327\224\327\225O! \330\331 \"\210 \203\266 \f\204\266 \332\333\334 \335\211 . / 0 1 2\336\337!\203\222 \337210/.%\202\251 \336\340!\205\251 \341 3\342\216\340021.$*-! 4\343\344\3454\\\")\346 \203\277 \347\202\300 \350\343\3515\320\352\n5\"$ \206\320 \334\353\f\203\331 \347\202\332 \350\343\3515\320\352\n5\"\f\203\354 \354\202\355 \320\\$\f\206\364 \334\355\n\260\n
,B\207" [nonmarker entry-main day starttimestring endtimestring summary string-match "\\([a-z]+\\)\\s-+" "\\(\\([0-9][0-9]?:[0-9][0-9]\\)" "\\([ap]m\\)?" "\\(-" "\\([0-9][0-9]?:[0-9][0-9]\\)" "\\([ap]m\\)?\\)?" "\\)?" "\\s-*\\(.*?\\) ?$" icalendar--get-weekday-abbrev 1 icalendar--diarytime-to-isotime 3 4 6 7 icalendar--convert-string-for-export 8 icalendar--dmsg "weekly %s" read "^T0?" "" nil fboundp replace-regexp-in-string replace-in-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] format "T%06d" 10000 "\nDTSTART;" "VALUE=DATE-TIME:" "VALUE=DATE:" "%04d%02d%02d" icalendar-first-weekday-of-year "\nDTEND;" 0 "\nRRULE:FREQ=WEEKLY;INTERVAL=1;BYDAY=" literal fixedcase string rep regexp save-match-data-internal time icalendar-recurring-start-year] 13 (#$ . 38289)])
#@176 Convert yearly diary entry to iCalendar format.
NONMARKER is a regular expression matching the start of non-marking
entries. ENTRY-MAIN is the first line of the diary entry.
(defalias 'icalendar--convert-yearly-to-ical #[(nonmarker entry-main) "\306 \307=\203\f \310\202
\311\312\313\314\315\316\317\260\n\"\205( \307=\203$ \320\202% \321 \307=\2030 \321\2021 \320 \322\n \224 \225O! \323\n\f\224\f\225O! 3\324\325\224\205Q \n\325\224\325\225O\326\224\205\\ \n\326\224\326\225O\" 4\324\327\224\205k \n\327\224\327\225O\330\224\205v \n\330\224\330\225O\" 5\331\n\332\224\332\225O! 6\333\334\n\"\2104\203\335 5\204\335 \322\335\3364\337\211 7 8 9 : ;\340\341!\203\270 \341;:987%\202\317 \340\342!\205\317 \343 <\344\216\3429;:7$*-! =\345\346\347=\\\"5)\3504\203\347 \351\202\350 \352\345\3533
#4\206\364 \336\3545\203\376 \351\202\377 \352\3553
\356E5\203\357\202\320\"5\206\336\360\345\3613\"\362\345\361
\"\260\f6.B\207" [nonmarker calendar-date-style entry-main daypos monpos day string-match european "\\([0-9]+[0-9]?\\)\\s-+\\([a-z]+\\)\\s-+" "\\([a-z]+\\)\\s-+\\([0-9]+[0-9]?\\)\\s-+" "\\*?\\s-*" "\\(\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?" "\\(" "-\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?\\)?" "\\)?" "\\s-*\\([^0-9]+.*?\\) ?$" 1 2 read icalendar--get-month-number icalendar--diarytime-to-isotime 4 5 7 8 icalendar--convert-string-for-export 9 icalendar--dmsg "yearly %s" "^T0?" "" nil fboundp replace-regexp-in-string replace-in-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] format "T%06d" 10000 "\nDTSTART;" "VALUE=DATE-TIME:" "VALUE=DATE:" "1900%02d%02d" "\nDTEND;" icalendar--date-to-isodate 1900 0 "\nRRULE:FREQ=YEARLY;INTERVAL=1;BYMONTH=" "%d" ";BYMONTHDAY=" month starttimestring endtimestring summary literal fixedcase string rep regexp save-match-data-internal time] 14 (#$ . 40003)])
#@434 Convert sexp diary entry to iCalendar format.
Enumerate the evaluated sexp entry for the next
`icalendar-export-sexp-enumeration-days' days. NONMARKER is a
regular expression matching the start of non-marking entries.
ENTRY-MAIN is the first line of the diary entry.
Optional argument START determines the first day of the
enumeration, given as a time value, in same format as returned by
`current-time' -- used for test purposes.
(defalias 'icalendar--convert-sexp-to-ical #[(nonmarker entry-main &optional start) "\306\307P \"\203 \310\311 \"\210\312\313 \314\224\314\225O \315\224\315\225OQ\"\207\306\316P \"\203Q \310\317 \"\210 \314\224\314\225O \315\224\315\225O\n\206@ \320 \321\322\323\324\325\326S\"\"\"+\207\322\207" [nonmarker entry-main start now p2 p1 string-match "%%(and \\(([^)]+)\\))\\(\\s-*.*?\\) ?$" icalendar--dmsg "diary-sexp from icalendar.el %s" icalendar--convert-to-ical "%%" 1 2 "%%\\(([^)]+)\\)\\s-*\\(.*\\)" "diary-sexp %s" current-time delete nil mapcar #[(offset) "\306\307\310 \311_!\"!\312\n8\313\n8 \314\n8 \315\f
E#\211 ;\203- \202: :\2039 A\202: \316\211 \204D \316\202b ;\203] \317 \320\321\322
\f %\")\202b \323\324\".\207" [now offset day d m y decode-time time-add seconds-to-time 86400 3 4 5 diary-sexp-entry nil iso icalendar--convert-ordinary-to-ical format "%4d/%02d/%02d %s" error "Unsupported Sexp-entry: %s" p1 p2 se see calendar-date-style nonmarker entry-main] 9] number-sequence 0 icalendar-export-sexp-enumeration-days] 7 (#$ . 41899)])
#@175 Convert block diary entry to iCalendar format.
NONMARKER is a regular expression matching the start of non-marking
entries. ENTRY-MAIN is the first line of the diary entry.
(defalias 'icalendar--convert-block-to-ical #[(nonmarker entry-main) "\306\307\310\311\312\313\314\315\260 \"\205\346 \316\224\316\225O \317\224\317\225O\320\n! \320 ! \320 \316\" +\321\322\224\2058 \322\224\322\225O\323\224\205C \323\224\323\225O\" ,\321\324\224\205R \324\224\324\225O\325\224\205] \325\224\325\225O\" -\326 \327\224\327\225O! .\330\331 \"\210,\203\304 -\204\304 \332\333\334,\335\211 / 0 1 2 3\336\337!\203\237 \3373210/%\202\266 \336\340!\205\266 \341 4\342\216\340132/$*-! 5\343\344\3455\\\"-),\203\333 \346\f,\347\f-\350
\260.B\202\344 \351\f\352+R.B.\207" [nonmarker entry-main startstring endstring startisostring endisostring string-match "%%(diary-block \\([^ /]+[ /]+[^ /]+[ /]+[^ ]+\\)" " +\\([^ /]+[ /]+[^ /]+[ /]+[^ ]+\\))\\s-*" "\\(\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?" "\\(" "-\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?\\)?" "\\)?" "\\s-*\\(.*?\\) ?$" 1 2 icalendar--datestring-to-isodate icalendar--diarytime-to-isotime 4 5 7 8 icalendar--convert-string-for-export 9 icalendar--dmsg "diary-block %s" read "^T0?" "" nil fboundp replace-regexp-in-string replace-in-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] format "T%06d" 10000 "\nDTSTART;VALUE=DATE-TIME:" "\nDTEND;VALUE=DATE-TIME:" "\nRRULE:FREQ=DAILY;INTERVAL=1;UNTIL=" "\nDTSTART;VALUE=DATE:" "\nDTEND;VALUE=DATE:" endisostring+1 starttimestring endtimestring summary literal fixedcase string rep regexp save-match-data-internal time] 9 (#$ . 43430)])
#@255 Convert float diary entry to iCalendar format -- partially unsupported!
FIXME! DAY from diary-float yet unimplemented.
NONMARKER is a regular expression matching the start of non-marking
entries. ENTRY-MAIN is the first line of the diary entry.
(defalias 'icalendar--convert-float-to-ical #[(nonmarker entry-main) "\306\307P \"\205\230 \310\311!r\nq\210\312\216\313\314 \"c\210eb\210\315p!\211A@ \316 8 \317 8 &\320 8 '\321\322\323`d{# ('\203I \324\325 \"\210\326\327!\210\330\331\332!\333 ) *\334\f
&#*?\205d \335\331\332!P\336\f\247\204o \f<\203s \337\202t \340\f<\205\200 \341\342\fA@\343#\f\247\205\210 \344\f!\345\344&!+
H\260\n(. B\207" [nonmarker entry-main #1=#:temp-buffer sexp month dayname string-match "%%\\((diary-float .+\\) ?$" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] match-string 1 read 2 3 4 replace-regexp-in-string "\\(^ +\\| +$\\)" "" icalendar--dmsg "diary-float %s" error "Don't know if or how to implement day in `diary-float'" "\nDTSTART;VALUE=DATE:" format-time-string "%Y%m%d" calendar-current-date diary-float "\nEXDATE;VALUE=DATE:" "\nRRULE:" "FREQ=YEARLY;BYMONTH=" "FREQ=MONTHLY" mapconcat #[(m) "\301!\207" [m number-to-string] 2] "," number-to-string ";BYDAY=" n day summary entry date icalendar--weekday-array] 12 (#$ . 45137)])
#@206 Convert `diary-date' diary entry to iCalendar format -- unsupported!
FIXME!
NONMARKER is a regular expression matching the start of non-marking
entries. ENTRY-MAIN is the first line of the diary entry.
(defalias 'icalendar--convert-date-to-ical #[(nonmarker entry-main) "\302\303P \"\205 \304\305 \"\210\306\307!\207" [nonmarker entry-main string-match "%%(diary-date \\([^)]+\\))\\s-*\\(.*?\\) ?$" icalendar--dmsg "diary-date %s" error "`diary-date' is not supported yet"] 3 (#$ . 46479)])
#@184 Convert `diary-cyclic' diary entry to iCalendar format.
NONMARKER is a regular expression matching the start of non-marking
entries. ENTRY-MAIN is the first line of the diary entry.
(defalias 'icalendar--convert-cyclic-to-ical #[(nonmarker entry-main) "\306\307\310\311\312\313\314\315\260 \"\205\373 \316\224\316\225O \317\224\317\225O\320 ! \320 ! \320 \316\" +\321\322\224\2058 \322\224\322\225O\323\224\205C \323\224\323\225O\" ,\321\324\224\205R \324\224\324\225O\325\224\205] \325\224\325\225O\" -\326 \327\224\327\225O! .\330\331 \"\210,\203\304 -\204\304 \332\333\334,\335\211 / 0 1 2 3\336\337!\203\237 \3373210/%\202\266 \336\340!\205\266 \341 4\342\216\340132/$*-! 5\343\344\3455\\\"-)\346,\203\316 \347\202\317 \350\f,\206\326 \334\351-\203\340 \347\202\341 \350-\203\352
\202\354 +-\206\362 \334\352\n\260\n..B\207" [nonmarker entry-main frequency datetime startisostring endisostring string-match "%%(diary-cyclic \\([^ ]+\\) +" "\\([^ /]+[ /]+[^ /]+[ /]+[^ ]+\\))\\s-*" "\\(\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?" "\\(" "-\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?\\)?" "\\)?" "\\s-*\\(.*?\\) ?$" 1 2 icalendar--datestring-to-isodate icalendar--diarytime-to-isotime 4 5 7 8 icalendar--convert-string-for-export 9 icalendar--dmsg "diary-cyclic %s" read "^T0?" "" nil fboundp replace-regexp-in-string replace-in-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] format "T%06d" 10000 "\nDTSTART;" "VALUE=DATE-TIME:" "VALUE=DATE:" "\nDTEND;" "\nRRULE:FREQ=DAILY;INTERVAL=" endisostring+1 starttimestring endtimestring summary literal fixedcase string rep regexp save-match-data-internal time] 10 (#$ . 46982)])
#@189 Convert `diary-anniversary' diary entry to iCalendar format.
NONMARKER is a regular expression matching the start of non-marking
entries. ENTRY-MAIN is the first line of the diary entry.
(defalias 'icalendar--convert-anniversary-to-ical #[(nonmarker entry-main) "\306\307\310\311\312\313\314\260 \"\205\350 \315\224\315\225O\316\n!\316\n\315\" \317\320\224\205+ \320\224\320\225O\321\224\2056 \321\224\321\225O\" \317\322\224\205D \322\224\322\225O\323\224\205O \323\224\323\225O\" +\324 \325\224\325\225O! ,\326\327 \"\210
\203\264 +\204\264 \330\331\332
\333\211 - . / 0 1\334\335!\203\217 \33510/.-%\202\246 \334\336!\205\246 \337 2\340\216\336/10-$*-! 3\341\342\3433\\\"+)\344
\203\275 \345\202\276 \346
\206\304 \332\347+\203\316 \345\202\317 \346\f+\206\326 \332\350\351 \321\322O\352 \322\325O\260
,.B\207" [nonmarker entry-main datetime startisostring endisostring starttimestring string-match "%%(diary-anniversary \\([^)]+\\))\\s-*" "\\(\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?" "\\(" "-\\([0-9][0-9]?:[0-9][0-9]\\)\\([ap]m\\)?\\)?" "\\)?" "\\s-*\\(.*?\\) ?$" 1 icalendar--datestring-to-isodate icalendar--diarytime-to-isotime 3 4 6 7 icalendar--convert-string-for-export 8 icalendar--dmsg "diary-anniversary %s" read "^T0?" "" nil fboundp replace-regexp-in-string replace-in-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] format "T%06d" 10000 "\nDTSTART;" "VALUE=DATE-TIME:" "VALUE=DATE:" "\nDTEND;" "\nRRULE:FREQ=YEARLY;INTERVAL=1" ";BYMONTH=" ";BYMONTHDAY=" endtimestring summary literal fixedcase string rep regexp save-match-data-internal time] 15 (#$ . 48692)])
#@235 Import an iCalendar file and append to a diary file.
Argument ICAL-FILENAME output iCalendar file.
Argument DIARY-FILENAME input `diary-file'.
Optional argument NON-MARKING determines whether events are created as
non-marking or not.
(defalias 'icalendar-import-file #[(ical-filename diary-filename &optional non-marking) "r\303!q\210\304 \305\n#)\207" [ical-filename diary-filename non-marking find-file icalendar-import-buffer t] 4 (#$ . 50355) "fImport iCalendar data from file: \nFinto diary file:\nP"])
#@597 Extract iCalendar events from current buffer.
This function searches the current buffer for the first iCalendar
object, reads it and adds all VEVENT elements to the diary
DIARY-FILE.
It will ask for each appointment whether to add it to the diary
unless DO-NOT-ASK is non-nil. When called interactively,
DO-NOT-ASK is nil, so that you are asked for each event.
NON-MARKING determines whether diary events are created as
non-marking.
Return code t means that importing worked well, return code nil
means that an error has occurred. Error messages will be in the
buffer `*icalendar-errors*'.
(defalias 'icalendar-import-buffer #[(&optional diary-file do-not-ask non-marking) "r\306\307!\210\310p!q\210eb\210\306\311!\210\312\313\314\315#\203W \314\211\306\316!\210\317 \210\320\314\211\"\306\321!\210\306\322!\210\323 \n \f$\n\203M \324\n!\211 \203L r
q\210\325 \210))\306\326!\210*?\202\\ \306\327!\210\314)\207" [ical-errors ical-contents diary-file do-not-ask non-marking b message "Preparing iCalendar..." icalendar--get-unfolded-buffer "Preparing iCalendar...done" re-search-forward "^BEGIN:VCALENDAR\\s-*$" nil t "Reading iCalendar..." beginning-of-line icalendar--read-element "Reading iCalendar...done" "Converting iCalendar..." icalendar--convert-ical-to-diary find-buffer-visiting save-buffer "Converting iCalendar...done" "Current buffer does not contain iCalendar contents!"] 6 (#$ . 50871) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias icalendar-extract-ical-from-buffer icalendar-import-buffer nil make-obsolete "22.1"] 4)
#@55 Create a string representation of an iCalendar EVENT.
(defalias 'icalendar--format-ical-event #[(event) "\305!\203\n !\207\306\307 \310\311\n\"\210\f+\207" [icalendar-import-format event conversion-list case-fold-search string functionp nil (("%c" CLASS icalendar-import-format-class) ("%d" DESCRIPTION icalendar-import-format-description) ("%l" LOCATION icalendar-import-format-location) ("%o" ORGANIZER icalendar-import-format-organizer) ("%s" SUMMARY icalendar-import-format-summary) ("%t" STATUS icalendar-import-format-status) ("%u" URL icalendar-import-format-url) ("%U" UID icalendar-import-format-uid)) mapc #[(i) "@A@AA@\306\f\n\" \307
\203`
G\310V\203` \311\312
! J\313\211 \314\315!\203F \315%\202] \314\316!\205] \317 \320\216\316$*- \313\211 \314\315!\203\206 \315%\202\235 \314\316!\205\235 \317 \320\216\316$*-\211-\207" [i spec prop format event contents icalendar--get-event-property "" 0 "%s" icalendar--convert-string-for-import t fboundp replace-regexp-in-string replace-in-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] formatted-contents literal fixedcase string rep regexp save-match-data-internal] 6]] 3 (#$ . 52449)])
#@473 Convert iCalendar data to an Emacs diary file.
Import VEVENTS from the iCalendar object ICAL-LIST and saves them to a
DIARY-FILE. If DO-NOT-ASK is nil the user is asked for each event
whether to actually import it. NON-MARKING determines whether diary
events are created as non-marking.
This function attempts to return t if something goes wrong. In this
case an error string which describes all the errors and problems is
written into the buffer `*icalendar-errors*'.
(defalias 'icalendar--convert-ical-to-diary #[(ical-list diary-file &optional do-not-ask non-marking) "\306!\307\310\311 \312! \311\211 : ; \203\367 @: A\311\3131\333\314:\315\" <\316\317:\315\"
\" =\320<\311=# >\321>! ?\322>! @\314:\323\" A\316\317:\323\"
\" B\320A\311B# C\320A\324B# D\311\211 E F\311 G\325\314:\326\"\206\201 \327! H\314:\330\" I\314:\331\" J\314:\332\" K\333\334?H#\210<\203\265 \317:\315\"A@\335\230\203\265 \311@K\203\353 \336>\337K!\"\336>\337K\310\"\" L MC\203\342 CM=\204\342 \340\341H\"\210MCLD*C\203\367 \321C!\202\371 ?ED\203\321D!\202 ?FC\203#\317:\323\"A@\335\230\204#\322C!\202%@G\333\342?E#\210I\203E\343:>@G$;\310\202\245J\203\\\333\344!\210\307;\345\346\347J!\"\210\202\245?E\230\204s\350:?F#;\310\202\245@\203\230G\203\205@G\230\204\230\351:>C@G%;\310\202\245\333\352!\210\321>\353\";\310 \203\313;\354\355:!Q;N\203\273\311H\356;OPH$\211O\202\325\310\357\360\n:#\211.0\202\363 Q\340\361:\"\210\310\357\362Q\n:$\340\363\n\")\210\202 O\203\364O!\211 R\203rRq\210db\210\365c\210))\f\203$r\366\367!q\210\370 \210\nc\210)\340\371!\210\f.\207" [ical-list ev error-string event-ok found-error zone-map icalendar--all-events "" t nil icalendar--convert-all-timezones (error) icalendar--get-event-property DTSTART icalendar--find-time-zone icalendar--get-event-property-attributes icalendar--decode-isodatetime icalendar--datetime-to-diary-date icalendar--datetime-to-colontime DTEND -1 icalendar--convert-string-for-import SUMMARY "No summary" RRULE RDATE DURATION icalendar--dmsg "%s: `%s'" "DATE" icalendar--add-decoded-times icalendar--decode-isoduration message "Inconsistent endtime and duration for %s" "start-d: %s, end-d: %s" icalendar--convert-recurring-to-diary "rdate event" mapc #[(datestring) "\301\302!P\211\207" [diary-string format "......"] 3] icalendar--split-value icalendar--convert-non-recurring-all-day-to-diary icalendar--convert-non-recurring-not-all-day-to-diary "all day event" "/" " " icalendar--format-ical-event icalendar--add-diary-entry format "%s\nCannot handle this event:%s" "Ignoring event \"%s\"" "%s\n%s\nCannot handle this event: %s" "%s" find-buffer-visiting "\n" get-buffer-create "*icalendar-errors*" erase-buffer "Converting iCalendar...done" e diary-string dtstart dtstart-zone dtstart-dec start-d start-t dtend dtend-zone dtend-dec dtend-1-dec end-d end-1-d end-t summary rrule rdate duration dtend-1-dec-d dtend-dec-d do-not-ask diary-file non-marking error-val b] 7 (#$ . 53730)])
#@195 Convert recurring iCalendar event E to diary format.
DTSTART-DEC is the DTSTART property of E.
START-T is the event's start time in diary format.
END-T is the event's end time in diary format.
(defalias 'icalendar--convert-recurring-to-diary #[(e dtstart-dec start-t end-t) "\306\307!\210\310\311\"\312 !\313\314\n\"A@\313\315\n\"A@ \313\316\n\"A@ \317\313\320\n\"A@\206- \321! @\322A! B\322\323\f!! C\322\323\f\324\"! D\325 E
\203-\f\203W \326\327!\210\202-\330 F \331\230\203\211 \332A\330\211\211\317
!@_\330\211\257\"\332A\330\211\211\317
!S@_\330\211\257\"F\202! \333\230\203\274 \332A\330\211\211\334\317
!@\335#\330\211\257\"\332A\330\211\211\334\317
!S@\335#\330\211\257\"F\202! \336\230\203\354 \332A\330\211\211\211\317
!S@_\330\257\"\332A\330\211\211\211\317
!S@_\330\257\"F\202! \337\230\203 \332A\330\211\211\211\211\317
!S@_\257\"\332A\330\211\211\211\211\317
!S@_\257\"F\202!\326\340 \"\210\322\f!C\322F!D) \333\230\203\n\313\341\n\"A@ G\342G!\211 HG\343V\205M\344\345H\" IJ\204\234\306\346!\210\f\203\344\347I\206l\344\350@\335_B#B
\203wD\202yC$E\202\344\351I\206\207\325I\203\220\343\202\224@\335_B$E\202\306\352!\210\f\203\325\344\353I\206\264\344\350@\335_B#BCJ\206\276\325K\203\307\354\202\310\325K\206\316\325&E\202\344\355I\206\335\325I\203\346\343\202\352@\335_BJ\206\362\325K\203\373\354\202\374\325K\206\325&E+\202l \337\230\203\232\306\356!\210\f\203z\357A8\360A8 L M\361N\362=\2036\344\363LM#\202UN\364=\203G\344\365ML#\202UN\366=\205U\344\365LM#\367B\370C\371J\206b\325K\203k\354\202l\325K\206r\325\260\nE*\202l\344\372BJ\206\204\325K\203\215\354\202\216\325K\206\224\325%E\202l \336\230\203\306\373!\210\344\374\357A8 MN\362=\203\273\344\375M\"\202\326N\364=\203\312\344\376M\"\202\326N\366=\205\326\344\377M\")B\f\203\342C\202\362N\362=\203\357\201X \202\362\201Y J\206\370\325K\203\354\202\325K\206\325&E\202l \331\230\203l\f\203J\344\201Z @B\211
\203+D\202-CJ\2063\325K\203<\354\202=\325K\206C\325&E\202l\344\201[ @BJ\206X\325K\203a\354\202b\325K\206h\325&E\201\\ \201] \"\211 O\203\352\323O@! P\322P! Q\201^ \344\201_ Q\"E\201` \211 R S T U V\201a \201b !\203\274\201b VUTSR%\202\335\201a \201c !\205\335\201d W\201e \216\201c TVUR$*-E*OA\211O\204z)\310\201f \"\203E\201g \201\\ \201f \"QEE.\n\207" [e rrule rrule-props frequency until count icalendar--dmsg "recurring event" icalendar--get-event-property RRULE icalendar--split-value assoc FREQ UNTIL COUNT read INTERVAL "1" icalendar--datetime-to-diary-date icalendar--decode-isodatetime -1 "" message "Must not have UNTIL and COUNT -- ignoring COUNT element!" 0 "DAILY" icalendar--add-decoded-times "WEEKLY" * 7 "MONTHLY" "YEARLY" "Cannot handle COUNT attribute for `%s' events." BYDAY icalendar--get-weekday-numbers 1 format "(memq (calendar-day-of-week date) '%s) " "weekly all-day" "%%%%(and %s(diary-block %s %s))" "(diary-cyclic %d %s) " "%%%%(and %s(diary-cyclic %d %s))" "weekly not-all-day" "%%%%(and %s(diary-block %s %s)) %s%s%s" "-" "%%%%(and %s(diary-cyclic %d %s)) %s%s%s" "yearly" 3 4 "%%(and (diary-date " iso "t %d %d" european "%d %d t" american ") (diary-block " " " ")) " "%%%%(and (diary-anniversary %s)) %s%s%s" "monthly" "%%%%(and (diary-date %s) (diary-block %s %s)) %s%s%s" "t t %d" "%d t t" "t %d t" interval dtstart-dec dtstart-conv until-conv until-1-conv result until-1 byday weekdays weekday-clause start-t end-t month day calendar-date-style ex-dates ex-start ex-d literal fixedcase string rep regexp save-match-data-internal "9999 1 1" "1 1 9999" "%%%%(and (diary-cyclic %s %s) (diary-block %s %s)) %s%s%s" "%%%%(and (diary-cyclic %s %s)) %s%s%s" icalendar--get-event-properties EXDATE "^%%(\\(and \\)?" "%%%%(and (not (diary-date %s)) " nil fboundp replace-regexp-in-string replace-in-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] EXRULE "\n Exception rules: "] 11 (#$ . 56805)])
#@176 Convert non-recurring iCalendar EVENT to diary format.
DTSTART is the decoded DTSTART property of E.
Argument START-D gives the first day.
Argument END-D gives the last day.
(defalias 'icalendar--convert-non-recurring-all-day-to-diary #[(event start-d end-d) "\302\303!\210\304\305 #\207" [start-d end-d icalendar--dmsg "non-recurring all-day event" format "%%%%(and (diary-block %s %s))"] 4 (#$ . 60908)])
#@247 Convert recurring icalendar EVENT to diary format.
DTSTART-DEC is the decoded DTSTART property of E.
DTEND-DEC is the decoded DTEND property of E.
START-T is the event's start time in diary format.
END-T is the event's end time in diary format.
(defalias 'icalendar--convert-non-recurring-not-all-day-to-diary #[(event dtstart-dec dtend-dec start-t end-t) "\303\304!\210\203 \305\306\307 \310\"\n$\207\305\311\307 \310\"\n#\207" [end-t dtstart-dec start-t icalendar--dmsg "not all day event" format "%s %s-%s" icalendar--datetime-to-diary-date "/" "%s %s"] 5 (#$ . 61324)])
#@325 Add STRING to the diary file DIARY-FILE.
STRING must be a properly formatted valid diary entry. NON-MARKING
determines whether diary events are created as non-marking. If
SUMMARY is not nil it must be a string that gives the summary of the
entry. In this case the user will be asked whether he wants to insert
the entry.
(defalias 'icalendar--add-diary-entry #[(string diary-file non-marking &optional summary) "\203
\305\306\307\"!\2035 \203 \305\310\311!!\312 \313\216 \204$ \314\315!\316\317!\203. \317\202/ \320\f #\210*r\321 !q\210db\210`Sf\322U\203J \323\324!\210) \207" [summary non-marking #1=#:wconfig diary-file string y-or-n-p format-message "Add appointment for `%s' to diary? " format "Make appointment non-marking? " current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] read-file-name "Add appointment to this diary file: " fboundp diary-make-entry make-diary-entry find-file 32 delete-char -1] 4 (#$ . 61909)])
#@53 Example function for formatting an iCalendar EVENT.
(defalias 'icalendar-import-format-sample #[(event) "\301\302\303\304\"\206\n \305\303\306\"\206 \305\303\307\"\206 \305\303\310\"\206\" \305\303\311\"\206* \305\303\312\"\2062 \305\303\313\"\206: \305&\207" [event format "SUMMARY='%s' DESCRIPTION='%s' LOCATION='%s' ORGANIZER='%s' STATUS='%s' URL='%s' CLASS='%s'" icalendar--get-event-property SUMMARY "" DESCRIPTION LOCATION ORGANIZER STATUS URL CLASS] 11 (#$ . 62882)])
(provide 'icalendar)
Kontol Shell Bypass