new user assistant (was: Wizards! I mean, Assistants!)

["Ted Zlatanov" <tzz@lifelogs.com>]

@title Configuring Gnus for the first time
@node What do you want to do with Gnus?

;; defaults to nnml
@variable backends :'(set (const :tag "Read news via NNTP" nntp)
                          (const :tag "Read news via RSS" nnrss)
                          (const :tag "Read news from Slashdot" nnslashdot)
                          (const :tag "Manage TODO items" nntodo)
                          (const :tag "Read mail with nnml" nnml)
                          (const :tag "Read mail with nnmaildir" nnmaildir)
                          (const :tag "Read mail with nnimap" nnimap))
                    '(nnml)

;; defaults to sendmail
@variable outbound :'(choice (const :tag "Send mail via sendmail" sendmail)
                             (const :tag "Send mail via SMTP" smtp))
                   'sendmail

@result primary-mail-selections (list backends outbound)
@text
Welcome to Gnus.  You need to tell us what you want to do with Gnus
before we go on to specific configurations.

Choose the tasks you want to set up: @variable{backends}

Choose the method Gnus will use to send mail: @variable{outbound}
@end text

;; note that @next is a list, so we are building a tree starting at
;; this node - this is a very important piece of the format
;; I'm not worrying about the correctness of the backquoted macros,
;; this is just a demo of the "next node" syntax
@next `(,@(when (assq 'nnml backends) "Configuring the nnml backend")
        ,@(when (assq 'nntp backends) "Configuring the NNTP backend")
       [...]
        ,@(when (eq sendmail outbound) "Configuring sendmail")
        ,@(when (eq smtp outbound) "Configuring SMTP"))

What do you think about the format, before I write more?

Ted