extra/webapps/mason/increment-counter/increment-counter.factor

   1 ! Copyright (C) 2010 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: accessors furnace.actions math.parser
   4 http.server.responses webapps.mason.backend ;
   5 IN: webapps.mason.increment-counter
   6
   7 : <increment-counter-action> ( -- action )
   8     <action>
   9     [
  10         [
  11             increment-counter-value
  12             number>string <text-content>
  13         ] with-mason-db
  14     ] >>submit ;