2010-04-11 21:42:12 -04:00
|
|
|
! Copyright (C) 2010 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: accessors furnace.actions html.components html.forms
|
2010-09-17 02:52:49 -04:00
|
|
|
kernel webapps.mason.backend webapps.mason.version.data
|
|
|
|
|
webapps.mason.grids webapps.mason.utils ;
|
2010-04-11 21:42:12 -04:00
|
|
|
IN: webapps.mason.downloads
|
|
|
|
|
|
|
|
|
|
: stable-release ( version -- link )
|
|
|
|
|
[ version>> ] [ announcement-url>> ] bi <simple-link> ;
|
|
|
|
|
|
|
|
|
|
: source-release ( version -- link )
|
|
|
|
|
[ version>> ] [ source-path>> download-url ] bi <simple-link> ;
|
|
|
|
|
|
|
|
|
|
: <downloads-action> ( -- action )
|
|
|
|
|
<page-action>
|
|
|
|
|
[
|
|
|
|
|
[
|
|
|
|
|
package-grid "package-grid" set-value
|
|
|
|
|
release-grid "release-grid" set-value
|
|
|
|
|
|
|
|
|
|
latest-version
|
|
|
|
|
[ stable-release "stable-release" set-value ]
|
|
|
|
|
[ source-release "source-release" set-value ] bi
|
|
|
|
|
] with-mason-db
|
|
|
|
|
] >>init ;
|
