Helper macro for attrs lib on Hy

attrs.hy

; -*- mode: lisp; mode: paredit -*-

(defmacro defattrs [klass-name
                    &optional [super-klasses []] [options []] [attrs []]
                    &rest body]
  `(do
    (import attr)
    (with-decorator ~(if options `(attr.s ~@options) 'attr.s)
      (defclass ~klass-name ~super-klasses
        ~(list (interleave
                (list-comp (if (coll? a) (first a) a) [a attrs])
                (list-comp `(attr.ib ~@(if (coll? a)
                                        (list (rest a)) []))
                           [a attrs])))
        ~@body))))

For even less boilerplate.
https://attrs.readthedocs.io/en/stable/
https://hylang.org

Similar to (defclass), but generates __init__(...) methods for you. Use it like this:

;; (defattrs ClassName [SuperClasses...] [options...] [attribs...])
(defattrs Coordinates [object] [:repr False]
  [x y [secret :init False]])

TODO attr.s(...) options.