Add color space and icc profile information to images

Add color space and icc profile information to images

[Juan Manuel Macías]

Hi,

When working with images for print, I often need to get quickly the
color space and icc profile information of each included image, so I
came up with this function (code at the end of this mail) that I share
here, in case it is useful to someone. The function inserts the
information I need, under each image link in a document. For example:

#+begin_src org
  [[file:~/Imágenes/Arte/Lilian_May_Miller_Blue_Hills_and_Crescent_Moon.jpg]]
  # COLOR-INFO: Colorspace: sRGB | icc:description: Adobe RGB (1998)

  [[file:~/CA/CA10/cubierta.jpg]]
  # COLOR-INFO: Colorspace: CMYK | icc:description: ISO Coated v2 300% (ECI)

  [[file:~/Escritorio/crespo.jpg]]
  # COLOR-INFO: Colorspace: Gray | icc:description: GIMP built-in D65 Grayscale with sRGB TRC
#+end_src

The only problem is that the process is somewhat slow, especially when
the images are large or there are many images in the document. I think
that this is due in part to the imagemagick process itself, and in part
to the little elegance of my function ... ;-)

Best regards,

Juan Manuel 

#+begin_src emacs-lisp
(defun my-org-comment-colorspace ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward org-bracket-link-regexp nil t)
      (when (string-match (regexp-opt '(".png" ".jpg")) (match-string 1))
	(forward-char -1)
	(let* ((link (assoc :link (org-context)))
	       (link-str (when link
			   (buffer-substring-no-properties (cadr link) (caddr link)))))
	  (string-match org-bracket-link-regexp link-str)
	  (let* ((identify-result (shell-command-to-string
				   (concat "identify -verbose "
					   "\""
					   (expand-file-name
					    (format "%s"
						    (replace-regexp-in-string
						     "file:" ""
						     (substring link-str
								(match-beginning 1)
								(match-end 1)))))
					   "\"")))
		 (colorspace (progn
			       (string-match "\\(Colorspace:.+\\)" identify-result)
			       (substring identify-result
					  (match-beginning 1)
					  (match-end 1))))
		 (icc (progn
			(string-match "\\(icc:description:.+\\)" identify-result)
			(substring identify-result
				   (match-beginning 1)
				   (match-end 1)))))
	    (forward-line 1)
	    (beginning-of-line)
	    (when (looking-at "\\(# COLOR-INFO:.+\\)")
	      (delete-region (match-beginning 0) (match-end 0)))
	    (insert (format "# COLOR-INFO: %s | %s" colorspace icc))))))))
#+end_src