PageRenderTime 33ms CodeModel.GetById 20ms app.highlight 8ms RepoModel.GetById 1ms app.codeStats 0ms

/extra/webapps/mason/downloads/downloads.factor

http://github.com/abeaumont/factor
Unknown | 25 lines | 21 code | 4 blank | 0 comment | 0 complexity | fc431b3058258a25f3f81b13661b5da6 MD5 | raw file
 1! Copyright (C) 2010 Slava Pestov.
 2! See http://factorcode.org/license.txt for BSD license.
 3USING: accessors furnace.actions html.components html.forms
 4kernel webapps.mason.backend webapps.mason.version.data
 5webapps.mason.grids webapps.mason.utils ;
 6IN: webapps.mason.downloads
 7
 8: stable-release ( version -- link )
 9    [ version>> ] [ announcement-url>> ] bi <simple-link> ;
10
11: source-release ( version -- link )
12    [ version>> ] [ source-path>> download-url ] bi <simple-link> ;
13
14: <downloads-action> ( -- action )
15    <page-action>
16    [
17        [
18            package-grid "package-grid" set-value
19            release-grid "release-grid" set-value
20
21            latest-version
22            [ stable-release "stable-release" set-value ]
23            [ source-release "source-release" set-value ] bi
24        ] with-mason-db
25    ] >>init ;