steve
/
factor-work
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bbb deploy ready

master
Steve Ayerhart 2021-08-09 11:49:12 -04:00
parent 384052eda0
commit 2a0c71fd6e
No known key found for this signature in database
GPG Key ID: 5C815FDF3A00B8BA
5 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bonerbonerboner/deploy.factor
View File

@ -2,7 +2,7 @@ USING: tools.deploy.config ;
H{ H{
{ deploy-console? t } { deploy-console? t }
{ deploy-io 3 } { deploy-io 3 }
{ deploy-reflection 1 } { deploy-reflection 5 }
{ deploy-ui? f } { deploy-ui? f }
{ deploy-word-defs? f } { deploy-word-defs? f }
{ deploy-threads? t } { deploy-threads? t }

1
bonerbonerboner/resources.txt
View File

@ -1 +0,0 @@
templates/themes.xml

2
bonerbonerboner/services/link-logger/link-logger.factor
View File

@ -45,7 +45,7 @@ link "links"
ensure-link-logger [ <repost> dup update-tuple ] with-bbb-db random-callout ; ensure-link-logger [ <repost> dup update-tuple ] with-bbb-db random-callout ;
: repost? ( url -- link/f ) : repost? ( url -- link/f )
link new swap >>url [ select-tuple ] with-bbb-db ; ensure-link-logger link new swap >>url [ select-tuple ] with-bbb-db ;
: url-regex ( -- regexp ) : url-regex ( -- regexp )
R/ http[s]?:\/\/(?:[a-zA-Z]|[0-9]|[$-_@.&+]|[!*\(\),]|(?:%[0-9a-fA-F][0-9a-fA-F]))+/i ; R/ http[s]?:\/\/(?:[a-zA-Z]|[0-9]|[$-_@.&+]|[!*\(\),]|(?:%[0-9a-fA-F][0-9a-fA-F]))+/i ;

2
bonerbonerboner/services/mississippis/mississippis.factor
View File

@ -46,7 +46,7 @@ mississippis "mississippis"
random ; random ;
: nonstandard-mississippi-duration ( -- duration ) : nonstandard-mississippi-duration ( -- duration )
.5 1.5 uniform-random-float seconds ; .5 1.75 uniform-random-float seconds ;
: standard-mississippi-duration ( -- duration ) : standard-mississippi-duration ( -- duration )
1 seconds ; 1 seconds ;

1
bonerbonerboner/services/platzisms/platzisms.factor
View File

@ -24,6 +24,7 @@ platzism "platzisms"
[ <platzism> insert-tuple ] with-bbb-db ; [ <platzism> insert-tuple ] with-bbb-db ;
: platzism-exists? ( str -- ? ) : platzism-exists? ( str -- ? )
ensure-platzisms
[ >lower "SELECT id FROM platzisms WHERE lower(quote) = '%s'" sprintf sql-query ] with-bbb-db empty? not ; [ >lower "SELECT id FROM platzisms WHERE lower(quote) = '%s'" sprintf sql-query ] with-bbb-db empty? not ;
: is-platz? ( str -- ? ) : is-platz? ( str -- ? )