Server IP : 111.118.215.189 / Your IP : 18.117.158.174 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/org/ |
[ Home ] | [ C0mmand ] | [ Upload File ] |
---|
;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>