]> git.eshelyaron.com Git - emacs.git/commitdiff
; Revert "Recognize graphicsmagick in image-dired"
authorMark Oteiza <mvoteiza@udel.edu>
Tue, 20 Dec 2016 16:14:53 +0000 (11:14 -0500)
committerMark Oteiza <mvoteiza@udel.edu>
Tue, 20 Dec 2016 16:14:53 +0000 (11:14 -0500)
This reverts commit 5c266405f559823038dfa900aaad66605f0d5287.
There are too many annoying differences between GM and IM to make this
default behavior.

lisp/image-dired.el

index eed4280c034b9845436d5865b93026afc459ef23..560cadbe75b7ac3b70aafe5dae478458a80af8c8 100644 (file)
@@ -221,19 +221,14 @@ expects to find pictures in this directory."
   :group 'image-dired)
 
 (defcustom image-dired-cmd-create-thumbnail-program
-  (cond ((executable-find "gm") "gm")
-        ((executable-find "convert") "convert")
-        (t "convert"))
+  "convert"
   "Executable used to create thumbnail.
 Used together with `image-dired-cmd-create-thumbnail-options'."
-  :version "26.1"
   :type 'file
   :group 'image-dired)
 
 (defcustom image-dired-cmd-create-thumbnail-options
-  `(,@(when (string-match "gm\\'" image-dired-cmd-create-thumbnail-program)
-        '("convert"))
-    "-size" "%wx%h" "%f" "-resize" "%wx%h>" "-strip" "jpeg:%t")
+  '("-size" "%wx%h" "%f" "-resize" "%wx%h>" "-strip" "jpeg:%t")
   "Options of command used to create thumbnail image.
 Used with `image-dired-cmd-create-thumbnail-program'.
 Available format specifiers are: %w which is replaced by
@@ -244,20 +239,14 @@ which is replaced by the file name of the thumbnail file."
   :type '(repeat (string :tag "Argument"))
   :group 'image-dired)
 
-(defcustom image-dired-cmd-create-temp-image-program
-  (cond ((executable-find "gm") "gm")
-        ((executable-find "convert") "convert")
-        (t "convert"))
+(defcustom image-dired-cmd-create-temp-image-program "convert"
   "Executable used to create temporary image.
 Used together with `image-dired-cmd-create-temp-image-options'."
-  :version "26.1"
   :type 'file
   :group 'image-dired)
 
 (defcustom image-dired-cmd-create-temp-image-options
-  `(,@(when (string-match "gm\\'" image-dired-cmd-create-temp-image-program)
-        '("convert"))
-    "-size" "%wx%h" "%f" "-resize" "%wx%h>" "-strip" "jpeg:%t")
+  '("-size" "%wx%h" "%f" "-resize" "%wx%h>" "-strip" "jpeg:%t")
   "Options of command used to create temporary image for display window.
 Used together with `image-dired-cmd-create-temp-image-program',
 Available format specifiers are: %w and %h which are replaced by
@@ -327,17 +316,15 @@ Available format specifiers are described in
   :group 'image-dired)
 
 (defcustom image-dired-cmd-create-standard-thumbnail-options
-  `(,@(when (string-match "gm\\'" image-dired-cmd-create-thumbnail-program)
-        '("convert"))
-    "-size" "%wx%h" "%f"
-    ,@(unless (or image-dired-cmd-pngcrush-program
-                  image-dired-cmd-pngnq-program)
-        (list
-         "-set" "Thumb::MTime" "%m"
-         "-set" "Thumb::URI" "file://%f"
-         "-set" "Description" "Thumbnail of file://%f"
-         "-set" "Software" (emacs-version)))
-    "-thumbnail" "%wx%h>" "png:%t")
+  (append '("-size" "%wx%h" "%f")
+          (unless (or image-dired-cmd-pngcrush-program
+                      image-dired-cmd-pngnq-program)
+            (list
+             "-set" "Thumb::MTime" "%m"
+             "-set" "Thumb::URI" "file://%f"
+             "-set" "Description" "Thumbnail of file://%f"
+             "-set" "Software" (emacs-version)))
+          '("-thumbnail" "%wx%h>" "png:%t"))
   "Options for creating thumbnails according to the Thumbnail Managing Standard.
 Available format specifiers are the same as in
 `image-dired-cmd-create-thumbnail-options', with %m for file modification time."
@@ -346,19 +333,14 @@ Available format specifiers are the same as in
   :group 'image-dired)
 
 (defcustom image-dired-cmd-rotate-thumbnail-program
-  (cond ((executable-find "gm") "gm")
-        ((executable-find "mogrify") "mogrify")
-        (t "mogrify"))
+  "mogrify"
   "Executable used to rotate thumbnail.
 Used together with `image-dired-cmd-rotate-thumbnail-options'."
-  :version "26.1"
   :type 'file
   :group 'image-dired)
 
 (defcustom image-dired-cmd-rotate-thumbnail-options
-  `(,@(when (string-match "gm\\'" image-dired-cmd-rotate-thumbnail-program)
-        '("mogrify"))
-    "-rotate" "%d" "%t")
+  '("-rotate" "%d" "%t")
   "Arguments of command used to rotate thumbnail image.
 Used with `image-dired-cmd-rotate-thumbnail-program'.
 Available format specifiers are: %d which is replaced by the