extra/webapps/mason/downloads/downloads.factor

   1 ! Copyright (C) 2010 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors furnace.actions html.components html.forms
   4 kernel webapps.mason.backend webapps.mason.version.data
   5 webapps.mason.grids webapps.mason.utils ;
   6 IN: 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 ;