ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/notifications.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'dbus)
#@69 The version of the Desktop Notifications Specification implemented.
(defconst notifications-specification-version "1.2" (#$ . 426))
#@27 Default application name.
(defconst notifications-application-name "Emacs" (#$ . 564))
#@27 Default application icon.
(defconst notifications-application-icon (expand-file-name "images/icons/hicolor/scalable/apps/emacs.svg" data-directory) (#$ . 657))
#@35 D-Bus notifications service name.
(defconst notifications-service "org.freedesktop.Notifications" (#$ . 823))
#@35 D-Bus notifications service path.
(defconst notifications-path "/org/freedesktop/Notifications" (#$ . 939))
#@40 D-Bus notifications service interface.
(defconst notifications-interface "org.freedesktop.Notifications" (#$ . 1053))
#@36 D-Bus notifications notify method.
(defconst notifications-notify-method "Notify" (#$ . 1177))
#@48 D-Bus notifications close notification method.
(defconst notifications-close-notification-method "CloseNotification" (#$ . 1278))
#@46 D-Bus notifications get capabilities method.
(defconst notifications-get-capabilities-method "GetCapabilities" (#$ . 1414))
#@52 D-Bus notifications get server information method.
(defconst notifications-get-server-information-method "GetServerInformation" (#$ . 1544))
#@36 D-Bus notifications action signal.
(defconst notifications-action-signal "ActionInvoked" (#$ . 1691))
#@36 D-Bus notifications closed signal.
(defconst notifications-closed-signal "NotificationClosed" (#$ . 1799))
#@53 List of reasons why a notification has been closed.
(defconst notifications-closed-reason '((1 expired) (2 dismissed) (3 close-notification) (4 undefined)) (#$ . 1912))
#@61 Mapping between notification and action callback functions.
(defvar notifications-on-action-map nil (#$ . 2087))
#@41 Object for registered on-action signal.
(defvar notifications-on-action-object nil (#$ . 2206))
#@60 Mapping between notification and close callback functions.
(defvar notifications-on-close-map nil (#$ . 2308))
#@40 Object for registered on-close signal.
(defvar notifications-on-close-object nil (#$ . 2425))
#@76 Dispatch signals to callback functions from `notifications-on-action-map'.
(defalias 'notifications-on-action-signal #[(id action) "\306!\307!\310 \n E\f\"\211 \2054
A@ \f\"\210\311
\f\"\211?\2054
\2054 \312
!\210\313\211
+\207" [last-input-event bus unique-name id notifications-on-action-map entry dbus-event-bus-name dbus-event-service-name assoc remove dbus-unregister-object nil action notifications-on-action-object] 5 (#$ . 2525)])
#@76 Dispatch signals to callback functions from `notifications-on-closed-map'.
(defalias 'notifications-on-closed-signal #[(id &optional reason) "\306!\307!\310 \n E\f\"
\206 \311
\205B
A@ \310
\"A@\"\210\312
\f\"\211?\205B \205B \313!\210\314\211,\207" [last-input-event bus unique-name id notifications-on-close-map entry dbus-event-bus-name dbus-event-service-name assoc 4 remove dbus-unregister-object nil reason notifications-closed-reason notifications-on-close-object] 5 (#$ . 2981)])
#@4399 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.
(defalias 'notifications-notify #[(&rest params) "\3061s\307\310\"\206\f \311\307\312\"\307\313\"\307\314\"\307\315\"\307\316\"\307\317\"\307\320\"\321\307\322\"\307\323\"\307\324\"\307\325\"\307\326\"\307\327\"\307\330\"\307\331\"\307\332\"\307\333\"\307\334\"\307\335\"\307\336\"\321 @ A B C D E F G H I J K L M N O P QH\203\302 \337\340\341\342H\343=\203\233 \344\202\247 H\345=\203\246 \346\202\247 \347EE\211 RI\235\203\270 I\210\202\301 \350IRC\"I)G\203\350 \337\351\341\352GEE\211 SI\235\203\336 I\210\202\347 \350ISC\"I)F\203\337\353\341\352FEE\211 TI\235\203I\210\202
\350ITC\"I)E\2034\337\354\341\355EEE\211 UI\235\203*I\210\2023\350IUC\"I)D\203Z\337\356\341\352DEE\211 VI\235\203PI\210\202Y\350IVC\"I)C\203\200\337\357\341\360CEE\211 WI\235\203vI\210\202\350IWC\"I)B\203\246\337\361\341\352BEE\211 XI\235\203\234I\210\202\245\350IXC\"I)A\203\314\337\362\341\352AEE\211 YI\235\203\302I\210\202\313\350IYC\"I)@\203\362\337\363\341\360@EE\211 ZI\235\203\350I\210\202\361\350IZC\"I)
\203\337\364\341\360
EE\211 [I\235\203\fI\210\202\350I[C\"I)\f\203:\337\365\341\360\fEE\211 \\I\235\2030I\210\2029\350I\\C\"I) \203^\337\366\341\367 EE\211 ]I\235\203TI\210\202]\350I]C\"I)\n\203\202\337\370\341\367\nEE\211 ^I\235\203xI\210\202\201\350I^C\"I)\371Q_`ab\352N\206\225c\372M\206\234\344\352L\203\251\373L!\202\266\374\316\"\203\264\375\202\266d\352P\206\275\375\352O\206\304\375\376KBI\206\316\377\367J\206\327\201q &\307\201r \"\307\201s \"\201t Q_\" e f\211 g\2030Qe EgD\211 hi\235\203i\210\202hiBi)j\2040\201u Q\321`ak\201v &jf\203mQe EfD\211 lm\235\203Mm\210\202TlmBm)n\204m\201u Q\321`ao\201w &n+ .0\207 p\201x \201y p\"\210)\321\207" [params id y x transient resident (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 low 0 critical 2 1 append "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}") suppress-sound sound-name sound-file action-items image-path image-data desktop-entry category urgency hints timeout actions app-icon replaces-id app-name body title bus #1=#:x #2=#:x #3=#:x #4=#:x #5=#:x #6=#:x #7=#:x #8=#:x #9=#:x #10=#:x #11=#:x #12=#:x #13=#:x notifications-service notifications-path notifications-interface notifications-notify-method notifications-application-name notifications-application-icon unique-name on-close on-action #14=#:x notifications-on-action-map notifications-on-action-object notifications-action-signal #15=#:x notifications-on-close-map notifications-on-close-object notifications-closed-signal #16=#:err -1 :on-action :on-close dbus-get-name-owner dbus-register-signal notifications-on-action-signal notifications-on-closed-signal message "Error: %S"] 25 (#$ . 3497)])
#@118 Close a notification with identifier ID.
BUS can be a string denoting a D-Bus connection, the default is `:session'.
(defalias 'notifications-close-notification #[(id &optional bus) "\306\206 \307 \n \f\310
&\207" [bus notifications-service notifications-path notifications-interface notifications-close-notification-method id dbus-call-method :session :uint32] 8 (#$ . 11191)])
#@1122 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'.
(defalias 'notifications-get-capabilities #[(&optional bus) "\3061 \307\310\311\206\f \312 \n \f%\"0\207 \f\205 \313
@
A\")\207" [bus notifications-service notifications-path notifications-interface notifications-get-capabilities-method err (dbus-error) mapcar #[(x) "\301\302P!\207" [x intern ":"] 3] dbus-call-method :session signal dbus-debug] 8 (#$ . 11581)])
#@611 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.
(defalias 'notifications-get-server-information #[(&optional bus) "\3061 \307\206\n \310 \n \f%0\207 \n\205 \311
@
A\")\207" [bus notifications-service notifications-path notifications-interface notifications-get-server-information-method err (dbus-error) dbus-call-method :session signal dbus-debug] 6 (#$ . 13078)])
(provide 'notifications)
Kontol Shell Bypass