 облаком авторов публикаций.
createPageWithAllAuthors :: TagsReader
createPageWithAllAuthors = do
    tagsAndAuthors <- ask
    lift $ createPageWithTagsCloud (snd tagsAndAuthors) 
                                   "authors.html" 
                                   110 
                                   220 
                                   "Наши авторы" 
                                   "authorsCloud" 
                                   "templates/authors.html"
    return ()

convertSpecificTagsToLinks :: TagsAndAuthors 
                   
createPageWithAllTags :: TagsReader
createPageWithAllTags = do
    tagsAndAuthors <- ask
    lift $ createPageWithTagsCloud (fst tagsAndAuthors) 
                                   "tags.html" 
                                   110 
                                   220 
                                   "Темы публикаций"
                                   "tagsCloud"
                                   "templates/tags.html"
    return ()

-- Формируем страницу с облаком авторов публикаций.
createPageWithAllTags = do
    tagsAndAuthors <- ask
    lift $ createPageWithTagsCloud (fst tagsAndAuthors) 
                                   "tags.html" 
                                   110 
                                   220 
                                   "Темы публикаций"
                                   "tagsCloud"
                                   "templates/tags.html"
    return ()

-- Формируем страницу с облаком авторов публикаций.