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{
{ deploy-console? t }
{ deploy-io 3 }
{ deploy-reflection 1 }
{ deploy-reflection 5 }
{ deploy-ui? f }
{ deploy-word-defs? f }
{ 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 ;
: 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 )
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 ;
: nonstandard-mississippi-duration ( -- duration )
.5 1.5 uniform-random-float seconds ;
.5 1.75 uniform-random-float seconds ;
: standard-mississippi-duration ( -- duration )
1 seconds ;

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

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