Re: Displaying picture from PGP key if present?

[asjo@koldfront.dk (Adam Sjøgren)]

On Wed, 26 Dec 2012 00:06:49 +0100, Adam wrote:

>> Also, the created file should be cleaned up somehow.

> Good point. That should only be a (delete-file filename) away.

(No; it seems that create-image doesn't actually read the file, so
deleting it right after that doesn't work.)

>> You should probably use --attribute-fd instead of letting gpg export
>> the image to a file.

From my experimenting it seems that I can't get just the image out on
the --attribute-fd I give - I get 16 bytes more than the image; and this
in the terminal:

  [GNUPG:] ATTRIBUTE 1659209319D5C06ED3203A201D27DB4BA94B3003 2686 1 1 1 1194925497 0 0

which does not seem helpful; especially as I can't find any explanation
of what the different stuff means (second number is the length, first is
they key I am listing).

So, I'm kind of stuck on that.

Then I tried this to avoid the temporary file in this way:

  (defun my-epg-key-image (key-id)
    "Return the image of a key, if any"
    (let* ((coding-system-for-write 'binary)
           (coding-system-for-read 'binary)
           (data (shell-command-to-string (concat epg-gpg-program
                                                  " --list-options show-photos"
                                                  " --photo-viewer 'cat - >&2'"
                                                  " --list-keys " key-id " >/dev/null"))))
      (when (> (length data) 0)
        (create-image data nil t))))

but for some reason the resulting image is just a white square. I guess
there is some encoding/uni/multibyte thing I'm missing.

Hm. Maybe I should just skip the first 16 bytes when using --attribute-fd...


  Best regards,

    Adam

-- 
 "A distributed system is one in which the failure of         Adam Sjøgren
  a computer you didn't even know existed can render     asjo@koldfront.dk
  your own computer unusable."