From 2a0c71fd6e12750e638e78bfd4c88dbed53d7eb0 Mon Sep 17 00:00:00 2001 From: Steve Ayerhart Date: Mon, 9 Aug 2021 11:49:12 -0400 Subject: [PATCH] bbb deploy ready --- bonerbonerboner/deploy.factor | 2 +- bonerbonerboner/resources.txt | 1 - bonerbonerboner/services/link-logger/link-logger.factor | 2 +- bonerbonerboner/services/mississippis/mississippis.factor | 2 +- bonerbonerboner/services/platzisms/platzisms.factor | 1 + 5 files changed, 4 insertions(+), 4 deletions(-) delete mode 100644 bonerbonerboner/resources.txt diff --git a/bonerbonerboner/deploy.factor b/bonerbonerboner/deploy.factor index 24f5f37..9156dad 100644 --- a/bonerbonerboner/deploy.factor +++ b/bonerbonerboner/deploy.factor @@ -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 } diff --git a/bonerbonerboner/resources.txt b/bonerbonerboner/resources.txt deleted file mode 100644 index 73b7650..0000000 --- a/bonerbonerboner/resources.txt +++ /dev/null @@ -1 +0,0 @@ -templates/themes.xml diff --git a/bonerbonerboner/services/link-logger/link-logger.factor b/bonerbonerboner/services/link-logger/link-logger.factor index d65f4d6..3f30560 100644 --- a/bonerbonerboner/services/link-logger/link-logger.factor +++ b/bonerbonerboner/services/link-logger/link-logger.factor @@ -45,7 +45,7 @@ link "links" ensure-link-logger [ 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 ; diff --git a/bonerbonerboner/services/mississippis/mississippis.factor b/bonerbonerboner/services/mississippis/mississippis.factor index 48b9c35..ac3da35 100644 --- a/bonerbonerboner/services/mississippis/mississippis.factor +++ b/bonerbonerboner/services/mississippis/mississippis.factor @@ -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 ; diff --git a/bonerbonerboner/services/platzisms/platzisms.factor b/bonerbonerboner/services/platzisms/platzisms.factor index 06f6002..616b096 100644 --- a/bonerbonerboner/services/platzisms/platzisms.factor +++ b/bonerbonerboner/services/platzisms/platzisms.factor @@ -24,6 +24,7 @@ platzism "platzisms" [ 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 -- ? )