/
notify.elc
30 lines (25 loc) · 2.45 KB
/
notify.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
;ELC
;;; Compiled by lucashungaro@IronMan on Fri Jan 7 02:38:34 2011
;;; from file /Users/lucashungaro/.emacs.d/elpa-to-submit/notify.el
;;; in Emacs version 23.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\301B\302\301!\204 \303\301\304\"\210\305B\302\305!\204) \303\305\306\307\310\311\312\313\314\315\316\317\257\n\"\210\320B\302\320!\2048 \303\320\321\"\210\322B\302\322!\204G \303\322\323\"\210\324B\302\324!\204V \303\324\325\"\210\326B\302\326!\204e \303\326\327\"\210\301\207" [current-load-list notify-last default-boundp set-default (0 0 0) notify-defaults :app "GNU Emacs" :icon "/usr/share/icons/emacs22/emacs_48.png" :timeout 10000 :urgency "low" :category "emacs.message" notify-id 0 notify-delay (0 5 0) notify-last-notification (0 5 0) notify-method notify-via-dbus] 12)
#@34 Return the next notification id.
(defalias 'notify-next-id #[nil "T\211\207" [notify-id] 2 (#$ . 1136)])
#@29 Send notification via DBus.
(defalias 'notify-via-dbus #[(title body params) "\302\303!\205% \303\304\305\"\205% \306\304\305\307\305\310\311\312N\313 \311\314N \315\316\317\311\320N&\207" [title body fboundp dbus-ping :session "org.freedesktop.Notifications" dbus-call-method "/org/freedesktop/Notifications" "Notify" params :app notify-next-id :icon (:array) (:array :signature "{sv}") :int32 :timeout] 16 (#$ . 1249)])
#@38 Use pop-up notifications for events.
(defalias 'notify #[(title body &rest args) "\306\307 !\"\203 \310\311\302 \f#\210\312 \f\n#\210)\310\207" [notify-delay notify-last-notification params args notify-defaults notify-method time-less-p time-since nil keywords-to-properties current-time title body] 4 (#$ . 1679)])
#@144 Convert a list in the form (:keywordA valueA
:keywordB valueB ...)
to a list of propertys with the given values
(defalias 'keywords-to-properties #[(symbol args &optional defaults) "\242\203\n \306 \"\210\n\2059 \n@\nA 9\204 \307\310\n\"\210 \n@ \n\204, \307\311\"\210\nA\312 \f#\210+\202\n \207" [defaults symbol args arg value keyword keywords-to-properties error "Junk in args %S" "Keyword %s is missing an argument" put] 4 (#$ . 2010)])
(provide 'notify)