;ELC���
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.



(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable haskell-svg-render-images funcall function #[0 "\300\207" [nil] 1] "Replace SVG image text with actual images." :group haskell-interactive :type boolean] 8)
#@64 Defines if SVG images are supported by this instance of Emacs.
(defconst haskell-svg-supported (image-type-available-p 'svg) (#$ . 331))
#@29 Shall we render SVG images?
(defalias 'haskell-svg-render-images-p #[0 "\205\n�\302 \205\n�	\207" [haskell-svg-supported haskell-svg-render-images display-images-p] 1 (#$ . 474)])
#@88 Render SVG images if desired and supported, or terurn the
input unmodified.

(fn TEXT)
(defalias 'haskell-svg-maybe-render-images #[257 "\300 \203	�\301
!\207\207" [haskell-svg-render-images-p haskell-svg-render-images] 3 (#$ . 661)])
#@60 Replace an SVG image text with an actual image.

(fn TEXT)
(defalias 'haskell-svg-render-images #[257 "\300\301\302\"r\211q\210\303\304\"\216
c\210eb\210\305\306\307\302#\2033�\310\311!\311\224\311\225

|\210
b\210\312\313\307\302#\314\"\266ed{*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	�\302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward "\"?<\\?xml\\(.\\|\n\\|
\\)* PUBLIC \"-//W3C//DTD SVG [0-9].[0-9]//EN\\(.\\|\n\\|
\\)*</svg>\"?" nil match-string 0 insert-image create-image "SVG image"] 10 (#$ . 902)])
#@52 Toggle rendering of SVG images at the REPL output.
(defalias 'haskell-svg-toggle-render-images #[0 "?\211\207" [haskell-svg-render-images] 2 (#$ . 1464) nil])
(provide 'haskell-svg)