extra/webapps/mason/release/release.factor

   1 ! Copyright (C) 2010 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors furnace.actions html.forms io.pathnames kernel
   4 mason.platform mason.report sequences webapps.mason
   5 webapps.mason.backend webapps.mason.utils ;
   6 IN: webapps.mason.release
   7
   8 : release-link ( builder -- xml )
   9     last-release>> [ download-url ] [ file-name ] bi link ;
  10
  11 : <download-release-action> ( -- action )
  12     <page-action>
  13     [
  14         [
  15             validate-os/cpu
  16             "os" value "cpu" value (platform) "platform" set-value
  17             current-release [
  18                 [ release-link "release" set-value ]
  19                 [ release-git-id>> git-link "git-id" set-value ]
  20                 [ requirements "requirements" set-value ]
  21                 tri
  22             ] when*
  23         ] with-mason-db
  24     ] >>init ;