This function seems like a duplicate of `author_lesson()`: https://github.com/swirldev/swirl/blob/master/R/author_lesson.R

Is there a way we can consolidate?