diff --git a/lib/resource-1.0/doc/MkSynopsis.hs b/lib/resource-1.0/doc/MkSynopsis.hs
index 84052a436..c1b0d80ce 100644
--- a/lib/resource-1.0/doc/MkSynopsis.hs
+++ b/lib/resource-1.0/doc/MkSynopsis.hs
@@ -30,7 +30,7 @@ main = do
link "Source:" syntaxAPI
space
rs <- getRules syntaxAPI
- delimit $ mkSplitTables True isLatex rs
+ delimit $ mkSplitTables True isLatex cs rs
space
title "Structural Words"
space
@@ -114,9 +114,13 @@ inChunks i f = concat . intersperse ["\n\n"] . map f . chunks i where
-- Makes one table per result category.
-- Adds a subsection header for each table.
-mkSplitTables :: Bool -> Bool -> [(String,String,String)] -> [String]
-mkSplitTables hasEx isLatex rs = concatMap t (sortRules rs)
- where t xs = subtitle (resultCat (head xs)) : mkTable hasEx isLatex xs
+mkSplitTables :: Bool -> Bool -> [(String,String,String)] -> [(String,String,String)] -> [String]
+mkSplitTables hasEx isLatex cs rs = concatMap t (sortRules rs)
+ where t xs = [subtitle c] ++ expl ++ mkTable hasEx isLatex xs
+ where c = resultCat (head xs)
+ expl = case [e | (n,e,_) <- cs, n == c] of
+ [] -> []
+ e:_ -> ["", e, ""]
mkTable :: Bool -> Bool -> [(String,String,String)] -> [String]
mkTable hasEx isLatex = inChunks chsize (\rs -> header : map (unwords . row) rs)
diff --git a/lib/resource-1.0/doc/synopsis.html b/lib/resource-1.0/doc/synopsis.html
index 7855582f3..115b9d8b5 100644
--- a/lib/resource-1.0/doc/synopsis.html
+++ b/lib/resource-1.0/doc/synopsis.html
@@ -423,6 +423,9 @@ Source: http://www.cs.chalmers.se/~aarne/
+adjectival phrase +