Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
compface.elc	1.22 KB	-rw-r--r--
exif.elc	7.05 KB	-rw-r--r--
gravatar.elc	6.44 KB	-rw-r--r--
image-converter.elc	7.5 KB	-rw-r--r--

Code Editor : image-converter.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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 "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315&	\207" [require cl-generic custom-declare-variable image-converter funcall function #[0 "\300\207" [nil] 1] "Type of the external image converter to use.\nThe value should a symbol, either `imagemagick', `graphicsmagick',\nor `ffmpeg'.\nIf nil, Emacs will try to find one of the supported converters\ninstalled on the system." :group image :type symbol :version "27.1"] 10)
#@69 A regexp that matches the file name suffixes that can be converted.
(defvar image-converter-regexp nil (#$ . 858))
#@44 List of supported image converters to try.
(defvar image-converter--converters '((graphicsmagick :command ("gm" "convert") :probe ("-list" "format")) (ffmpeg :command "ffmpeg" :probe "-decoders") (imagemagick :command "convert" :probe ("-list" "format"))) (#$ . 979))
#@290 Return `image-convert' if SOURCE is an image that can be converted.
SOURCE can either be a file name or a string containing image
data.  In the latter case, DATA-P should be non-nil.  If DATA-P
is a string, it should be a MIME format string like
"image/gif".

(fn SOURCE &optional DATA-P)
(defalias 'image-convert-p #[513 "\204�\302 \210\203�	\204�\303!\211\203�\304\305!\306Q\210\205K�\211\204-�\307	\"\204J�\211\205K�\2119\205K�\307\310\311!\"\205K�\307	\312\313!P\"\205K�\314\207" [image-converter image-converter-regexp image-converter--find-converter image-converter--probe "\\." regexp-opt "\\'" string-match "/" symbol-name "foo." image-converter--mime-type image-convert] 7 (#$ . 1254)])
#@492 Convert IMAGE file to the PNG format.
IMAGE can either be a file name or image data.

To pass in image data, IMAGE should a string containing the image
data, and IMAGE-FORMAT should be a symbol with a MIME format name
like "image/webp".  For instance:

(image-convert data-string 'image/bmp)

IMAGE can also be an image object as returned by `create-image'.

This function converts the image to PNG, and the converted image
data is returned as a string.

(fn IMAGE &optional IMAGE-FORMAT)
(defalias 'image-convert #[513 "\204�\301 \210\204�\302\303!\210\211\203#�\304\305!\306\"G\307U\204#�\302\310!\210\311\312!r\211q\210\313\314\315\316\317!\320\"\307$\216\321\322!\210\323<\203I�\324A\325\"\202J�<\203X�\324A\326\"\202Y�#\211\203c�\302\327\"\210\210<\203\251�\330\331\332 \333\334A\322\211\211\211:\203\241�\262\211A\262\242\262@\262\335=\204\231�\336D!\244\262AA\262\202v�\211\237\266\205%\202\253�\332 *\207" [image-converter image-converter--find-converter error "No external image converters available" split-string symbol-name "/" 2 "IMAGE-FORMAT should be a symbol like `image/png'" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] set-buffer-multibyte nil image-converter--convert plist-get :file :data-p "%s" apply create-image buffer-string png t :type reverse] 16 (#$ . 1970)])
#@67 Return the value of ELEM of image converter TYPE.

(fn TYPE ELEM)
(defalias 'image-converter--value #[514 "\301\236A\"\211;\203�\211C\202�\211\207" [image-converter--converters plist-get] 5 (#$ . 3372)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\301\302\307\302\310%\207" [cl-generic-define-method image-converter--probe nil ((type (eql graphicsmagick))) #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\"\313\314@!\205Z�\315\316@\313\317\313\320A\311\f\321\"\"&\303U\205Z�eb\210\322\323\313\324#\203X�\325y\210\322\326\313\324#\203X�\327\325!\227B\262\202E�\211\237\266\202*\207" [generate-new-buffer #1=" *temp*" make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 image-converter--value :command nil executable-find apply call-process (t nil) append :probe re-search-forward "^-" t 1 "^ *\$[A-Z0-9]+\$ +. +r" match-string] 15 "Check whether the system has GraphicsMagick installed.\n\n(fn TYPE)"] ((type (eql imagemagick))) #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\"\313\314@!\2033�\315\316@\313\317\313\320A\311\f\321\"\"&\210eb\210\322\323\313\324#\203T�\325y\210\322\326\313\324#\203T�\327\325!\227B\262\202A�\211\237\266\202*\207" [generate-new-buffer #1# make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 image-converter--value :command nil executable-find apply call-process (t nil) append :probe re-search-forward "^-" t 1 "^ *\$[A-Z0-9]+\$\\*?\$?: +[A-Z0-9]+\$? +r" match-string] 15 "Check whether the system has ImageMagick installed.\n\n(fn TYPE)"] ((type (eql ffmpeg))) #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\"\313\314@!\205Y�\315\316@\313\317\313\320A\311\f\321\"\"&\303U\205Y�eb\210\322\323\313\324#\203W�\325y\210\322\326\313\324#\203W�\327\325!B\262\202E�\211\237\266\202*\207" [generate-new-buffer #1# make-byte-code 0 "\301\300!\205	�\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 image-converter--value :command nil executable-find apply call-process (t nil) append :probe re-search-forward "^ *-" t 1 "^ *V[^ ]+ +\$[a-z0-9_]+\$" match-string] 15 "Check whether the system has ffmpeg installed.\n\n(fn TYPE)"]] 6)
#@36 Find an installed image converter.
(defalias 'image-converter--find-converter #[0 "\3032-�\211\205*�\211@\304@!\211\203\"�@\305\306!\307Q\310\303	\"\210\210A\266\202\202�\2620\207" [image-converter--converters image-converter image-converter-regexp done image-converter--probe "\\." regexp-opt "\\'" throw] 6 (#$ . 5664)])
(byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\207" [cl-generic-define-method image-converter--convert nil ((type (eql graphicsmagick)) source image-format) #[771 "\300#\207" [image-converter--convert-magick] 7 "Convert using GraphicsMagick.\n\n(fn TYPE SOURCE IMAGE-FORMAT)"] ((type (eql imagemagick)) source image-format) #[771 "\300#\207" [image-converter--convert-magick] 7 "Convert using ImageMagick.\n\n(fn TYPE SOURCE IMAGE-FORMAT)"]] 6)
#@21

(fn IMAGE-FORMAT)
(defalias 'image-converter--mime-type #[257 "\2119\205
�\300\301!\302\"A@\207" [split-string symbol-name "/"] 4 (#$ . 6473)])
#@33

(fn TYPE SOURCE IMAGE-FORMAT)
(defalias 'image-converter--convert-magick #[771 "\300\301\"\203'�c\210\302\303ed@\304\211\305\306	A\307\310\311!\"\312D\"&\202;�\302\313@\305\304\305\306A\314!\312D\"&\315U?\205C�\316 \207" [image-converter--value :command apply call-process-region t nil append format "%s:-" image-converter--mime-type "png:-" call-process expand-file-name 0 buffer-string] 18 (#$ . 6626)])
(byte-code "\300\301\302\303\302\304%\210\305\306!\207" [cl-generic-define-method image-converter--convert nil ((type (eql ffmpeg)) source image-format) #[771 "\300\301\"\203'�c\210\302\303ed@\304\305\306\307	A\310\311\312\313\314\315\311\257\"&\202A�\302\316@\306\317\306\307A\310\320\f!\312\313\314\315\311\257\"&\321U?\205H�\322\207" [image-converter--value :command apply call-process-region t (t nil) nil append "-i" "-" "-c:v" "png" "-f" "image2pipe" call-process (t nil) expand-file-name 0 "ffmpeg error when converting"] 21 "Convert using ffmpeg.\n\n(fn TYPE SOURCE IMAGE-FORMAT)"] provide image-converter] 6)

${this.title}

Code Editor : image-converter.elc