factor-work/bonerbonerboner/services/services.factor

! Copyright (C) 2020 .
! See http://factorcode.org/license.txt for BSD license.

USING: kernel fry db db.pools db.sqlite environment math.parser io.pathnames ;

IN: bonerbonerboner.services

CONSTANT: bbb-default-port 8069

: bbb-data-directory ( -- path )
    home ".bonerbonerboner" append-path ;

: <bbb-sqlite-db> ( -- db-pool )
    bbb-data-directory "bbb.db" append-path <sqlite-db> <db-pool> ;

: with-bbb-db ( quot -- )
    '[ <bbb-sqlite-db> _ with-pooled-db ] call ; inline

: bbb-api-port ( -- port )
    "BBB_API_PORT" os-env [ string>number ] [ bbb-default-port ] if* ;