Make annna-meme-recommend an external script for experiments. - annna - Annna the nice friendly bot.
(HTM) git clone git://bitreich.org/annna/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/annna/
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) Tags
(DIR) README
---
(DIR) commit a24a5499786a503bf1ec6f6028f7e5bc0698f29b
(DIR) parent 17dc6eb1db93e99ce26ad2dc65dbbf54988c02e0
(HTM) Author: Annna Robert-Houdin <annna@bitreich.org>
Date: Sun, 7 Aug 2022 18:30:13 +0200
Make annna-meme-recommend an external script for experiments.
Diffstat:
A annna-meme-recommend | 19 +++++++++++++++++++
M annna-message-common | 6 +-----
2 files changed, 20 insertions(+), 5 deletions(-)
---
(DIR) diff --git a/annna-meme-recommend b/annna-meme-recommend
@@ -0,0 +1,19 @@
+#!/bin/sh
+
+if [ $# -lt 1 ];
+then
+ printf "usage: %s hashtag\n" "$(basename "$0")" >&2
+ exit 1
+fi
+
+export PATH="$HOME/bin:$PATH"
+
+hashtagfile="$HOME/bin/modules/hashtags/hashtags.txt"
+
+hashtag="$1"
+
+agrep -i -1 "^#${hashtag} " "${hashtagfile}" \
+ | head -n 5 \
+ | cut -d' ' -f 1 \
+ | tr "\n" " "
+
(DIR) diff --git a/annna-message-common b/annna-message-common
@@ -1087,11 +1087,7 @@ do
then
annna-say -s "${server}" -c "${channel}" "${tagline% *}: ${tagline#* }"
else
- # Use the special agrep -1 to find similar memes.
- didyoumean="$(agrep -i -1 "^#${tag} " "${hashtagfile}" \
- | head -n 5 \
- | cut -d' ' -f 1 \
- | tr "\n" " ")"
+ didyoumean="$(annna-meme-recommend)"
if [ -n "${didyoumean}" ];
then
annna-say -c "${server}" -c "${channel}" "Did you mean: ${didyoumean}?"