;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'dbus) (defvar telepathy-account-manager-iface "org.freedesktop.Telepathy.AccountManager") (defvar telepathy-account-manager-path "/org/freedesktop/Telepathy/AccountManager") (defvar telepathy-account-iface "org.freedesktop.Telepathy.Account") (defvar telepathy-simple-presence-iface "org.freedesktop.Telepathy.Connection.Interface.SimplePresence") (defalias 'telepathy-path-to-iface #[(path) "\301\302\303#\304\305O\207" [path replace-regexp-in-string "/" "." 1 nil] 4]) #@51 Get a list of valid telepathy accounts D-Bus path (defalias 'telepathy-get-valid-accounts #[nil "\302\303 \304%\207" [telepathy-account-manager-iface telepathy-account-manager-path dbus-get-property :session "ValidAccounts"] 6 (#$ . 569)]) #@185 Get the telepathy presence of the ACCOUNT-PATH D-Bus object path. See http://telepathy.freedesktop.org/spec/Connection_Interface_Simple_Presence.html#Mapping:Simple_Status_Spec_Map (defalias 'telepathy-get-account-presence #[(account-path) "\303\304 \n\305%\207" [telepathy-account-manager-iface account-path telepathy-account-iface dbus-get-property :session "CurrentPresence"] 6 (#$ . 818)]) #@73 Get the telepathy connection path of the ACCOUNT-PATH D-Bus object path (defalias 'telepathy-get-account-connection #[(account-path) "\303\304 \n\305%\207" [telepathy-account-manager-iface account-path telepathy-account-iface dbus-get-property :session "Connection"] 6 (#$ . 1222)]) #@33 Get all valid accounts presence (defalias 'telepathy-get-valid-accounts-presence #[nil "\300\301\302 \"\207" [mapcar #[(account-path) "\301!\207" [account-path telepathy-get-account-presence] 2] telepathy-get-valid-accounts] 3 (#$ . 1512)]) #@44 Get the Statuses property for ACCOUNT-PATH (defalias 'telepathy-get-account-statuses #[(account-path) "\304!\305 !\306\307\n \310%*\207" [account-path connection-path connection-iface telepathy-simple-presence-iface telepathy-get-account-connection telepathy-path-to-iface dbus-get-property :session "Statuses"] 6 (#$ . 1760)]) #@227 STATUS is the string identifier of the desired status. Possible status identifiers are defined in the Statuses property. See http://telepathy.freedesktop.org/spec/Connection_Interface_Simple_Presence.html#Property:Statuses (defalias 'telepathy-set-account-presence #[(account-path status status-message) "\306!\307 ! \310\230\206\311!@\312U?\205\"\313\314\n \315\f &*\207" [account-path connection-path connection-iface telepathy-simple-presence-iface status status-message telepathy-get-account-connection telepathy-path-to-iface "/" telepathy-get-account-presence 0 dbus-call-method :session "SetPresence"] 8 (#$ . 2099)]) (defalias 'telepathy-set-valid-accounts-presence #[(status message) "\305 \211\306\211\205\n@\307 \f#\210\nA\211\204 \306+\207" [accounts account-path --dolist-tail-- status message telepathy-get-valid-accounts nil telepathy-set-account-presence] 5]) (provide 'telepathy)