;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\"\216c\210eb\210\305\306\307\302#\2033\310\311!\311\224\311\225|\210b\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\\| \\)*\"?" 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)