(predd-defmulti feel-handle
    (lambda (_feature _body kw &rest _values)
      kw))

(predd-defmethod feel-handle :after (_feature body _kw &rest values)
  (seq-reduce (lambda (acc v)
                `(eval-after-load ',v
                   ,acc))
              values
              body))

(predd-defmethod feel-handle :mode (feature body _kw &rest values)
  (let ((pre (seq-map (lambda (v)
                        (let ((v* (if (consp v)
                                      v
                                    (cons v feature))))
                          `(add-to-list auto-mode-alist ,v*)))
                      values)))
    `(progn ,@pre ,body)))