feat(user/htmlz_to_cbz.sh):Make CBZ from Calibre HTMLZ imgs

[BK-2020-03.git] / unitproc / find_erotica.sh

diff --git a/unitproc/find_erotica.sh b/unitproc/find_erotica.sh
index 3c03e52f95906ec3ef749453818173feff184b2d..3fd8b2258333f11fa4867d5e9c09266e17a54300 100755 (executable)
--- a/unitproc/find_erotica.sh
+++ b/unitproc/find_erotica.sh
@@ -2,7 +2,7 @@
 # Desc: Searches for erotic phrases in text files in specified working directory
 # Usage: find_erotica.sh [dir]
 # Depends: GNU Find utils, GNU Parallel 20210822, GNU Grep, GNU Coreutils 8.32, bc
 # Desc: Searches for erotic phrases in text files in specified working directory
 # Usage: find_erotica.sh [dir]
 # Depends: GNU Find utils, GNU Parallel 20210822, GNU Grep, GNU Coreutils 8.32, bc

-# Version: 0.2.0
+# Version: 0.2.2

 
 
 FIN_MAX=400;
 
 
 FIN_MAX=400;


@@ -39,9 +39,9 @@ search_thread() {
             grep -v -- '-$'; # ADJUST ME
     );
 
             grep -v -- '-$'; # ADJUST ME
     );
 

-    if [[ "${#output[@]}" -gt 0 ]]; then
+    if [[ "${#output[@]}" -gt 1 ]]; then

         printf "%s\n" "$(basename "${fin}" )";
         printf "%s\n" "$(basename "${fin}" )";

-        printf "Result: %d lines.\n" "${#output[@]}"
+        printf "Result: %d lines.\n" "${#output[@]}";

         printf "%s\n" "${output[@]}";
         printf "\n";
     fi;
         printf "%s\n" "${output[@]}";
         printf "\n";
     fi;


@@ -90,15 +90,15 @@ find_nouns() {
     cmd+=('-e' 'lips');
     cmd+=('-e' 'lovers');
     cmd+=('-e' 'hard-on');
     cmd+=('-e' 'lips');
     cmd+=('-e' 'lovers');
     cmd+=('-e' 'hard-on');

-    cmd+=('-e' 'whore');

     cmd+=('-e' 'sex');
     cmd+=('-e' 'throat');
     cmd+=('-e' 'cleavage');
     cmd+=('-e' 'sex');
     cmd+=('-e' 'throat');
     cmd+=('-e' 'cleavage');

+    cmd+=('-e' 'kiss');

     cmd+=('--');
     cmd+=("$fin");
     local output; mapfile -t output < <( "${cmd[@]}"; );
     printf "%s\n" "${output[@]}";
     cmd+=('--');
     cmd+=("$fin");
     local output; mapfile -t output < <( "${cmd[@]}"; );
     printf "%s\n" "${output[@]}";

-
+    #printf "Found %d matching lines for nouns.\n" "${#output[@]}" 1>&2; # debug

     # yell "STATUS:Finished find_nouns() on $fin"  # debug;
 }; # find nouns
 find_adjectives() {
     # yell "STATUS:Finished find_nouns() on $fin"  # debug;
 }; # find nouns
 find_adjectives() {


@@ -141,11 +141,13 @@ find_adjectives() {
     cmd+=('-e' 'tender');
     cmd+=('-e' 'pleasurabl');
     cmd+=('-e' 'buxom|busty|curvy');
     cmd+=('-e' 'tender');
     cmd+=('-e' 'pleasurabl');
     cmd+=('-e' 'buxom|busty|curvy');

+    cmd+=('-e' 'naked|nude');

     cmd+=('--');
     cmd+=('-');
 
     local output; mapfile -t output < <( "${cmd[@]}"; );
     printf "%s\n" "${output[@]}";
     cmd+=('--');
     cmd+=('-');
 
     local output; mapfile -t output < <( "${cmd[@]}"; );
     printf "%s\n" "${output[@]}";

+    #printf "Found %d matching lines for adjectives.\n" "${#output[@]}" 1>&2; # debug

 }; # find adjectives
 find_verbs() {
     # Desc: Find verbs
 }; # find adjectives
 find_verbs() {
     # Desc: Find verbs


@@ -178,6 +180,7 @@ find_verbs() {
     cmd+=('-');
     local output; mapfile -t output < <( "${cmd[@]}"; );
     printf "%s\n" "${output[@]}";
     cmd+=('-');
     local output; mapfile -t output < <( "${cmd[@]}"; );
     printf "%s\n" "${output[@]}";

+    #printf "Found %d matching lines for verbs.\n" "${#output[@]}" 1>&2; # debug

 }; # find verbs
 find_mix_1() {
     # Desc: Filter mix 1
 }; # find verbs
 find_mix_1() {
     # Desc: Filter mix 1


@@ -270,10 +273,12 @@ find_phrase () {
     cmd+=('-e' '( his| her| my) [^\.|;]{,24}nipple.{,24}harden');
     cmd+=('-e' '(suck|lick)[^\.|;]{,12} (nipple|cock( |\.|,)|dick)');
     cmd+=('-e' '(slap)[^\.|;]{,12}( ass)');
     cmd+=('-e' '( his| her| my) [^\.|;]{,24}nipple.{,24}harden');
     cmd+=('-e' '(suck|lick)[^\.|;]{,12} (nipple|cock( |\.|,)|dick)');
     cmd+=('-e' '(slap)[^\.|;]{,12}( ass)');

-    cmd+=('-e' '( his| her| my) [^\.|;]{,12} (cunt|pussy( |\.|,)|cock( |\.|,)|dick|shaft( |\.|,|;))');
+    cmd+=('-e' '( his| her| my) [^\.|;]{,12}(cunt|pussy( |\.|,)|cock( |\.|,)|dick|shaft( |\.|,|;))');

     cmd+=('--');
     cmd+=('-');
     cmd+=('--');
     cmd+=('-');

-    "${cmd[@]}"; # execute command
+    local output; mapfile -t output < <( "${cmd[@]}"; );
+    printf "%s\n" "${output[@]}";
+    #printf "Found %d matching lines for phrases in %s.\n" "${#output[@]}" "$fin" 1>&2; # debug

 }; # find phrase
 main () {
     din="$1";
 }; # find phrase
 main () {
     din="$1";