如何从defrecord创建一个集合？

Question

我：

(defrecord human-being [uuid first-name last-name genome-sequence]) 

(defrecord space-ship [uuid ship-type engines home-world captain]) 

我希望有一个单一的“建筑”功能，将采取任何人的福利或空舰的记录，并用钥匙作为实际记录键返回一组：

(def john (human-being. "ABC123" "John" "Smith" "QWERTY")) 
(def enterprise (space-ship. "ZXC123" "Galactic" "Warp" "Earth" "Picard")) 

(constructFunc john) --returns--> {:uuid "ABC123" :first-name "John" :last-name "Smith" :genome-sequence "QWERTY"} 

(constructFunc enterprise) --returns--> {:uuid "ZXC123" :ship-type "Galactic" :engines "Warp" :home-world "Earth" :captain "Picard"} 

我不只是想要这两个defrecords。我需要能够将降大任于defrecords并获得类似的输出...

我有我应该使用这个宏的感觉，但让我害怕有点....

Answer 1

看到的问题是essantialy“我怎么把Defrecord变成地图”我可以想到4种或多或少的等价方法。

; direct - but this is stricly speaking not 'a function' 
(into {} john) 

; anonymous 
(#(into {} %) john) 

; named 
(defn ->map [r] 
    (into {} r)) 
(->map john) 

; via composition/partial 
((partial into {}) john)  

; all of them return 
{:uuid "ABC123", :first-name "John", :last-name "Smith", :genome-sequence "QWERTY"}