Common Lisp Support for GPGME

-----------------------------

Requirements:

ASDF Packaging Support

CFFI Foreign Function Interface

trivial-garbage Finalizers

gpg-error GPG Error Codes

Use with:

> (asdf:load-system "gpgme")

Examples

--------

(with-open-file (out "/tmp/myout"

:direction :output

:if-exists :supersede

:element-type '(unsigned-byte 8))

(with-context (ctx)

(setf (armorp ctx) t)

(op-export ctx "DEADBEEF" out)))

(with-context (ctx)

(with-output-to-string (out)

(setf (armorp ctx) t)

(op-export ctx "McTester" out)))

(gpgme:with-context (ctx :armor t)

(with-output-to-string (out)

(gpgme:op-export ctx "McTester" out)))

(gpgme:with-context (ctx :armor t)

(let ((recipient1 (gpgme:get-key ctx "DEADBEEF"))

(recipient2 (gpgme:get-key ctx "Alice"))

(message "Hello, world!"))

(with-output-to-string (out)

(with-input-from-string (in message)

(gpgme:op-encrypt ctx (vector recipient1 recipient2) in out)))))

(gpgme:with-context (ctx :armor t)

(let ((message "Hello, world!"))

(with-output-to-string (out)

(with-input-from-string (in message)

(gpgme:op-sign ctx in out)))))

TODO

----

* When GPGME defines macros for include cert values -2, -1, 0 and 1,

define lisp macros for them as well.

*