david-mcneil

(new-rocket-car {:color "Blue"})
;; -> (new-rocket-car {:color "Blue"})

david-mcneil

(new-rocket-car {:color "Blue" :fuel 100 :name "Zoomer"})
;; -> (new-rocket-car {:name "Zoomer", :fuel 100, :color "Blue"})

david-mcneil

(defrecord2 RocketCar [color fuel name])

david-mcneil

(ns enhanced-record
  (:require [clojure.contrib.str-utils2 :as str2])
  (:use [clojure.string :only (join)]
        [clojure.contrib.pprint :only 
          (*simple-dispatch* use-method pprint-map pprint)]))

;;;; enhanced records

;; internal helper for maps

david-mcneil

#:enhanced-record-blog.Car{:year 2009, :make "Honda", :model "Fit"}
;; -> No dispatch macro for: :

david-mcneil

(merge (Car. 2010 "Honda" "Civic") {:year 2009 :model "Fit"})
;; -> #:enhanced-record-blog.Car{:year 2009, :make "Honda", :model "Fit"}

david-mcneil

(assoc (Car. 2010 "Honda" "Civic") :model "Accord")
;; -> #:enhanced-record-blog.Car{:year 2010, :make "Honda", :model "Accord"}

david-mcneil

(Car. 2010 "Honda" nil)
;; -> #:enhanced-record-blog.Car{:year 2010, :make "Honda", :model nil}

david-mcneil

(Car. 2010 "Honda" "Civic")
;; -> #:enhanced-record-blog.Car{:year 2010, :make "Honda", :model "Civic"}

david-mcneil

(Car. 2010 "Honda" "Civic")