print as

src/cljc/auto_ap/entities/vendors.cljc

@@ -10,6 +10,7 @@
                                     #(not (str/blank? %))))
 
 (s/def ::name ::required-identifier)
+(s/def ::print-as (s/nilable string?))
 
 (s/def ::email (s/nilable (s/and string? (s/or :is-email #(re-matches email-regex %)
                                                :is-empty #(= % "")))))
@@ -30,17 +31,18 @@
 
 (s/def ::vendor (s/keys :req-un [::name]
                         :opt-un [::code
-                              ::id
-                              ::invoice-reminder-schedule
-                              ::primary-contact
-                              ::primary-email
-                              ::primary-phone
-                              ::secondary-contact
-                              ::secondary-email
-                              ::secondary-phone
-                              ::address
+                                 ::id
+                                 ::print-as
+                                 ::invoice-reminder-schedule
+                                 ::primary-contact
+                                 ::primary-email
+                                 ::primary-phone
+                                 ::secondary-contact
+                                 ::secondary-email
+                                 ::secondary-phone
+                                 ::address
                                  ::default-expense-account
-                              ]))
+                                 ]))
 
 
 (def vendor-spec (apply hash-map  (drop 1 (s/form ::vendor))))