;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require dbus time-date] 2) (defvar gsc-gnome-calendar-dbus-object nil) #@42 Function to be called to retrieve items. (defvar gsc-get-items-function nil (#$ . 199)) #@104 Register to the GnomeShell calendar service. FUNCTION is called to fill the Gnome calendar with items. (defalias 'gnome-shell-calendar-register-service #[(function) "\303\304\305\306#\210\307\304\305\310\305\311\312&\211\207" [function gsc-get-items-function gsc-gnome-calendar-dbus-object dbus-register-service :session "org.gnome.Shell.CalendarServer" :replace-existing dbus-register-method "/org/gnome/Shell/CalendarServer" "GetEvents" gsc-select-items] 7 (#$ . 294)]) #@35 Unregister from the DBus service. (defalias 'gnome-shell-calendar-unregister-service #[nil "\205\301!\210\302\303\304\"\210\305\211\207" [gsc-gnome-calendar-dbus-object dbus-unregister-object dbus-unregister-service :session "org.gnome.Shell.CalendarServer" nil] 3 (#$ . 776)]) #@139 Return a list of calendar events. The events are filtered between SINCE and UNTIL dates. When FORCE-RELOAD is non-nil, reload all events. (defalias 'gsc-select-items #[(since until force-reload) "\306\307\310!!!\306\307\310 !!!\n \311\f\f\311 \211\203R@ \306\307 A!!\211\fY\203H X\203H \235\204H B)A\211\204 *\312\313 !,D\207" [since until gsc-get-items-function selected-items items day-until floor time-to-number-of-days seconds-to-time nil :array gsc-items-to-dbus-entries day-since item --dolist-tail-- day] 6 (#$ . 1066)]) #@99 Return a list of D-BUS entries built from ITEMS. ITEMS are retieved wth `gsc-get-items-function'. (defalias 'gsc-items-to-dbus-entries #[(items) "\301\302\"\207" [items mapcar #[(item) "\301\302@\302\303\304!?\305\306\307A!!\305\306\307A!!T\310\311\312E\257 \207" [item :struct "" :boolean gsc-item-has-time-p :int64 floor time-to-seconds :array :signature "{sv}"] 13]] 3 (#$ . 1631)]) #@49 Return non-nil if ITEM has a time value as cdr. (defalias 'gsc-item-has-time-p #[(item) "\302A!\211@\303U?\206 A@\303U?\206\304 8\303U?)\207" [item time decode-time 0 2] 3 (#$ . 2028)]) (provide 'gnome-calendar)