如何從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"}