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



(require 'eudc)
#@32 Keymap for multimedia objects.
(defvar eudc-bob-generic-keymap (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\207" [make-sparse-keymap define-key "s" eudc-bob-save-object "!" eudc-bob-pipe-object-to-external-program [down-mouse-3] eudc-bob-popup-menu] 5) (#$ . 100))
#@27 Keymap for inline images.
(defvar eudc-bob-image-keymap (byte-code "\301 \302
\"\210\303
\304\305#\210\207" [eudc-bob-generic-keymap make-sparse-keymap set-keymap-parent define-key "t" eudc-bob-toggle-inline-display] 5) (#$ . 398))
#@27 Keymap for inline sounds.
(defvar eudc-bob-sound-keymap (byte-code "\301 \302
\"\210\303
\304\305#\210\303
\306\307#\210\207" [eudc-bob-generic-keymap make-sparse-keymap set-keymap-parent define-key "
" eudc-bob-play-sound-at-point [down-mouse-2] eudc-bob-play-sound-at-mouse] 5) (#$ . 637))
#@25 Keymap for inline urls.
(defvar eudc-bob-url-keymap (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\207" [make-sparse-keymap define-key "
" browse-url-at-point [down-mouse-2] browse-url-at-mouse] 5) (#$ . 936))
#@37 Keymap for inline e-mail addresses.
(defvar eudc-bob-mail-keymap (byte-code "\300 \301
\302\303#\210\301
\304\303#\210\207" [make-sparse-keymap define-key "
" goto-address-at-point [down-mouse-2]] 5) (#$ . 1159))
(defvar eudc-bob-generic-menu '("EUDC Binary Object Menu" ["---" nil nil] ["Pipe to external program" eudc-bob-pipe-object-to-external-program t] ["Save object" eudc-bob-save-object t]))
(defvar eudc-bob-image-menu (byte-code "\301\302\303AABBB\207" [eudc-bob-generic-menu "EUDC Image Menu" ["---" nil nil] ["Toggle inline display" eudc-bob-toggle-inline-display (eudc-bob-can-display-inline-images)]] 4))
(defvar eudc-bob-sound-menu (byte-code "\301\302\303AABBB\207" [eudc-bob-generic-menu "EUDC Sound Menu" ["---" nil nil] ["Play sound" eudc-bob-play-sound-at-point (fboundp 'play-sound-internal)]] 4))
#@63 Get property PROP from one of the overlays around.

(fn PROP)
(defalias 'eudc-bob-get-overlay-prop #[257 "\300\301`S!\301`!\"\302\211\303\211\203-@\211\262\203-\304\"\211\262\203&\302\262
A\262\202\f
\207" [append overlays-at nil t overlay-get] 8 (#$ . 1986)])
#@49 Return non-nil if we can display images inline.
(defalias 'eudc-bob-can-display-inline-images #[0 "\300\301!\203\301 \302>\205\300\303!\207\300\304!\205\304 \207" [fboundp console-type (x mswindows) make-glyph display-graphic-p] 2 (#$ . 2265)])
#@148 Create a button with LABEL.
Attach KEYMAP, MENU and properties from PLIST to a new overlay covering
LABEL.

(fn LABEL KEYMAP &optional MENU PLIST)
(defalias 'eudc-bob-make-button #[1026 "\300`\300\211c\210\301`\302\303$\210\304`\"\262\305\306\307#\210\305\310	#\210\305\311	#\210\305\312#\210\205M@\262A\262@\262
A\262\305#\210\2020\207" [nil put-text-property face bold make-overlay overlay-put mouse-face highlight keymap local-map menu] 13 (#$ . 2523)])
#@132 Display the JPEG DATA at point.
If INLINE is non-nil, try to inline the image otherwise simply
display a button.

(fn DATA INLINE)
(defalias 'eudc-bob-display-jpeg #[514 "\302\303!\203.\304 \205\303\305\306\307#\310D!\311\312	\313\314\205\"\315\316\317\f\320\257\n$\207\302\321!\205W\321\322\316#\320\323F\203O\324\306!\203O\325D
\244\262
\311\326	$\266\202\207" [eudc-bob-image-keymap eudc-bob-image-menu fboundp make-glyph eudc-bob-can-display-inline-images vector jpeg :data [string :data "[JPEG Picture]"] eudc-bob-make-button "[JPEG Picture]" glyph end-glyph duplicable t invisible object-data create-image nil eudc-image image-type-available-p display "[Picture]"] 17 (#$ . 3013)])
#@36 Toggle inline display of an image.
(defalias 'eudc-bob-toggle-inline-display #[0 "\300 \205G\301\302`S!\302`!\"\303
\2030\211\2040\304@\305\"\211\242\306=\203(\262
\202A\262\210\202
\205E
@\307
\310\304\310\"?\205B#\262
\266\202\207" [eudc-bob-can-display-inline-images append overlays-at nil overlay-get eudc-image image overlay-put display] 9 (#$ . 3731) nil])
#@45 Display a button for audio DATA.

(fn DATA)
(defalias 'eudc-bob-display-audio #[257 "\302\303	\304\305\306F$\207" [eudc-bob-sound-keymap eudc-bob-sound-menu eudc-bob-make-button "[Audio Sound]" duplicable t object-data] 9 (#$ . 4115)])
#@59 Display a button for unidentified binary DATA.

(fn DATA)
(defalias 'eudc-bob-display-generic-binary #[257 "\302\303	\304\305\306F$\207" [eudc-bob-generic-keymap eudc-bob-generic-menu eudc-bob-make-button "[Binary Data]" duplicable t object-data] 9 (#$ . 4360)])
#@55 Play the sound data contained in the button at point.
(defalias 'eudc-bob-play-sound-at-point #[0 "\300\301\302!\211\262\204\303\304!\207\305\306!\204\303\307!\210\310\311\312E!\207" [nil eudc-bob-get-overlay-prop object-data error "No sound data available here" fboundp play-sound-internal "Playing sounds not supported on this system" play-sound sound :data] 5 (#$ . 4632) nil])
#@79 Play the sound data contained in the button where EVENT occurred.

(fn EVENT)
(defalias 'eudc-bob-play-sound-at-mouse #[257 "\212\300
!\210\301 )\207" [mouse-set-point eudc-bob-play-sound-at-point] 3 (#$ . 5025) "e"])
#@61 Save the object data of the button at point.

(fn FILENAME)
(defalias 'eudc-bob-save-object #[257 "\301\302!\303\304
\305#)\207" [coding-system-for-write eudc-bob-get-overlay-prop object-data binary write-region nil] 6 (#$ . 5249) "fWrite file: "])
#@83 Pipe the object data of the button at point to an external program.

(fn PROGRAM)
(defalias 'eudc-bob-pipe-object-to-external-program #[257 "\302\303!\304\"\305\306\307\"r\211q\210\310\311\"\216\312\313!\210c\210\314
\203.\315edA@AA$\2024\315ed#+\207" [eudc-external-viewers coding-system-for-write eudc-bob-get-overlay-prop object-data assoc generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil binary call-process-region] 9 (#$ . 5506) (byte-code "\301\302\"C\207" [eudc-external-viewers completing-read "Viewer: "] 3)])
#@48 Retrieve the menu attached to a binary object.
(defalias 'eudc-bob-menu #[0 "\300\301!\207" [eudc-bob-get-overlay-prop menu] 2 (#$ . 6131)])
#@56 Pop-up a menu of EUDC multimedia commands.

(fn EVENT)
(defalias 'eudc-bob-popup-menu #[257 "\300\301!\210\302
!\210\303\304 \"\207" [run-hooks activate-menubar-hook mouse-set-point popup-menu eudc-bob-menu] 4 (#$ . 6278) "@e"])
#@26 EUDC Binary Object Menu.
(defvar eudc-bob-generic-menu nil (#$ . 6514))
(easy-menu-do-define 'eudc-bob-generic-menu eudc-bob-generic-keymap "EUDC Binary Object Menu." eudc-bob-generic-menu)
#@18 EUDC Image Menu.
(defvar eudc-bob-image-menu nil (#$ . 6710))
(easy-menu-do-define 'eudc-bob-image-menu eudc-bob-image-keymap "EUDC Image Menu." eudc-bob-image-menu)
#@18 EUDC Sound Menu.
(defvar eudc-bob-sound-menu nil (#$ . 6882))
(easy-menu-do-define 'eudc-bob-sound-menu eudc-bob-sound-keymap "EUDC Sound Menu." eudc-bob-sound-menu)
#@59 Display a button for unidentified binary DATA.

(fn DATA)
(defalias 'eudc-display-generic-binary #[257 "\300
!\207" [eudc-bob-display-generic-binary] 3 (#$ . 7054)])
#@46 Display URL and make it clickable.

(fn URL)
(defalias 'eudc-display-url #[257 "\301\302!\210\303
\"\207" [eudc-bob-url-keymap require browse-url eudc-bob-make-button] 4 (#$ . 7226)])
#@58 Display e-mail address and make it clickable.

(fn MAIL)
(defalias 'eudc-display-mail #[257 "\301\302!\210\303
\"\207" [eudc-bob-mail-keymap require goto-addr eudc-bob-make-button] 4 (#$ . 7417)])
#@53 Display a button to play the sound DATA.

(fn DATA)
(defalias 'eudc-display-sound #[257 "\300
!\207" [eudc-bob-display-audio] 3 (#$ . 7621)])
#@63 Display the JPEG DATA inline at point if possible.

(fn DATA)
(defalias 'eudc-display-jpeg-inline #[257 "\300
\301 \"\207" [eudc-bob-display-jpeg eudc-bob-can-display-inline-images] 4 (#$ . 7769)])
#@48 Display a button for the JPEG DATA.

(fn DATA)
(defalias 'eudc-display-jpeg-as-button #[257 "\300
\301\"\207" [eudc-bob-display-jpeg nil] 4 (#$ . 7973)])