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

http://github.com/abeaumont/factor · Factor · 25 lines · 19 code · 4 blank · 2 comment · 0 complexity · fc431b3058258a25f3f81b13661b5da6 MD5 · raw file 

    

  1. ! Copyright (C) 2010 Slava Pestov.
    2. 

  2. ! See http://factorcode.org/license.txt for BSD license.
    3. 

  3. USING: accessors furnace.actions html.components html.forms
    4. 

  4. kernel webapps.mason.backend webapps.mason.version.data
    5. 

  5. webapps.mason.grids webapps.mason.utils ;
    6. 

  6. IN: webapps.mason.downloads
    7. 

  7. 

  8. : stable-release ( version -- link )
    9. 

  9.     [ version>> ] [ announcement-url>> ] bi <simple-link> ;
    10. 

  10. 

  11. : source-release ( version -- link )
    12. 

  12.     [ version>> ] [ source-path>> download-url ] bi <simple-link> ;
    13. 

  13. 

  14. : <downloads-action> ( -- action )
    15. 

  15.     <page-action>
    16. 

  16.     [
    17. 

  17.         [
    18. 

  18.             package-grid "package-grid" set-value
    19. 

  19.             release-grid "release-grid" set-value
    20. 

  20. 

  21.             latest-version
    22. 

  22.             [ stable-release "stable-release" set-value ]
    23. 

  23.             [ source-release "source-release" set-value ] bi
    24. 

  24.         ] with-mason-db
    25. 

  25.     ] >>init ;
    26.