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

webapps.mason: minor improvements

db4
Slava Pestov 2009-05-19 17:46:05 -05:00
parent a8c9dab9e2
commit 39e0d40223
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,7 +9,7 @@ IN: webapps.mason
: log-file ( -- path ) home "mason.log" append-path ; : log-file ( -- path ) home "mason.log" append-path ;
: recent-events ( -- xml ) : recent-events ( -- xml )
log-file utf8 file-lines 10 short tail* "\n" join [XML <pre><-></pre> XML] ; log-file utf8 10 file-tail [XML <pre><-></pre> XML] ;
: git-link ( id -- link ) : git-link ( id -- link )
[ "http://github.com/slavapestov/factor/commit/" prepend ] keep [ "http://github.com/slavapestov/factor/commit/" prepend ] keep
@ -21,8 +21,9 @@ IN: webapps.mason
: current-status ( builder -- xml ) : current-status ( builder -- xml )
dup status>> { dup status>> {
{ "dirty" [ drop "Dirty" ] } { "status-dirty" [ drop "Dirty" ] }
{ "clean" [ drop "Clean" ] } { "status-clean" [ drop "Clean" ] }
{ "status-error" [ drop "Error" ] }
{ "starting" [ "Starting" building ] } { "starting" [ "Starting" building ] }
{ "make-vm" [ "Compiling VM" building ] } { "make-vm" [ "Compiling VM" building ] }
{ "boot" [ "Bootstrapping" building ] } { "boot" [ "Bootstrapping" building ] }