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