r
/
bookshelf-doc
mirror of https://github.com/jrpotter/bookshelf-doc
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix: no overmatch for intra link

main
Xubai Wang 2022-02-20 03:28:03 +08:00
parent 5e550c7833
commit 3acfc510b4
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
DocGen4/Output/DocString.lean
View File

@ -59,11 +59,19 @@ def nameToLink? (s : String) : HtmlM (Option String) := do
else else
match (← getCurrentName) with match (← getCurrentName) with
| some currentName => | some currentName =>
match (res.moduleInfo.find! currentName).members.find? (·.getName.toString.endsWith s) with match (res.moduleInfo.find! currentName).members.find? (sameEnd ·.getName.toString s) with
| some info => | some info =>
declNameToLink info.getName declNameToLink info.getName
| _ => pure none | _ => pure none
| _ => pure none | _ => pure none
where
sameEnd n1 n2 := Id.run do
let n1' := n1.splitOn "." |>.reverse
let n2' := n2.splitOn "." |>.reverse
for i in [0:n2'.length] do
if n1'.getD i "" = n2'.get! i then
return true
return false
/-- /--
Extend links with following rules: Extend links with following rules: