steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

help.html: adding links to github source files.

db4
John Benediktsson 2012-07-22 22:12:19 -07:00
parent 7dc8b2ef1f
commit 504bb901cf
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/help/html/html.factor
View File

@ -60,6 +60,12 @@ M: f topic>filename* drop \ f topic>filename* ;
M: topic url-of topic>filename ; M: topic url-of topic>filename ;
M: pathname url-of
string>> "resource:" ?head [
"https://github.com/slavapestov/factor/blob/master/"
prepend
] [ drop f ] if ;
: help-stylesheet ( -- xml ) : help-stylesheet ( -- xml )
"vocab:help/html/stylesheet.css" ascii file-contents "vocab:help/html/stylesheet.css" ascii file-contents
[XML <style><-></style> XML] ; [XML <style><-></style> XML] ;