Move Lat module here, as it uses brain too

Phrases.txt

@@ -11,13 +11,13 @@
 	* с префиксом в виде любого количества пробельных символов + имени бота + любое количество пробельных символов +
 	  опциональньная запятая + любое количество пробельных символов. После команды опциональная точка и любое
 	  количество пробельных символов.
-	* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
+	* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
 	  протокол) + команда + опциональная точка и любое количество пробельных символов.
   - Для публичных чатов допустимой являются нотации:
 	* с префиксом в виде любого количества пробельных символов + имени бота + любое количество пробельных символов +
 	  опциональньная запятая + любое количество пробельных символов. После команды опциональная точка и любое
 	  количество пробельных символов.
-	* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
+	* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
 	  протокол) + команда + опциональная точка и любое количество пробельных символов.
   Ответ на эту фразу - слово "Pong." если фраза была на английском языке или "Понг.", если фраза была на русском языке.
 
@@ -28,15 +28,20 @@
 	* с префиксом в виде любого количества пробельных символов + имени бота + любое количество пробельных символов +
 	  опциональньная запятая + любое количество пробельных символов. После команды опциональная точка и любое
 	  количество пробельных символов.
-	* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
+	* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
 	  протокол) + ping + опциональная точка и любое количество пробельных символов.
   - Для публичных чатов допустимой являются нотации:
 	* с префиксом в виде любого количества пробельных символов + имени бота + любое количество пробельных символов +
 	  опциональньная запятая + любое количество пробельных символов. После команды опциональная точка и любое
 	  количество пробельных символов.
-	* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
+	* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
 	  протокол) + команда + опциональная точка и любое количество пробельных символов.
   Ответ на эту фразу - слово "Wat?" если фраза была на английском языке или "Шта?", если фраза была на русском языке.
+* lat или лат
+  - Для приватных и публичных чатов допустимой является нотация:
+    * символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
+	  протокол) + команда + опциональная точка и любое количество пробельных символов.
+  Ответ на эту фразу - одно произвольное предложение из предсгенерённого "мозга" с цепями Маркова.
 
 * halp или хэлп
   - Для приватных чатов допустимой являются нотации:
@@ -45,34 +50,34 @@
 	* с префиксом в виде любого количества пробельных символов + имени бота + любое количество пробельных символов +
 	  опциональньная запятая + любое количество пробельных символов. После команды опциональная точка и любое
 	  количество пробельных символов.
-	* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
+	* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
 	  протокол) + команда + опциональная точка и любое количество пробельных символов.
   - Для публичных чатов допустимой являются нотации:
 	* с префиксом в виде любого количества пробельных символов + имени бота + любое количество пробельных символов +
 	  опциональньная запятая + любое количество пробельных символов. После команды опциональная точка и любое
 	  количество пробельных символов.
-	* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
+	* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
 	  протокол) + команда + опциональная точка и любое количество пробельных символов.
   Ответ на эту фразу - слово "HALP!!!11".
 
 * kde или кде
   - Для приватных и публичных чатов допустимой является нотация:
-    * символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
+    * символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
 	  протокол) + команда + опциональная точка и любое количество пробельных символов.
   Ответ на эту фразу - одно произвольное предложение из массива ответов на эту фразу.
 
 * roll или dice или кости
   - Для приватных и публичных чатов допустимой является нотация:
-    * символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
+    * символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
 	  протокол) + команда + опциональная точка и любое количество пробельных символов.
   Ответ на эту фразу - "На первой кости выпало M, а на второй — N.", где M и N произвольные целые числа от 1 до 6
   включительно.
 
 * ver или version или версия
   - Для приватных и публичных чатов допустимой является нотация:
-    * символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
+    * символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
 	  протокол) + команда + опциональная точка и любое количество пробельных символов.
-  Ответ на эту фразу - номер версии ПО.
+  Ответ на эту фразу - приблизительный номер версии ПО.
 
 * кто все эти люди?
   - Для приватных и публичных чатов допустимой является нотация:

README

@@ -17,7 +17,7 @@ aleesa-craniac
 Ответ направляется в redis-канал, указанный в поле plugin входящего сообщения, если не предполагается некоей особой
 логики, связанной с easter egg поведением.
 
-Формат протокола - см README от aleesa-misc.
+Формат протокола - см. README от aleesa-misc.
 
 
 Как это запустить?

bin/train_lat.pl

