post by default

bonerbonerboner/services/mississippis/mississippis.factor

@@ -1,6 +1,6 @@
 ! Copyright (C) 2020 .
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math math.ranges math.order math.parser math.functions arrays sequences sequences.extras threads calendar io timers accessors random formatting combinators combinators.random http.server.responses regexp unicode peg peg.parsers assocs db.types db.tuples ;
+USING: kernel math math.order math.parser math.functions ranges arrays sequences sequences.extras threads calendar io timers accessors random formatting combinators combinators.random http.server.responses regexp unicode peg peg.parsers assocs db.types db.tuples ;
 
 USING: bonerbonerboner.services ;
 FROM: bonerbonerboner.services.slack => slack-lookup-user say-slack ;
@@ -76,7 +76,7 @@ mississippis "mississippis"
     "GO!" announce ;
 
 : announce-standard-mississippis ( terminal -- )
-    [1,b] [ standard-mississippi-duration sleep announce-sip ] each ;
+    [1..b] [ standard-mississippi-duration sleep announce-sip ] each ;
 
 :: announce-nonstandard-mississippi ( terminal sip -- )
     {
@@ -89,7 +89,7 @@ mississippis "mississippis"
 
 : announce-nonstandard-mississippis ( terminal -- )
     [
-        [ dup <array> ] [ 1 - [1,b] ] bi
+        [ dup <array> ] [ 1 - [1..b] ] bi
         [ nonstandard-mississippi-wait announce-nonstandard-mississippi ] 2each
     ]
     [ announce-sip ] bi ;

bonerbonerboner/services/services.factor

@@ -1,7 +1,7 @@
 ! Copyright (C) 2020 .
 ! See http://factorcode.org/license.txt for BSD license.
 
-USING: kernel fry db db.sqlite environment math.parser io.pathnames ;
+USING: kernel fry db db.pools db.sqlite environment math.parser io.pathnames ;
 
 IN: bonerbonerboner.services
 
@@ -10,11 +10,11 @@ CONSTANT: bbb-default-port 8069
 : bbb-data-directory ( -- path )
     home ".bonerbonerboner" append-path ;
 
-: <bbb-sqlite-db> ( -- db )
+: <bbb-sqlite-db> ( -- db-pool )
-    bbb-data-directory "bbb.db" append-path <sqlite-db> ;
+    bbb-data-directory "bbb.db" append-path <sqlite-db> <db-pool> ;
 
 : with-bbb-db ( quot -- )
-    '[ <bbb-sqlite-db> _ with-db ] call ; inline
+    '[ <bbb-sqlite-db> _ with-pooled-db ] call ; inline
 
 : bbb-api-port ( -- port )
     "BBB_API_PORT" os-env [ string>number ] [ bbb-default-port ] if* ;

bonerbonerboner/services/slack/slack.factor

@@ -58,6 +58,6 @@ TUPLE: slack < dispatcher ;
     http-request 2drop ;
 
 : say-slack ( str -- )
-    . flush ;
+    !    . flush ;
-!    "text" associate
+    "text" associate
-!    slack-post-message ;
+    slack-post-message ;