master 9446088 01/15: ; * lisp/epg.el (epg-signature-to-string): Use cl-case.

[Jonas Bernoulli]

branch: master
commit 944608851c81e279287051c2a243faee7b59f3be
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    ; * lisp/epg.el (epg-signature-to-string): Use cl-case.
    
    In this case we can greatly increase readability by using `cl-case'
    instead of `cond'.
---
 lisp/epg.el | 19 +++++++------------
 1 file changed, 7 insertions(+), 12 deletions(-)

diff --git a/lisp/epg.el b/lisp/epg.el
index 5b90bc2..65decf3 100644
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -404,18 +404,13 @@ callback data (if any)."
         (pubkey-algorithm (epg-signature-pubkey-algorithm signature))
         (key-id (epg-signature-key-id signature)))
     (concat
-     (cond ((eq (epg-signature-status signature) 'good)
-           "Good signature from ")
-          ((eq (epg-signature-status signature) 'bad)
-           "Bad signature from ")
-          ((eq (epg-signature-status signature) 'expired)
-           "Expired signature from ")
-          ((eq (epg-signature-status signature) 'expired-key)
-           "Signature made by expired key ")
-          ((eq (epg-signature-status signature) 'revoked-key)
-           "Signature made by revoked key ")
-          ((eq (epg-signature-status signature) 'no-pubkey)
-           "No public key for "))
+     (cl-case (epg-signature-status signature)
+       (good "Good signature from ")
+       (bad "Bad signature from ")
+       (expired "Expired signature from ")
+       (expired-key "Signature made by expired key ")
+       (revoked-key "Signature made by revoked key ")
+       (no-pubkey "No public key for "))
      key-id
      (if user-id
         (concat " "