@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use 5.018;
+use strict;
+use warnings;
+use utf8;
+use open qw (:std :utf8);
+use English qw ( -no_match_vars );
+use version; our $VERSION = qw (1.0);
+
+my $workdir;
+
+# before we run, change working dir
+BEGIN {
+	use Cwd qw (chdir abs_path);
+	my @CWD = split /\//xms, abs_path ($PROGRAM_NAME);
+	if ($#CWD > 1) { $#CWD = $#CWD - 2; }
+	$workdir = join '/', @CWD;
+	chdir $workdir;
+}
+
+use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
+use Craniac::Lat qw (Train);
+
+Train ();
+exit 0;

cpanfile

@@ -1,3 +1,4 @@
+requires 'Carp',                 '==1.50';
 requires 'Cwd',                  '0';
 requires 'Cwd::utf8',            '==0.011';
 requires 'Digest::SHA',          '==6.02';

data/config_sample.json

@@ -1,12 +1,12 @@
 {
     "server" : "redis",
     "port" : "6379",
-    "channels": [
+    "channels" : [
         "craniac"
     ],
 
     # should we fork() and become unix daemon?
-    "daemonize": 1,
+    "daemonize" : 1,
 
     # caches and other data goes there
     "cachedir" : "data/cache",
@@ -17,11 +17,16 @@
 
     # logs goes there
     "log" : "/var/log/aleesa-craniac/aleesa-craniac.log",
-    "loglevel": "info",
+    "loglevel" : "info",
 
     # ditto
     "pid" : "/var/run/aleesa-craniac/aleesa-craniac.pid",
 
     # maximal amount of message forwardings, to avoid endless loops
-    "forwards_max" : 5
+    "forwards_max" : 5,
+
+    "lat" : {
+        "brain" : "data/lat/brain.sqlite",
+        "src" : "data/lat.txt"
+    }
 }

lib/Craniac.pm

@@ -29,6 +29,8 @@ use Math::Random::Secure qw (irand);
 use Text::Fuzzy qw (distance_edits);
 
 use Conf qw (LoadConf);
+use Craniac::Lat qw (Lat);
+
 use version; our $VERSION = qw (1.0);
 use Exporter qw (import);
 our @EXPORT_OK = qw (RunCraniac);
@@ -247,6 +249,8 @@ my $parse_message = sub {
 			$reply = sprintf 'На первой кости выпало %d, а на второй — %d.', irand (6) + 1, irand (6) + 1;
 		} elsif ($m->{message} =~ /^\Q$m->{misc}->{csign}\E(ver|version|версия)$/ui) {
 			$reply = 'Версия:  Четыре.Технологическое_превью';
+		} elsif ($m->{message} =~ /^\Q$m->{misc}->{csign}\E(lat|лат)\s*$/ui) {
+			$reply = Lat ();
 		}
 	}
 

lib/Craniac/Lat.pm

@@ -0,0 +1,89 @@
+package Craniac::Lat;
+# Крылатые латинские выражения спёрты с https://ru.wikipedia.org/wiki/Список_крылатых_латинских_выражений
+
+use 5.018;
+use strict;
+use warnings;
+use utf8;
+use open qw (:std :utf8);
+use English qw ( -no_match_vars );
+use Carp qw (cluck);
+use File::Basename qw (dirname);
+use File::Path qw (make_path);
+use Hailo;
+use Mojo::Log;
+
+use Conf qw (LoadConf);
+
+use version; our $VERSION = qw (1.0);
+use Exporter qw (import);
+our @EXPORT_OK = qw (Train Lat);
+
+my $c = LoadConf ();
+my $brain = $c->{lat}->{brain};
+my $srcfile = $c->{lat}->{src};
+my $loglevel = $c->{'loglevel'} // 'info';
+my $log;
+
+if (defined $c->{'log'}) {
+	$logfile = $c->{'log'};
+} elsif (defined $c->{'debug_log'}) {
+	$logfile = $c->{'debug_log'};
+}
+
+if (defined $logfile) {
+	$log = Mojo::Log->new (path => $logfile, level => $loglevel);
+} else {
+	$log = Mojo::Log->new (path => '/dev/null', level => 'fatal');
+}
+
+sub Train () {
+	my $braindir = dirname $brain;
+
+	unless (-d $braindir) {
+		make_path ($braindir) or do {
+			cluck "Unable to create $braindir: $OS_ERROR";
+			exit 1;
+		};
+	}
+
+	my $lat = Hailo->new (
+		brain => $brain,
+		# В нашем случае среднее количество слов в фразе равно 3
+		order => 2
+	);
+
+	$lat->train ($srcfile);
+	my ($tokens, $expressions) = ($lat->stats ())[0,1];
+	printf "Total tokens: %s\nTotal expressions: %s\n", $tokens, $expressions;
+	$lat->save ();
+	return;
+}
+
+# Просто вернём ответ
+sub Lat () {
+	my $braindir = dirname $brain;
+
+	unless (-d $braindir) {
+		$log->error ("[ERROR] No lat module data: $braindir is absent! Train lat first.");
+		return '';
+	}
+
+	unless (-f $brain) {
+		$log->error ("[ERROR] No lat module data: $brain is absent! Train lat first.");
+		return '';
+	}
+
+	my $lat = Hailo->new (
+		brain => $brain,
+		# В нашем случае среднее количество слов в фразе равно 3
+		order => 2,
+		save_on_exit => 0
+	);
+
+	return $lat->reply ();
+}
+
+1;
+
+# vim: ft=perl noet ai ts=4 sw=4 sts=4: