records.clj

(ns example)

(defrecord HTTPRequest [type url proxy])

(HTTPRequest/getBasis)

;; =>
;; [type url proxy]

(defrecord HTTPProxy [host port])

(map->HTTPRequest
  {:type :get
   :url "http://example.org"
   :proxy (HTTPProxy. "foo" 11111)})

;; =>
;; #example.HTTPRequest{
;;   :type :get,
;;   :url "http://example.org",
;;   :proxy #example.HTTPProxy{:host "foo", :port 11111}
;; }

(:proxy
  (map->HTTPRequest
    {:type :get
     :url "http://example.org"
     :proxy (HTTPProxy. "foo" 11111)}))

;; =>
;; #example.HTTPProxy{:host "foo", :port 11111}

(keys
  (map->HTTPRequest
    {:type :get
     :url "http://example.org"
     :proxy (HTTPProxy. "foo" 11111)}))

;; =>
;; (:type :url :proxy)

((juxt :url :proxy)
  (map->HTTPRequest
    {:type :get
     :url "http://example.org"
     :proxy (HTTPProxy. "foo" 11111)}))

;; =>
;; ["http://example.org" #example.HTTPProxy{:host "foo", :port 11111}]