1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / org /
Filename : org-icalendar.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:07:26 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-icalendar.el
;;; in Emacs version 24.3.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\310\303\316\317&\210\312\320\321\322\310\303\323\324\316\325&	\210\312\326\327\330\310\303\316\331&\210\312\332\304\333\310\303\323\324\316\331&	\210\312\334\335\336\310\303\316\337&\210\312\340\304\341\310\303\323\324\316\337&	\210\312\342\343\344\310\303\316\345&\210\312\346\347\350\310\303\316\351&\210\312\352\353\354\310\303\316\355&\210\312\356\304\357\310\303\316\360&\207" [require org-exp custom-declare-group org-export-icalendar nil "Options specific for iCalendar export of Org-mode files." :tag "Org Export iCalendar" :group org-export custom-declare-variable org-combined-agenda-icalendar-file "~/org.ics" "The file name for the iCalendar file covering all agenda files.\nThis file is created with the command \\[org-export-icalendar-all-agenda-files].\nThe file name should be absolute, the file will be overwritten without warning." :type file org-icalendar-alarm-time 0 "Number of minutes for triggering an alarm for exported timed events.\nA zero value (the default) turns off the definition of an alarm trigger\nfor timed events.  If non-zero, alarms are created.\n\n- a single alarm per entry is defined\n- The alarm will go off N minutes before the event\n- only a DISPLAY action is defined." :version "24.1" integer org-icalendar-combined-name "OrgMode" "Calendar name for the combined iCalendar representing all agenda files." string org-icalendar-combined-description "Calendar description for the combined iCalendar (all agenda files)." org-icalendar-use-plain-timestamp t "Non-nil means make an event from every plain time stamp." boolean org-icalendar-honor-noexport-tag "Non-nil means don't export entries with a tag in `org-export-exclude-tags'." org-icalendar-use-deadline '(event-if-not-todo todo-due) "Contexts where iCalendar export should use a deadline time stamp.\nThis is a list with several symbols in it.  Valid symbol are:\n\nevent-if-todo       Deadlines in TODO entries become calendar events.\nevent-if-not-todo   Deadlines in non-TODO entries become calendar events.\ntodo-due            Use deadlines in TODO entries as due-dates" (set :greedy t (const :tag "Deadlines in non-TODO entries become events" event-if-not-todo) (const :tag "Deadline in TODO entries become events" event-if-todo) (const :tag "Deadlines in TODO entries become due-dates" todo-due)) org-icalendar-use-scheduled '(todo-start) "Contexts where iCalendar export should use a scheduling time stamp.\nThis is a list with several symbols in it.  Valid symbol are:\n\nevent-if-todo       Scheduling time stamps in TODO entries become an event.\nevent-if-not-todo   Scheduling time stamps in non-TODO entries become an event.\ntodo-start          Scheduling time stamps in TODO entries become start date.\n                    Some calendar applications show TODO entries only after\n                    that date." (set :greedy t (const :tag "SCHEDULED timestamps in non-TODO entries become events" event-if-not-todo) (const :tag "SCHEDULED timestamps in TODO entries become events" event-if-todo) (const :tag "SCHEDULED in TODO entries become start date" todo-start)) org-icalendar-categories '(local-tags category) "Items that should be entered into the categories field.\nThis is a list of symbols, the following are valid:\n\ncategory    The Org-mode category of the current file or tree\ntodo-state  The todo state, if any\nlocal-tags  The tags, defined in the current line\nall-tags    All tags, including inherited ones." (repeat (choice (const :tag "The file or tree category" category) (const :tag "The TODO state" todo-state) (const :tag "Tags defined in current line" local-tags) (const :tag "All tags, including inherited ones" all-tags))) org-icalendar-include-todo "Non-nil means export to iCalendar files should also cover TODO items.\nValid values are:\nnil         don't include any TODO items\nt           include all TODO items that are not in a DONE state\nunblocked   include all TODO items that are not blocked\nall         include both done and not done items." (choice (const :tag "None" nil) (const :tag "Unfinished" t) (const :tag "Unblocked" unblocked) (const :tag "All" all))] 10)
#@531 Function to verify entries for iCalendar export.
This can be set to a function that will be called at each entry that
is considered for export to iCalendar.  When the function returns nil,
the entry will be skipped.  When it returns a non-nil value, the entry
will be considered for export.
This is used internally when an agenda buffer is exported to an ics file,
to make sure that only entries currently listed in the agenda will end
up in the ics file.  But for normal iCalendar export, you can use this
for whatever you need.
(defvar org-icalendar-verify-function nil (#$ . 4770))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\316&\210\300\317\302\320\304\305\306\307&\210\300\321\322\323\304\305\306\324&\207" [custom-declare-variable org-icalendar-include-bbdb-anniversaries nil "Non-nil means a combined iCalendar files should include anniversaries.\nThe anniversaries are define in the BBDB database." :group org-export-icalendar :type boolean org-icalendar-include-sexps t "Non-nil means export to iCalendar files should also cover sexp entries.\nThese are entries like in the diary, but directly in an Org-mode file." org-icalendar-include-body 100 "Amount of text below headline to be included in iCalendar export.\nThis is a number of characters that should maximally be included.\nProperties, scheduling and clocking lines will always be removed.\nThe text will be inserted into the DESCRIPTION field." (choice (const :tag "Nothing" nil) (const :tag "Everything" t) (integer :tag "Max characters")) org-icalendar-store-UID "Non-nil means store any created UIDs in properties.\nThe iCalendar standard requires that all entries have a unique identifier.\nOrg will create these identifiers as needed.  When this variable is non-nil,\nthe created UIDs will be stored in the ID property of the entry.  Then the\nnext time this entry is exported, it will be exported with the same UID,\nsuperseding the previous form of it.  This is essential for\nsynchronization services.\nThis variable is not turned on by default because we want to avoid creating\na property drawer in every entry if people are only playing with this feature,\nor if they are only using it locally." org-icalendar-timezone (getenv "TZ") "The time zone string for iCalendar export.\nWhen nil or the empty string, use output from (current-time-zone)." (choice (const :tag "Unspecified" nil) (string :tag "Time zone"))] 8)
(defvar org-icalendar-use-UTC-date-time nil)
#@354 Format-string for exporting icalendar DATE-TIME.
See `format-time-string' for a full documentation.  The only
difference is that `org-icalendar-timezone' is used for %Z.

Interesting value are:
 - ":%Y%m%dT%H%M%S" for local time
 - ";TZID=%Z:%Y%m%dT%H%M%S" for local time with explicit timezone
 - ":%Y%m%dT%H%M%SZ" for time expressed in Universal Time
(custom-declare-variable 'org-icalendar-date-time-format '(if org-icalendar-use-UTC-date-time ":%Y%m%dT%H%M%SZ" ":%Y%m%dT%H%M%S") '(#$ . 7294) :group 'org-export-icalendar :version "24.1" :type '(choice (const :tag "Local time" ":%Y%m%dT%H%M%S") (const :tag "Explicit local time" ";TZID=%Z:%Y%m%dT%H%M%S") (const :tag "Universal time" ":%Y%m%dT%H%M%SZ") (string :tag "Explicit format")))
(defalias 'org-icalendar-use-UTC-date-timep #[nil "\301\211GS\234\302\"\207" [org-icalendar-date-time-format char-equal 90] 3])
#@149 Export current file as an iCalendar file.
The iCalendar file will be located in the same directory as the Org-mode
file, but with extension `.ics'.
(defalias 'org-export-icalendar-this-file #[nil "\301\302\"\207" [buffer-file-name org-export-icalendar nil] 3 (#$ . 8171) nil])
#@185 Export all files in the variable `org-agenda-files' to iCalendar .ics files.
Each iCalendar file will be located in the same directory as the Org-mode
file, but with extension `.ics'.
(defalias 'org-export-icalendar-all-agenda-files #[nil "\300\301\302\303\304!#\207" [apply org-export-icalendar nil org-agenda-files t] 5 (#$ . 8456) nil])
#@149 Export all files in `org-agenda-files' to a single combined iCalendar file.
The file is stored under the name `org-combined-agenda-icalendar-file'.
(defalias 'org-export-icalendar-combine-agenda-files #[nil "\300\301\302\303\302!#\207" [apply org-export-icalendar t org-agenda-files] 5 (#$ . 8803) nil])
#@194 Create iCalendar files for all elements of FILES.
If COMBINE is non-nil, combine all calendar entries into a single large
file and store it under the name `org-combined-agenda-icalendar-file'.
(defalias 'org-export-icalendar #[(combine &rest files) "\212\306!\210\307\310\311	D\"\312\211\312\211\312\211\313\314!\203%�\315\314!\210\203F�\316!\2036�\202;�\317\n\"\320\f!\211q\210\321 \210\211A@\211\203W�\322\323\215\210\202F�\324!.\207" [files org-export-publishing-directory dir file ical-file ical-buffer org-agenda-prepare-buffers org-export-directory :ical :publishing-directory nil get-buffer "*ical-tmp*" kill-buffer file-name-absolute-p expand-file-name org-get-agenda-file-buffer erase-buffer nextfile (byte-code "\306!\210\307!q\210	\204$�\310\n!\311\312!!\313Q\307\f!r
q\210\314 \210)\206.�\311\312!!\2119\203;�\315!
	\203V�\204[�\316\211\203[�\317 !\210\202[�\317!\210\320	!\210	\203h�!\203l�	\204\236�	\203|�\"\203|�\321\322!\210\323 \210\324 \210
q\210\325\326!\210\327 \210\325\330!\210\331\332!\203\236�\247\203\236�\333!\210)\306\207" [file combine dir buffer-file-name ical-file ical-buffer org-check-agenda-file org-get-agenda-file-buffer file-name-as-directory file-name-sans-extension file-name-nondirectory ".ics" erase-buffer symbol-name t org-icalendar-start-file org-icalendar-print-entries require org-bbdb org-bbdb-anniv-export-ical org-icalendar-finish-file run-hooks org-before-save-iCalendar-file-hook save-buffer org-after-save-iCalendar-file-hook boundp org-wait sit-for org-category category standard-output started org-icalendar-combined-name files org-icalendar-include-bbdb-anniversaries] 5) org-release-buffers category started org-agenda-new-buffers combine org-combined-agenda-icalendar-file] 5 (#$ . 9114)])
#@105 Hook run before  an iCalendar file has been saved.
This can be used to modify the result of the export.
(defvar org-before-save-iCalendar-file-hook nil (#$ . 10924))
#@207 Hook run after an iCalendar file has been saved.
The iCalendar buffer is still current when this hook is run.
A good way to use this is to tell a desktop calendar application to re-read
the iCalendar file.
(defvar org-after-save-iCalendar-file-hook nil (#$ . 11097))
#@133 Print iCalendar entries for the current Org-mode file to `standard-output'.
When COMBINE is non nil, add the category to each line.
(defalias 'org-icalendar-print-entries #[(&optional combine) "\306\307!\210\310P\311\312Q\313\314	A\315 \"\316\"\317\211\211\211\211\320\317\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\321\322!%&'()*+,-./0123456789:;<=>\323 \210\324\325\326\"\210\212eb\210\327>\317\320#\203\205�\330\331\215\210\202u�?\203\263�\317\332\333\217\203\263�\334\335!\203\263�eb\210\327\336\317\320#\203\251�\330\337\215\210\202\232�\340\341\n!!\210\342\n!\210@\205\316�\343.eb\210\327A\317\320#\205\316�\330\344\215\210\202\276�.\207" [org-ts-regexp org-time-stamp-formats sexp-buffer alarm-time alarm uid require org-agenda "\\|<%%([^>\n]+>" "--?-?\\(" "\\)" org-icalendar-ts-to-string format-time-string current-time "DTSTART" nil t get-buffer-create "*ical-tmp*" org-refresh-category-properties org-refresh-properties "APPT_WARNTIME" org-appt-warntime re-search-forward :skip (byte-code "\306 \210\203�\307 \310\216 *\204�\311 \210\312u\210\313\314\315\"\210\316\224\317\316!\320 \321\315\322\323\217@\324\325\315\326\"!A\324\325\315\327\"\206F�B\205F�\330 \321B#C\324\325\315\331\332#!DE\203_�\333 \202f�\334 \206f�\335 F\336 G\337`\340\"\211H\203}�\341H!\202~�\316H\342I\315\211JKe\nLZ]\n{M\343NM\"J\343OM\"K\344 P\345Q!\203\301�\316\225b\210\317\346!R\343\347R\"?\202\326�\343\350\"\203\323�\315\351\352\321\315$\202\324�RS\204\352�J\204\352�K\204\352�\313\314\321\"\210T\203\376�\353\315\354\355\f\"\"\203\376�\313\314\321\"\210J\203P\203\356U>?\202\357U>?\203\313\314\321\"\210K\203<P\203/\356V>?\2024\357V>?\203<\313\314\321\"\210J\203E\360\202OK\203N\361\202O\362W\343X@\"\204c\343Y@\"\203l\351\342\321\211@$@\343\363\"\203\207\364\365\317\366\"\367\"A\370\317\346\"RZ\202\212\342ZA\206\221@A\315\371\372\217[H\316V\204\247\\\316V\203\314[@\203\314[A@\203\314\366[8\203\314\373\374AH\206\306\\#I\202\317\342I)\343]A\"\203\363\351\375\225\203\347\317\375A\"\202\354\317\346A\"\321\211A$AJ\203\376\376APAK\203	\377APA\343\201`�\"\203Br^q\210\346\312O_\201a�\316\346\201F�\201b�WFQ_%\210_\201b�A\201c�\261\210*\202\236\201d�\373\201e�WFP\201f�\201g�\"\201f�R\201h�
#ZAC\203|\343\201i�C\"\203|\201j�CP\202}\342D\203\225\343\201i�D\"\203\225\201k�DP\202\226\342GI&\n!\210\315\207" [org-icalendar-verify-function save-match-data-internal pos ts tags inc org-agenda-skip match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) outline-next-heading -1 throw :skip nil 0 match-string org-get-tags-at t (byte-code "\300\301\302!!\207" [org-icalendar-cleanup-string org-get-heading t] 3) ((error (throw :skip nil))) org-icalendar-cleanup-string org-entry-get "SUMMARY" "DESCRIPTION" org-get-entry "LOCATION" selective org-id-get-create org-id-get org-id-new org-export-get-categories get-text-property org-appt-warntime string-to-number #1="" string-match org-get-todo-state looking-at 1 "[0-9]\\{1,2\\}:[0-9][0-9]" "[0-9]\\{1,2\\}:[0-9][0-9]-\\([0-9]\\{1,2\\}:[0-9][0-9]\\)" replace-match "\\1" delq mapcar #[(x) "	\235\207" [x org-export-exclude-tags] 2] event-if-todo event-if-not-todo "DL-" "SC-" "TS-" "\\+\\([0-9]+\\)\\([hdwmy]\\)>" "\nRRULE:FREQ=" assoc 2 (("h" . "HOURLY") ("d" . "DAILY") ("w" . "WEEKLY") ("m" . "MONTHLY") ("y" . "YEARLY")) ";INTERVAL=" (byte-code "\301\302\"\207" [ts org-parse-time-string nodefault] 3) ((error)) format "\nBEGIN:VALARM\nACTION:DISPLAY\nDESCRIPTION:%s\nTRIGGER:-P0DT0H%dM0S\nEND:VALARM" 3 "DL: " "S: " hd summary org-icalendar-include-body desc location org-icalendar-store-UID uid categories alarm-time alarm deadlinep scheduledp org-ds-keyword-length tmp org-deadline-regexp org-scheduled-regexp todo re2 ts2 org-icalendar-use-plain-timestamp org-icalendar-honor-noexport-tag org-icalendar-use-deadline org-icalendar-use-scheduled prefix org-tr-regexp org-ts-regexp rrule t1 org-icalendar-alarm-time org-bracket-link-regexp sexp-buffer entry "\\`<%%" put-text-property " " "\n" princ "BEGIN:VEVENT\nUID: %s\n%s\n%s%s\nSUMMARY:%s%s%s\nCATEGORIES:%s%s\nEND:VEVENT\n" org-icalendar-ts-to-string "DTSTART" "DTEND" "\\S-" "\nDESCRIPTION: " "\nLOCATION: "] 13) (byte-code "\300\301!\207" [require icalendar] 2) ((error)) fboundp icalendar-export-region "^&?%%(" (byte-code "\305 \210\203�\306 \307\216 *\204�\310 \210\311u\210\312\313\314\"\210\315\224\315\225Sb\210\316\317!\210\317\210\n`{r\fq\210\320\261\210)\314\207" [org-icalendar-verify-function save-match-data-internal b sexp sexp-buffer org-agenda-skip match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) outline-next-heading -1 throw :skip nil 0 forward-sexp 1 "\n"] 3) princ org-diary-to-ical-string kill-buffer "TODO-" (byte-code "\306 \210\203�\307 \310\216 *\204�\311 \210\312u\210\313\314\315\"\210\316\317!\211\235\203+�\320\202,�\321\n\203\247
\322=\204m�
\323=\203`�\n@\235\203\247\203m�\307 \324\216\325\326\327\330\331\332 \333\334\335\336\257\"*\202j�
\337=\203\247\n@\235\203\247\316\340!A\341\342\315\343\"!B\341\342\315\344\"\206\211�C\205\211�\345 \337C#D\341\342\315\346\347#!E\350F\235\205\243�\342\315\351\"G\352H\235\205\260�\342\315\353\"I\354 JK\203\300�\355 \202\307�\356 \206\307�\357 LG\203\325�\360G\361\"GI\203\341�\360I\362\"I\363MA\"\203\364\365\225\203\370�\316\365A\"\202\375�\316\366A\"\337\211A$A\363NA\"\203(\367\316\317A\"!OA\370\366\224OA\366\225\315OPA\202,PO\371\372\373QOZ!QRZ\245\374_Z!O\375\376\377SLPI\206PTB\206WAE\203o\363\201U�E\"\203o\201V�EP\202r\201W�D\203\212\363\201U�D\"\203\212\201X�DP\202\215\201W�G\203\233\201Y�GP\202\236\201W�JO\f&\n!\210\315\207" [org-icalendar-verify-function save-match-data-internal state org-done-keywords status org-icalendar-include-todo org-agenda-skip match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) outline-next-heading -1 throw :skip nil match-string 2 "COMPLETED" "NEEDS-ACTION" all unblocked ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) run-hook-with-args-until-failure org-blocker-hook :type todo-state-change :position point-at-bol :from todo :to done t 4 org-icalendar-cleanup-string org-entry-get "SUMMARY" "DESCRIPTION" org-get-entry "LOCATION" selective todo-due "DEADLINE" todo-start "SCHEDULED" org-export-get-categories org-id-get-create org-id-get org-id-new org-icalendar-ts-to-string "DUE" "DTSTART" string-match replace-match 3 1 string-to-char 0 floor 9 float 8 princ format "BEGIN:VTODO\nUID: %s\n%s\nSUMMARY:%s%s%s%s\nCATEGORIES:%s\nSEQUENCE:1\nPRIORITY:%d\nSTATUS:%s\nEND:VTODO\n" org-not-done-keywords hd summary org-icalendar-include-body desc location org-icalendar-use-deadline due org-icalendar-use-scheduled start categories org-icalendar-store-UID uid org-bracket-link-regexp org-priority-regexp pri org-default-priority org-lowest-priority org-highest-priority prefix dts "\\S-" "\nLOCATION: " #1# "\nDESCRIPTION: " "\n"] 13) desc summary location categories pri tmp tags start due prefix todo deadlinep scheduledp rrule sexp b pos inc status state ts2 ts hd dts re2 re1 org-icalendar-include-sexps org-icalendar-include-todo org-complex-heading-regexp] 31 (#$ . 11371)])
#@57 Get categories according to `org-icalendar-categories'.
(defalias 'org-export-get-categories #[nil "\305\211\211\f\211A@\211\203V�\306=\203 �\307 \nB\202�\310=\2034�\311 \211\203�	\nB\202�\312=\203E�\313\314`!\237\n\"\202�\315=\203�\313\316`!\237\n\"\202�\317\320\n\237\321#,\207" [org-icalendar-categories tmp rtn c cs nil category org-get-category todo-state org-get-todo-state local-tags append org-get-local-tags-at all-tags org-get-tags-at mapconcat identity ","] 5 (#$ . 18874)])
#@214 Take out stuff and quote what needs to be quoted.
When IS-BODY is non-nil, assume that this is the body of an item, clean up
whitespace, newlines, drawers, and timestamps, and cut it down to MAXLENGTH
characters.
(defalias 'org-icalendar-cleanup-string #[(s &optional is-body maxlength) "\205\222�	\2038�\306\n\307Q\310\311Q\312
\"\203#�\313\314\315\211$\202�\312\f\"\2034�\313\314\315\211$\202#�*\202>�\316\317\320#\321\312\322#\203Z�\321\224\323\\\313\324\325\211$\202A�)\326!	\203t�\312\327\"\203t�\313\330\315\211$\202c�	\203\221�\203\221�\247\203\221�GV\203\221�\321O\207" [s is-body org-drawer-regexp org-keyword-time-regexp re2 re "\\(" "\\)[^�]*?:END:.*\n?" "^[ 	]*" ".*\n?" string-match replace-match "" t replace-regexp-in-string "[[:space:]]+" " " 0 "\\([,;]\\)" 2 "\\\\\\1" nil org-trim "[ 	]*\n[ 	]*" "\\n" start maxlength] 5 (#$ . 19389)])
#@304 Take out stuff and quote what needs to be quoted.
When IS-BODY is non-nil, assume that this is the body of an item, clean up
whitespace, newlines, drawers, and timestamps, and cut it down to MAXLENGTH
characters.
This seems to be more like RFC 2455, but it causes problems, so it is
not used right now.
(defalias 'org-icalendar-cleanup-string-rfc2455 #[(s &optional is-body maxlength) "\205\210�	\203f�\306\n\307Q\310\311Q\312
\"\203#�\313\314\315\211$\202�\312\f\"\2034�\313\314\315\211$\202#�\316!\312\317\"\203I�\313\320\315\211$\2028�\203b�\247\203b�GV\203b�\321O*\202j�\316!\312\322\"\203{�\313\323\315\211$\202j�\312\324\"\203\207�\322\322Q\207" [s is-body org-drawer-regexp org-keyword-time-regexp re2 re "\\(" "\\)[^�]*?:END:.*\n?" "^[ 	]*" ".*\n?" string-match replace-match "" t org-trim "[ 	]*\n[ 	]*" "\\n" 0 "\"" "''" "[;,:]" maxlength] 5 (#$ . 20289)])
#@50 Start an iCalendar file by inserting the header.
(defalias 'org-icalendar-start-file #[(name) "	\206�\306\nG\307V\203�\n\202�\310 \211A@)\f\f
\311\312\313	
\f
%!,\207" [user-full-name name org-icalendar-timezone x org-icalendar-combined-description description "unknown" 0 current-time-zone princ format "BEGIN:VCALENDAR\nVERSION:2.0\nX-WR-CALNAME:%s\nPRODID:-//%s//Emacs with Org-mode//EN\nX-WR-TIMEZONE:%s\nX-WR-CALDESC:%s\nCALSCALE:GREGORIAN\n" timezone user] 8 (#$ . 21198)])
#@58 Finish an iCalendar file by inserting the END statement.
(defalias 'org-icalendar-finish-file #[nil "\300\301!\207" [princ "END:VCALENDAR\n"] 2 (#$ . 21695)])
#@257 Take a time string S and convert it to iCalendar format.
KEYWORD is added in front, to make a complete line like DTSTART....
When INC is non-nil, increase the hour by two (if time string contains
a time), or the day by one (if it does not contain a time).
(defalias 'org-icalendar-ts-to-string #[(s keyword &optional inc) "\306\307\310\217\306\211\211\211\211\204�\311\202\242�\f@\203-�\fA@\203-�\312\f8\203-�\f\313\2021�\314
!@A@\3128\3158\3168\3178\203s�	\203n�\203e�\\\202s�\312\\\202s�T\320
&.	\203\223�\321\322\313$\202\224�\323\324\n\325 \205\240�	#P-\207" [time have-time fmt t2 t1 s nil (byte-code "\301\302\"\207" [s org-parse-time-string nodefault] 3) ((error)) "" 2 t org-parse-time-string 3 4 5 encode-time replace-regexp-in-string "%Z" ";VALUE=DATE:%Y%m%d" format-time-string org-icalendar-use-UTC-date-timep y m d h mi inc org-agenda-default-appointment-duration org-icalendar-timezone org-icalendar-date-time-format keyword] 8 (#$ . 21861)])
(provide 'org-icalendar)