       -> Tags 
                           -> String 
                           -> Rules ()
convertSpecificTagsToLinks tagsAndAuthors specificTags aTitle = 
    tagsRules specificTags $ \tag pattern -> do
        let title = aTitle ++ " `" ++ tag ++ "`"
        route idRoute
        compile $ do
            posts <- recentFirst =<< loadAll pattern
            let taggedPostsContext = mconcat [ listField "posts" (postContext tagsAndAuthors) (return posts)
       
createPageWithAllAuthors :: TagsReader
createPageWithAllAuthors = do
    tagsAndAuthors <- ask
    lift $ createPageWithTagsCloud (snd tagsAndAuthors) 
                                   "authors.html" 
                                   110 
                                   220 
                                   "Наши авторы" 
                                   "authorsCloud" 
                                   "templates/authors.html"
    return ()
createPageWithAllAuthors = do
    tagsAndAuthors <- ask
    lift $ createPageWithTagsCloud (snd tagsAndAuthors) 
                                   "authors.html" 
                                   110 
                                   220 
                                   "Наши авторы" 
                                   "authorsCloud" 
                                   "templates/authors.html"
    return ()