¿Cómo configurar ForeignKey en CreateView?

Tengo un modelo:

class Article(models.Model):
    text = models.CharField()
    author = models.ForeignKey(User)

¿Cómo escribo una vista basada en clase que crea una nueva instancia de modelo y estableceauthor clave externa pararequest.user?

Actualizar:

Solución movida para separarresponder abajo.