Add initial handling of ICC color profiles

lib/philomena/processors/jpeg.ex

@@ -23,19 +23,38 @@ defmodule Philomena.Processors.Jpeg do
     intensities
   end
 
+  defp requires_lossy_transformation?(file) do
+    with {output, 0} <-
+           System.cmd("identify", ["-format", "%[orientation]\t%[profile:icc]", file]),
+         [orientation, profile] <- String.split(output, "\t") do
+      orientation != "Undefined" or profile != ""
+    else
+      _ ->
+        true
+    end
+  end
+
   defp strip(file) do
     stripped = Briefly.create!(extname: ".jpg")
 
     # ImageMagick always reencodes the image, resulting in quality loss, so
     # be more clever
-    case System.cmd("identify", ["-format", "%[orientation]", file]) do
+    case requires_lossy_transformation?(file) do
-      {"Undefined", 0} ->
+      true ->
-        # Strip EXIF without touching orientation
+        # Transcode: strip EXIF, embedded profile and reorient image
-        {_output, 0} = System.cmd("jpegtran", ["-copy", "none", "-outfile", stripped, file])
+        {_output, 0} =
+          System.cmd("convert", [
+            file,
+            "-profile",
+            srgb_profile(),
+            "-auto-orient",
+            "-strip",
+            stripped
+          ])
 
-      {_output, 0} ->
+      _ ->
-        # Strip EXIF and reorient image
+        # Transmux only: Strip EXIF without touching orientation
-        {_output, 0} = System.cmd("convert", [file, "-auto-orient", "-strip", stripped])
+        {_output, 0} = System.cmd("jpegtran", ["-copy", "none", "-outfile", stripped, file])
     end
 
     stripped
@@ -85,4 +104,8 @@ defmodule Philomena.Processors.Jpeg do
 
     scaled
   end
+
+  defp srgb_profile do
+    Path.join(File.cwd!(), "priv/icc/sRGB.icc")
+  end
 end