procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
In this case we can greatly increase readability by using `cl-case'
instead of `cond'.
This commit is contained in:
Jonas Bernoulli 2020-07-15 19:05:30 +02:00
parent 804a0e82f2
commit 944608851c
1 changed files with 7 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/epg.el
View file

@ -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 " "