| Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/net/eudc-bob.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 'eudc)
#@32 Keymap for multimedia objects.
(defvar eudc-bob-generic-keymap nil (#$ . 424))
#@27 Keymap for inline images.
(defvar eudc-bob-image-keymap nil (#$ . 509))
#@27 Keymap for inline sounds.
(defvar eudc-bob-sound-keymap nil (#$ . 587))
#@25 Keymap for inline urls.
(defvar eudc-bob-url-keymap nil (#$ . 665))
#@37 Keymap for inline e-mail addresses.
(defvar eudc-bob-mail-keymap nil (#$ . 739))
(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)]] 4))
#@52 Jump to the window and point where EVENT occurred.
(defalias 'eudc-jump-to-event #[(event) "\301\302!\203 \302!b\207\303\304!\211@\262!q\210\305\304!!b\207" [event fboundp event-closest-point window-buffer event-start posn-point] 3 (#$ . 1425)])
#@52 Get property PROP from one of the overlays around.
(defalias 'eudc-bob-get-overlay-prop #[(prop) "\305\306`S!\306`!\"\307\211\310\203, @\211\203, \311\n\f\"\211\203& \307 A\202 ,\207" [notfound value overlay overlays prop append overlays-at nil t overlay-get] 4 (#$ . 1682)])
#@49 Return non-nil if we can display images inline.
(defalias 'eudc-bob-can-display-inline-images #[nil "\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 (#$ . 1976)])
#@108 Create a button with LABEL.
Attach KEYMAP, MENU and properties from PLIST to a new overlay covering
LABEL.
(defalias 'eudc-bob-make-button #[(label keymap &optional menu plist) "\306`\306\211\fc\210\307\n`\310\311$\210\312\n`\"\313 \314\315#\210\313 \305
#\210\313 \316
#\210\313 \317#\210\205O @A\211@A\313 #\210\2020 ,\207" [val prop p overlay label keymap nil put-text-property face bold make-overlay overlay-put mouse-face highlight local-map menu plist] 6 (#$ . 2236)])
#@114 Display the JPEG DATA at point.
If INLINE is non-nil, try to inline the image otherwise simply
display a button.
(defalias 'eudc-bob-display-jpeg #[(data inline) "\306\307!\2030 \310 \205 \307\311\312\313#\314D!\315\316\n \301 \317\f\205! \320\321\322\f\323\321\324\321\325\257$)\207\306\326!\205] \326\327\321# \325\330
F \f\203U \331\312!\203U \332
D \244 \315\333\n $*\207" [data glyph eudc-bob-image-keymap eudc-bob-image-menu inline image fboundp make-glyph eudc-bob-can-display-inline-images vector jpeg :data [string :data "[JPEG Picture]"] eudc-bob-make-button "[JPEG Picture]" end-glyph duplicable t invisible start-open end-open object-data create-image nil eudc-image image-type-available-p display "[Picture]" props] 18 (#$ . 2741)])
#@36 Toggle inline display of an image.
(defalias 'eudc-bob-toggle-inline-display #[nil "\304 \205H \305\306`S!\306`!\"\307\2032 \2042 \310@\311\"\211\242\301=\203+ \n\202. A)\202 \205G @\312 \313\310 \313\"?\205E #)*\207" [overlays image prop overlay eudc-bob-can-display-inline-images append overlays-at nil overlay-get eudc-image overlay-put display] 7 (#$ . 3506) nil])
#@34 Display a button for audio DATA.
(defalias 'eudc-bob-display-audio #[(data) "\303\304 \305\306\307\306\310\306\311\n\257$\207" [eudc-bob-sound-keymap eudc-bob-sound-menu data eudc-bob-make-button "[Audio Sound]" duplicable t start-open end-open object-data] 12 (#$ . 3895)])
#@48 Display a button for unidentified binary DATA.
(defalias 'eudc-bob-display-generic-binary #[(data) "\303\304 \305\306\307\306\310\306\311\n\257$\207" [eudc-bob-generic-keymap eudc-bob-generic-menu data eudc-bob-make-button "[Binary Data]" duplicable t start-open end-open object-data] 12 (#$ . 4178)])
#@55 Play the sound data contained in the button at point.
(defalias 'eudc-bob-play-sound-at-point #[nil "\301\302\303!\211\204 \304\305!\202 \306\307!\204 \304\310!\210\307\300\311E!)\207" [sound nil eudc-bob-get-overlay-prop object-data error "No sound data available here" fboundp play-sound "Playing sounds not supported on this system" :data] 4 (#$ . 4488) nil])
#@67 Play the sound data contained in the button where EVENT occurred.
(defalias 'eudc-bob-play-sound-at-mouse #[(event) "\212\301!\210\302 )\207" [event eudc-jump-to-event eudc-bob-play-sound-at-point] 2 (#$ . 4863) "e"])
#@46 Save the object data of the button at point.
(defalias 'eudc-bob-save-object #[nil "\302\303!\304\305!\212\306\307!\203 \307\310!\210q\210\311\312!\210 c\210\313 \210)\314!*\207" [buffer data eudc-bob-get-overlay-prop object-data generate-new-buffer "*eudc-tmp*" fboundp set-buffer-file-coding-system binary set-buffer-multibyte nil save-buffer kill-buffer] 3 (#$ . 5088) nil])
#@69 Pipe the object data of the button at point to an external program.
(defalias 'eudc-bob-pipe-object-to-external-program #[nil "\305\306!\307\310!\311\211\3121F \212\313\314!\203 \314\315!\210\nq\210 c\210\316\317\f\"\320 \f\"\211\203< \321edA@AA$\202A \321ed #)0\202J \210\322\n!,\207" [viewer program buffer data eudc-external-viewers eudc-bob-get-overlay-prop object-data generate-new-buffer "*eudc-tmp*" nil (error) fboundp set-buffer-file-coding-system binary completing-read "Viewer: " assoc call-process-region kill-buffer] 5 (#$ . 5477) nil])
#@48 Retrieve the menu attached to a binary object.
(defalias 'eudc-bob-menu #[nil "\300\301!\207" [eudc-bob-get-overlay-prop menu] 2 (#$ . 6042)])
#@44 Pop-up a menu of EUDC multimedia commands.
(defalias 'eudc-bob-popup-menu #[(event) "\303\304!\210\305!\210\306\307\310 \"\311\211\205 \312\310 \313\314\n\"\"\315 !*\207" [event command result run-hooks activate-menubar-hook eudc-jump-to-event x-popup-menu t eudc-bob-menu nil lookup-key apply vector command-execute] 6 (#$ . 6191) "@e"])
(byte-code "\306 \307\310\311#\210\307\312\313#\210\307\314\315#\210)\306 \307\316\317#\210)\306 \307\320\321#\210\307\322\323#\210)\306 \307\324\325#\210\307\326\327#\210)\306 \307\330\331#\210\307\332\331#\210)\333\n \"\210\333 \"\207" [map eudc-bob-generic-keymap eudc-bob-image-keymap eudc-bob-sound-keymap eudc-bob-url-keymap eudc-bob-mail-keymap make-sparse-keymap define-key "s" eudc-bob-save-object "!" eudc-bob-pipe-object-to-external-program [down-mouse-3] eudc-bob-popup-menu "t" eudc-bob-toggle-inline-display [return] eudc-bob-play-sound-at-point [down-mouse-2] eudc-bob-play-sound-at-mouse [return] browse-url-at-point [down-mouse-2] browse-url-at-mouse [return] goto-address-at-point [down-mouse-2] set-keymap-parent] 4)
#@2
(defvar eudc-bob-generic-menu nil (#$ . 7302))
(easy-menu-do-define 'eudc-bob-generic-menu eudc-bob-generic-keymap "" eudc-bob-generic-menu)
#@2
(defvar eudc-bob-image-menu nil (#$ . 7449))
(easy-menu-do-define 'eudc-bob-image-menu eudc-bob-image-keymap "" eudc-bob-image-menu)
#@2
(defvar eudc-bob-sound-menu nil (#$ . 7588))
(easy-menu-do-define 'eudc-bob-sound-menu eudc-bob-sound-keymap "" eudc-bob-sound-menu)
#@48 Display a button for unidentified binary DATA.
(defalias 'eudc-display-generic-binary #[(data) "\301!\207" [data eudc-bob-display-generic-binary] 2 (#$ . 7728)])
#@36 Display URL and make it clickable.
(defalias 'eudc-display-url #[(url) "\302\303!\210\304 \"\207" [url eudc-bob-url-keymap require browse-url eudc-bob-make-button] 3 (#$ . 7897)])
#@47 Display e-mail address and make it clickable.
(defalias 'eudc-display-mail #[(mail) "\302\303!\210\304 \"\207" [mail eudc-bob-mail-keymap require goto-addr eudc-bob-make-button] 3 (#$ . 8084)])
#@42 Display a button to play the sound DATA.
(defalias 'eudc-display-sound #[(data) "\301!\207" [data eudc-bob-display-audio] 2 (#$ . 8285)])
#@52 Display the JPEG DATA inline at point if possible.
(defalias 'eudc-display-jpeg-inline #[(data) "\301\302 \"\207" [data eudc-bob-display-jpeg eudc-bob-can-display-inline-images] 3 (#$ . 8430)])
#@37 Display a button for the JPEG DATA.
(defalias 'eudc-display-jpeg-as-button #[(data) "\301\302\"\207" [data eudc-bob-display-jpeg nil] 3 (#$ . 8631)])