blob: 34c3e7e9948b7f76b9ff05810cd07b6e0b69152a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
;; -*- lexical-binding: t -*-
(require 'image)
(require 'seq)
;; Check if all necessary image types are supported
(seq-do (lambda (image-type)
(unless (image-type-available-p image-type)
(lwarn '(ennu) :error "`%s' image type not supported" image-type)))
'(jpeg png svg))
;; Check for existence of external image processing utilities
(seq-do (lambda (external-program)
(unless (executable-find external-program)
(lwarn '(ennu) :error "`%s' not found" external-program)))
'("convert" "identify" "jpegtran" "optipng"))
(defun ennu-image-resize-image (infile-path outfile-path width)
"A simple shell wrapper around ImageMagick's convert"
(ennu-image--assert-file-exists infile-path)
(cl-case (image-type infile-path)
(svg
(copy-file infile-path outfile-path t))
(otherwise
(call-process "convert" nil nil nil
infile-path "-resize" (format "%d>" width) outfile-path)))
outfile-path)
(defun ennu-image-optimize-image (image-path)
"A simple shell wrapper around jpegtran and optipng"
(ennu-image--assert-file-exists image-path)
(cl-case (image-type image-path)
(jpeg
(call-process "jpegtran" nil nil nil "-optimize"
"-progressive" "-copy" "none"
"-outfile" image-path image-path))
(png
(call-process "optipng" nil nil nil image-path)))
image-path)
(defun ennu-image-get-width (image-path)
(ennu-image--assert-file-exists image-path)
(cl-case (image-type image-path)
(svg 1e+INF)
(otherwise
(with-temp-buffer
(call-process "identify" nil t nil
"-format" "%w" image-path)
(string-to-number (buffer-string))))))
(defun ennu-image--assert-file-exists (path)
(unless (file-exists-p path)
(error "File %s does not exist" path)))
(provide 'ennu-image)
|
