(in-package  :fwoar.rss-reader.utils)

(defmacro defclass+ (name (&rest super) &body (direct-slots &rest options))
  (let ((initargs (append (mapcan (lambda (class)
                                    (typecase class
                                      (cons (cadr class))
                                      (t nil)))
                                  super)
                          (mapcan (lambda (slot)
                                    (alexandria:ensure-list
                                     (alexandria:when-let ((initarg (getf (cdr slot)
                                                                          :initarg)))
                                       (make-symbol (symbol-name initarg)))))
                                  direct-slots))))
    `(progn (defclass ,name
                ,(mapcar (lambda (it)
                           (typecase it
                             (cons (car it))
                             (t it)))
                  super)
              ,direct-slots
              ,@options)
            (defun ,name (,@initargs)
              (fw.lu:new ',name ,@initargs)))))