Clojure Java Security - enumerate providers, types and algorithms

java-sec-providers.clj

(defn security-providers-type-algorithm-seq []                                                                                                                        
  (mapcat (fn [provider]                                                                                                                                              
            (map (fn [svc]                                                                                                                                            
                   [(.getType svc) (.getAlgorithm svc)])                                                                                                              
                 (.getServices provider)))                                                                                                                            
          (java.security.Security/getProviders)))                                                                                                                     
                                                                                                                                                                      
(defn security-providers-types []                                                                                                                                     
  (vec (set (map first (security-providers-type-algorithm-seq)))))                                                                                                    
                                                                                                                                                                      
(defn security-providers-for-type [type]                                                                                                                              
  (filter #(= (first %) type)                                                                                                                                         
          (security-providers-type-algorithm-seq)))                                                                                                                   
                                                                                                                                                                      
(defn message-digest-algorithms []                                                                                                                                    
  (security-providers-for-type "MessageDigest"))