;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'dbus)
#@69 The version of the Desktop Notifications Specification implemented.
(defconst notifications-specification-version "1.2" (#$ . 100))
#@27 Default application name.
(defconst notifications-application-name "Emacs" (#$ . 238))
#@27 Default application icon.
(defconst notifications-application-icon (expand-file-name "images/icons/hicolor/scalable/apps/emacs.svg" data-directory) (#$ . 331))
#@35 D-Bus notifications service name.
(defconst notifications-service "org.freedesktop.Notifications" (#$ . 497))
#@35 D-Bus notifications service path.
(defconst notifications-path "/org/freedesktop/Notifications" (#$ . 613))
#@40 D-Bus notifications service interface.
(defconst notifications-interface "org.freedesktop.Notifications" (#$ . 727))
#@36 D-Bus notifications notify method.
(defconst notifications-notify-method "Notify" (#$ . 850))
#@48 D-Bus notifications close notification method.
(defconst notifications-close-notification-method "CloseNotification" (#$ . 950))
#@46 D-Bus notifications get capabilities method.
(defconst notifications-get-capabilities-method "GetCapabilities" (#$ . 1085))
#@52 D-Bus notifications get server information method.
(defconst notifications-get-server-information-method "GetServerInformation" (#$ . 1215))
#@36 D-Bus notifications action signal.
(defconst notifications-action-signal "ActionInvoked" (#$ . 1362))
#@36 D-Bus notifications closed signal.
(defconst notifications-closed-signal "NotificationClosed" (#$ . 1470))
#@53 List of reasons why a notification has been closed.
(defconst notifications-closed-reason '((1 expired) (2 dismissed) (3 close-notification) (4 undefined)) (#$ . 1583))
#@61 Mapping between notification and action callback functions.
(defvar notifications-on-action-map nil (#$ . 1758))
#@41 Object for registered on-action signal.
(defvar notifications-on-action-object nil (#$ . 1877))
#@60 Mapping between notification and close callback functions.
(defvar notifications-on-close-map nil (#$ . 1979))
#@40 Object for registered on-close signal.
(defvar notifications-on-close-object nil (#$ . 2096))
#@92 Dispatch signals to callback functions from `notifications-on-action-map'.

(fn ID ACTION)
(defalias 'notifications-on-action-signal #[514 "\303!\304!\305E	\"\211\205.\211A@\"\210\306
	\"\211?\205.\n\205.\307\n!\210\310\211\207" [last-input-event notifications-on-action-map notifications-on-action-object dbus-event-bus-name dbus-event-service-name assoc remove dbus-unregister-object nil] 8 (#$ . 2196)])
#@101 Dispatch signals to callback functions from `notifications-on-close-map'.

(fn ID &optional REASON)
(defalias 'notifications-on-closed-signal #[513 "\304!\305!\306E	\"\206\307
\2059
A@\306\n\"A@\"\210\310	\"\211?\2059\2059\311!\210\312\211\207" [last-input-event notifications-on-close-map notifications-closed-reason notifications-on-close-object dbus-event-bus-name dbus-event-service-name assoc 4 remove dbus-unregister-object nil] 11 (#$ . 2623)])
#@4420 Send notification via D-Bus using the Freedesktop notification protocol.
Various PARAMS can be set:

 :bus            The D-Bus bus, if different from `:session'.
 :title          The notification title.
 :body           The notification body text.
 :app-name       The name of the application sending the notification.
                 Default to `notifications-application-name'.
 :replaces-id    The notification ID that this notification replaces.
 :app-icon       The notification icon.
                 Default is `notifications-application-icon'.
                 Set to nil if you do not want any icon displayed.
 :actions        A list of actions in the form:
                   (KEY TITLE KEY TITLE ...)
                 where KEY and TITLE are both strings.
                 The default action (usually invoked by clicking the
                 notification) should have a key named "default".
                 The title can be anything, though implementations are free
                 not to display it.
 :timeout        The timeout time in milliseconds since the display
                 of the notification at which the notification should
                 automatically close.
                 If -1, the notification's expiration time is dependent
                 on the notification server's settings, and may vary for
                 the type of notification.
                 If 0, the notification never expires.
                 Default value is -1.
 :urgency        The urgency level.
                 Either `low', `normal' or `critical'.
 :action-items   Whether the TITLE of the actions is interpreted as
                 a named icon.
 :category       The type of notification this is.
 :desktop-entry  This specifies the name of the desktop filename representing
                 the calling program.
 :image-data     This is a raw data image format which describes the width,
                 height, rowstride, has alpha, bits per sample, channels and
                 image data respectively.
 :image-path     This is represented either as a URI (file:// is the
                 only URI schema supported right now) or a name
                 in a freedesktop.org-compliant icon theme.
 :sound-file     The path to a sound file to play when the notification pops up.
 :sound-name     A themable named sound from the freedesktop.org sound naming
                 specification to play when the notification pops up.
                 Similar to icon-name, only for sounds.  An example would
                 be "message-new-instant".
 :suppress-sound Causes the server to suppress playing any sounds, if it has
                 that ability.
 :resident       When set the server will not automatically remove the
                 notification when an action has been invoked.
 :transient      When set the server will treat the notification as transient
                 and by-pass the server's persistence capability, if it
                 should exist.
 :x              Specifies the X location on the screen that the notification
                 should point to.  The "y" hint must also be specified.
 :y              Specifies the Y location on the screen that the notification
                 should point to.  The "x" hint must also be specified.
 :on-action      Function to call when an action is invoked.
                 The notification id and the key of the action are passed
                 as arguments to the function.
 :on-close       Function to call when the notification has been closed
                 by timeout or by the user.
                 The function receive the notification id and the closing
                 reason as arguments:
                   - `expired' if the notification has expired
                   - `dismissed' if the notification was dismissed by the user
                   - `close-notification' if the notification was closed
                     by a call to CloseNotification
                   - `undefined' if the notification server hasn't provided
                     a reason

Which parameters are accepted by the notification server can be
checked via `notifications-get-capabilities'.

This function returns a notification id, an integer, which can be
used to manipulate the notification item with
`notifications-close-notification' or the `:replaces-id' argument
of another `notifications-notify' call.

(fn &rest PARAMS)
(defalias 'notifications-notify #[128 "\3061\307
\310\"\206\f\311\307\312\"\307\313\"\307\314\"\307\315\"\307\316\"\307\317\"\307\320\"\321\307\n\322\"\307\323\"\307\f\324\"\307
\325\"\307\326\"\307\327\"\307\330\"\307\331\"\307\332\"\307\333\"\307\334\"\307\335\"\307\336\"\321
\203\214\337\340\341\342\343\267\202\206\344\202\207\345\202\207\346EEC\262\f\203\236\337\347\341\350EEB\262\203\260\337\351\341\350EEB\262\n\203\302\337\352\341\353EEB\262	\203\324\337\354\341\350
EEB\262\203\346\337\355\341\356\fEEB\262\203\370\337\357\341\350EEB\262\203\n
\337\360\341\350\nEEB\262\203
\337\361\341\356	EEB\262\203,
\337\362\341\356EEB\262\203=
\337\363\341\356EEB\262\203N
\337\364\341\365EEB\262
\203^
\337\366\341\365EEB\262\237\262\367	\n\350\206q
\f\370\206x
\344\350\203\205
\371!\202\222
\372#\316\"\203\221
\373\202\222

\350\"\206\231
\373\350#\206\240
\373\374!B\206\252
\375\365\"\206\261
\376&\262
\307\377\"\307\201F\"\201G\"\203\356

ED@B@A\204\356
\201H\321	\nB\201I&A
\203
EDCBCD\204\201H\321	\nE\201J&D\266\266\2260\207\201K\201L\"\210\321\207" [notifications-service notifications-path notifications-interface notifications-notify-method notifications-application-name notifications-application-icon (debug error) plist-get :bus :session :title :body :app-name :replaces-id :app-icon :actions :timeout nil :urgency :category :desktop-entry :image-data :image-path :action-items :sound-file :sound-name :suppress-sound :resident :transient :x :y :dict-entry "urgency" :variant :byte #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (low 126 critical 130)) 0 2 1 "category" :string "desktop-entry" "image-data" :struct "image-path" "action-items" :boolean "sound-file" "sound-name" "suppress-sound" "resident" "transient" "x" :int32 "y" dbus-call-method :uint32 expand-file-name plist-member "" :array (:array :signature "{sv}") -1 :on-action notifications-on-action-map notifications-on-action-object notifications-action-signal notifications-on-close-map notifications-on-close-object notifications-closed-signal :on-close dbus-get-name-owner dbus-register-signal notifications-on-action-signal notifications-on-closed-signal message "Error: %S"] 44 (#$ . 3103)])
#@141 Close a notification with identifier ID.
BUS can be a string denoting a D-Bus connection, the default is `:session'.

(fn ID &optional BUS)
(defalias 'notifications-close-notification #[513 "\304
\206\305	\n\306&\207" [notifications-service notifications-path notifications-interface notifications-close-notification-method dbus-call-method :session :uint32] 10 (#$ . 9936)])
#@1142 Return the capabilities of the notification server, a list of symbols.
BUS can be a string denoting a D-Bus connection, the default is `:session'.
The following capabilities can be expected:

  :actions         The server will provide the specified actions
                   to the user.
  :action-icons    Supports using icons instead of text for
                   displaying actions.
  :body            Supports body text.
  :body-hyperlinks The server supports hyperlinks in the notifications.
  :body-images     The server supports images in the notifications.
  :body-markup     Supports markup in the body text.
  :icon-multi      The server will render an animation of all the
                   frames in a given image array.
  :icon-static     Supports display of exactly 1 frame of any
                   given image array.  This value is mutually exclusive
                   with `:icon-multi'.
  :persistence     The server supports persistence of notifications.
  :sound           The server supports sounds on notifications.

Further vendor-specific caps start with `:x-vendor', like `:x-gnome-foo-cap'.

(fn &optional BUS)
(defalias 'notifications-get-capabilities #[256 "\3051\306\307\310\206\f\311	\n%\"0\207\f\205\312
@A\"\207" [notifications-service notifications-path notifications-interface notifications-get-capabilities-method dbus-debug (dbus-error) mapcar #[257 "\300\301P!\207" [intern ":"] 4 "\n\n(fn X)"] dbus-call-method :session signal] 9 (#$ . 10327)])
#@631 Return information on the notification server, a list of strings.
BUS can be a string denoting a D-Bus connection, the default is `:session'.
The returned list is (NAME VENDOR VERSION SPEC-VERSION).

  NAME         The product name of the server.
  VENDOR       The vendor name.  For example, "KDE", "GNOME".
  VERSION      The server's version number.
  SPEC-VERSION The specification version the server is compliant with.

If SPEC_VERSION is missing, the server supports a specification
prior to "1.0".

See `notifications-specification-version' for the specification
version this library is compliant with.

(fn &optional BUS)
(defalias 'notifications-get-server-information #[256 "\3051\306
\206\n\307	\n%0\207\f\205\310
@A\"\207" [notifications-service notifications-path notifications-interface notifications-get-server-information-method dbus-debug (dbus-error) dbus-call-method :session signal] 7 (#$ . 11831)])
(provide 'notifications)