msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Remove extra duplicate LParadigms anchors

Browse Source
This commit is contained in:
John J. Camilleri
2018-11-13 22:10:38 +01:00
parent 6e52b85b92
commit c10de77e9b
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
doc/synopsis/MkSynopsis.hs
View File

@@ -49,7 +49,6 @@ main = do
append "%!postproc(html): '#LI' '<li>'" append "%!postproc(html): '#LI' '<li>'"
append "%!postproc(html): '(SRC=\"categories.png\")' '\\1 USEMAP=\"#categories\"'" append "%!postproc(html): '(SRC=\"categories.png\")' '\\1 USEMAP=\"#categories\"'"
append "%!postproc(html): '#LParadigms' '<a name=\"RParadigms\"></a>'" append "%!postproc(html): '#LParadigms' '<a name=\"RParadigms\"></a>'"
append "%!postproc(tex): '#LParadigms' ''"
delimit $ addToolTips cs delimit $ addToolTips cs
include "intro.txt" -- TODO dynamic language list include "intro.txt" -- TODO dynamic language list
space space
@@ -86,6 +85,7 @@ main = do
-- delimit rs -- delimit rs
space space
title "Lexical Paradigms" title "Lexical Paradigms"
append "#LParadigms"
paradigmFiles >>= mapM_ (putParadigms cs) paradigmFiles >>= mapM_ (putParadigms cs)
space space
include "additional.txt" include "additional.txt"
@@ -154,7 +154,6 @@ getRules aexx file = do
putParadigms :: Cats -> (String, FilePath) -> IO () putParadigms :: Cats -> (String, FilePath) -> IO ()
putParadigms cs (lang,file) = do putParadigms cs (lang,file) = do
stitle ("Paradigms for " ++ lang) stitle ("Paradigms for " ++ lang)
append "#LParadigms"
space space
link "source" file link "source" file
space space