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

mason.report: put github link in build reports

db4
Slava Pestov 2009-11-20 00:12:28 -06:00
parent 3d585fa858
commit 8cbe676062
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/mason/report/report.factor
View File

@ -7,12 +7,16 @@ prettyprint sequences xml.syntax xml.writer combinators.short-circuit
literals splitting ; literals splitting ;
IN: mason.report IN: mason.report
: git-link ( id -- link )
[ "http://github.com/slavapestov/factor/commit/" prepend ] keep
[XML <a href=<->><-></a> XML] ;
: common-report ( -- xml ) : common-report ( -- xml )
target-os get target-os get
target-cpu get target-cpu get
short-host-name short-host-name
build-dir build-dir
current-git-id get current-git-id get git-link
[XML [XML
<h1>Build report for <->/<-></h1> <h1>Build report for <->/<-></h1>
<table> <table>

4
extra/webapps/mason/mason.factor
View File

@ -83,10 +83,6 @@ CONSTANT: cpus
[ validate-os/cpu ] >>init [ validate-os/cpu ] >>init
[ current-builder last-report>> "text/html" <content> ] >>display ; [ current-builder last-report>> "text/html" <content> ] >>display ;
: git-link ( id -- link )
[ "http://github.com/slavapestov/factor/commit/" prepend ] keep
[XML <a href=<->><-></a> XML] ;
: building ( builder string -- xml ) : building ( builder string -- xml )
swap current-git-id>> git-link swap current-git-id>> git-link
[XML <-> for <-> XML] ; [XML <-> for <-> XML] ;