Compare commits
3 Commits
56849e75f4
...
b42addcde3
Author | SHA1 | Date |
---|---|---|
|
b42addcde3 | |
|
8ed2daf5ad | |
|
96c16902f1 |
|
@ -1,6 +1,6 @@
|
||||||
! Copyright (C) 2020 .
|
! Copyright (C) 2020 .
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! 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 ;
|
USING: bonerbonerboner.services ;
|
||||||
FROM: bonerbonerboner.services.slack => slack-lookup-user say-slack ;
|
FROM: bonerbonerboner.services.slack => slack-lookup-user say-slack ;
|
||||||
|
@ -76,7 +76,7 @@ mississippis "mississippis"
|
||||||
"GO!" announce ;
|
"GO!" announce ;
|
||||||
|
|
||||||
: announce-standard-mississippis ( terminal -- )
|
: 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 -- )
|
:: announce-nonstandard-mississippi ( terminal sip -- )
|
||||||
{
|
{
|
||||||
|
@ -89,7 +89,7 @@ mississippis "mississippis"
|
||||||
|
|
||||||
: announce-nonstandard-mississippis ( terminal -- )
|
: announce-nonstandard-mississippis ( terminal -- )
|
||||||
[
|
[
|
||||||
[ dup <array> ] [ 1 - [1,b] ] bi
|
[ dup <array> ] [ 1 - [1..b] ] bi
|
||||||
[ nonstandard-mississippi-wait announce-nonstandard-mississippi ] 2each
|
[ nonstandard-mississippi-wait announce-nonstandard-mississippi ] 2each
|
||||||
]
|
]
|
||||||
[ announce-sip ] bi ;
|
[ announce-sip ] bi ;
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (C) 2020 .
|
! Copyright (C) 2020 .
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! 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
|
IN: bonerbonerboner.services
|
||||||
|
|
||||||
|
@ -10,11 +10,11 @@ CONSTANT: bbb-default-port 8069
|
||||||
: bbb-data-directory ( -- path )
|
: bbb-data-directory ( -- path )
|
||||||
home ".bonerbonerboner" append-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 -- )
|
: 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 ( -- port )
|
||||||
"BBB_API_PORT" os-env [ string>number ] [ bbb-default-port ] if* ;
|
"BBB_API_PORT" os-env [ string>number ] [ bbb-default-port ] if* ;
|
||||||
|
|
|
@ -58,6 +58,6 @@ TUPLE: slack < dispatcher ;
|
||||||
http-request 2drop ;
|
http-request 2drop ;
|
||||||
|
|
||||||
: say-slack ( str -- )
|
: say-slack ( str -- )
|
||||||
. flush ;
|
! . flush ;
|
||||||
! "text" associate
|
"text" associate
|
||||||
! slack-post-message ;
|
slack-post-message ;
|
||||||
|
|
Loading…
Reference in New Issue