aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/image-dired.el48
1 files changed, 15 insertions, 33 deletions
diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index eed4280c034..560cadbe75b 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -221,19 +221,14 @@ expects to find pictures in this directory."
221 :group 'image-dired) 221 :group 'image-dired)
222 222
223(defcustom image-dired-cmd-create-thumbnail-program 223(defcustom image-dired-cmd-create-thumbnail-program
224 (cond ((executable-find "gm") "gm") 224 "convert"
225 ((executable-find "convert") "convert")
226 (t "convert"))
227 "Executable used to create thumbnail. 225 "Executable used to create thumbnail.
228Used together with `image-dired-cmd-create-thumbnail-options'." 226Used together with `image-dired-cmd-create-thumbnail-options'."
229 :version "26.1"
230 :type 'file 227 :type 'file
231 :group 'image-dired) 228 :group 'image-dired)
232 229
233(defcustom image-dired-cmd-create-thumbnail-options 230(defcustom image-dired-cmd-create-thumbnail-options
234 `(,@(when (string-match "gm\\'" image-dired-cmd-create-thumbnail-program) 231 '("-size" "%wx%h" "%f" "-resize" "%wx%h>" "-strip" "jpeg:%t")
235 '("convert"))
236 "-size" "%wx%h" "%f" "-resize" "%wx%h>" "-strip" "jpeg:%t")
237 "Options of command used to create thumbnail image. 232 "Options of command used to create thumbnail image.
238Used with `image-dired-cmd-create-thumbnail-program'. 233Used with `image-dired-cmd-create-thumbnail-program'.
239Available format specifiers are: %w which is replaced by 234Available format specifiers are: %w which is replaced by
@@ -244,20 +239,14 @@ which is replaced by the file name of the thumbnail file."
244 :type '(repeat (string :tag "Argument")) 239 :type '(repeat (string :tag "Argument"))
245 :group 'image-dired) 240 :group 'image-dired)
246 241
247(defcustom image-dired-cmd-create-temp-image-program 242(defcustom image-dired-cmd-create-temp-image-program "convert"
248 (cond ((executable-find "gm") "gm")
249 ((executable-find "convert") "convert")
250 (t "convert"))
251 "Executable used to create temporary image. 243 "Executable used to create temporary image.
252Used together with `image-dired-cmd-create-temp-image-options'." 244Used together with `image-dired-cmd-create-temp-image-options'."
253 :version "26.1"
254 :type 'file 245 :type 'file
255 :group 'image-dired) 246 :group 'image-dired)
256 247
257(defcustom image-dired-cmd-create-temp-image-options 248(defcustom image-dired-cmd-create-temp-image-options
258 `(,@(when (string-match "gm\\'" image-dired-cmd-create-temp-image-program) 249 '("-size" "%wx%h" "%f" "-resize" "%wx%h>" "-strip" "jpeg:%t")
259 '("convert"))
260 "-size" "%wx%h" "%f" "-resize" "%wx%h>" "-strip" "jpeg:%t")
261 "Options of command used to create temporary image for display window. 250 "Options of command used to create temporary image for display window.
262Used together with `image-dired-cmd-create-temp-image-program', 251Used together with `image-dired-cmd-create-temp-image-program',
263Available format specifiers are: %w and %h which are replaced by 252Available format specifiers are: %w and %h which are replaced by
@@ -327,17 +316,15 @@ Available format specifiers are described in
327 :group 'image-dired) 316 :group 'image-dired)
328 317
329(defcustom image-dired-cmd-create-standard-thumbnail-options 318(defcustom image-dired-cmd-create-standard-thumbnail-options
330 `(,@(when (string-match "gm\\'" image-dired-cmd-create-thumbnail-program) 319 (append '("-size" "%wx%h" "%f")
331 '("convert")) 320 (unless (or image-dired-cmd-pngcrush-program
332 "-size" "%wx%h" "%f" 321 image-dired-cmd-pngnq-program)
333 ,@(unless (or image-dired-cmd-pngcrush-program 322 (list
334 image-dired-cmd-pngnq-program) 323 "-set" "Thumb::MTime" "%m"
335 (list 324 "-set" "Thumb::URI" "file://%f"
336 "-set" "Thumb::MTime" "%m" 325 "-set" "Description" "Thumbnail of file://%f"
337 "-set" "Thumb::URI" "file://%f" 326 "-set" "Software" (emacs-version)))
338 "-set" "Description" "Thumbnail of file://%f" 327 '("-thumbnail" "%wx%h>" "png:%t"))
339 "-set" "Software" (emacs-version)))
340 "-thumbnail" "%wx%h>" "png:%t")
341 "Options for creating thumbnails according to the Thumbnail Managing Standard. 328 "Options for creating thumbnails according to the Thumbnail Managing Standard.
342Available format specifiers are the same as in 329Available format specifiers are the same as in
343`image-dired-cmd-create-thumbnail-options', with %m for file modification time." 330`image-dired-cmd-create-thumbnail-options', with %m for file modification time."
@@ -346,19 +333,14 @@ Available format specifiers are the same as in
346 :group 'image-dired) 333 :group 'image-dired)
347 334
348(defcustom image-dired-cmd-rotate-thumbnail-program 335(defcustom image-dired-cmd-rotate-thumbnail-program
349 (cond ((executable-find "gm") "gm") 336 "mogrify"
350 ((executable-find "mogrify") "mogrify")
351 (t "mogrify"))
352 "Executable used to rotate thumbnail. 337 "Executable used to rotate thumbnail.
353Used together with `image-dired-cmd-rotate-thumbnail-options'." 338Used together with `image-dired-cmd-rotate-thumbnail-options'."
354 :version "26.1"
355 :type 'file 339 :type 'file
356 :group 'image-dired) 340 :group 'image-dired)
357 341
358(defcustom image-dired-cmd-rotate-thumbnail-options 342(defcustom image-dired-cmd-rotate-thumbnail-options
359 `(,@(when (string-match "gm\\'" image-dired-cmd-rotate-thumbnail-program) 343 '("-rotate" "%d" "%t")
360 '("mogrify"))
361 "-rotate" "%d" "%t")
362 "Arguments of command used to rotate thumbnail image. 344 "Arguments of command used to rotate thumbnail image.
363Used with `image-dired-cmd-rotate-thumbnail-program'. 345Used with `image-dired-cmd-rotate-thumbnail-program'.
364Available format specifiers are: %d which is replaced by the 346Available format specifiers are: %d which is replaced by the