about summary refs log tree commit diff stats
path: root/lib/Lacerta/CLI.rakumod
diff options
context:
space:
mode:
authorAndinus <andinus@nand.sh>2021-07-29 20:32:06 +0530
committerAndinus <andinus@nand.sh>2021-07-29 20:34:22 +0530
commit58ca87ee67262101fb3fa3cf7b855dc4443f90e9 (patch)
treef8f28c3b19e897a488e882fefa6afcff6959b5c1 /lib/Lacerta/CLI.rakumod
parentc8ab90bf8dcba5fe44a04fdcf121c57a4944f27d (diff)
downloadlacerta-58ca87ee67262101fb3fa3cf7b855dc4443f90e9.tar.gz
Reformat code, add version sub
Diffstat (limited to 'lib/Lacerta/CLI.rakumod')
-rw-r--r--lib/Lacerta/CLI.rakumod102
1 files changed, 51 insertions, 51 deletions
diff --git a/lib/Lacerta/CLI.rakumod b/lib/Lacerta/CLI.rakumod
index 3ce42b0..cc74879 100644
--- a/lib/Lacerta/CLI.rakumod
+++ b/lib/Lacerta/CLI.rakumod
@@ -2,88 +2,88 @@ use Terminal::Spinners;
 use Text::Table::Simple;
 
 #| parses WhatsApp export
-unit sub MAIN (
+multi sub MAIN (
     Str $input where *.IO.f = "input", #= input log file to parse
     Str $profile-name = "Andinus", #= your WhatsApp profile name
-);
+) is export {
+    #| Parses the WhatsApp logs.
+    grammar WhatsApp {
+        token TOP { <Text> || <Notice> }
 
-#| Parses the WhatsApp logs.
-grammar WhatsApp {
-    token TOP { <Text> || <Notice> }
+        token Notice { <date> ', ' <time> ' - ' <message> }
+        token Text { <date> ', ' <time> ' - ' <name> ': ' <message> }
 
-    token Notice { <date> ', ' <time> ' - ' <message> }
-    token Text { <date> ', ' <time> ' - ' <name> ': ' <message> }
-
-    token date { (\d+) ** 3 % '/' }
-    token time { (\d+) ** 2 % ':' }
-    token name { [[\w|\s]+ | '+' \d+ [\d+|\s]+] }
-    token number { '+' \d+ [\d+|\s]+ }
-    token message { .* }
-}
+        token date { (\d+) ** 3 % '/' }
+        token time { (\d+) ** 2 % ':' }
+        token name { [[\w|\s]+ | '+' \d+ [\d+|\s]+] }
+        token number { '+' \d+ [\d+|\s]+ }
+        token message { .* }
+    }
 
-my WhatsApp @logs;
+    my WhatsApp @logs;
 
-{
+    my Instant $timed = now;
     Spinner.new(:type<bounce2>).await: Promise.start: {
         @logs = $input.IO.lines.race.map({WhatsApp.parse($_)}).grep(so *);
-    }
-    put "Parsed {@logs.elems} logs in " ~ (now - ENTER now) ~ "s";
-}
+    };
+    put "Parsed {@logs.elems} logs in " ~ (now - $timed) ~ "s";
 
-{
     my List @data;
     my List @given-data;
     my List @most-spoken-data;
     my Int $no-of-spoken = 8;
 
+    $timed = now;
     Spinner.new(:type<bounce>).await: Promise.start: {
         my Promise @promises;
         for @logs.grep(*<Text>).map(*<Text>).map(*<name>.Str).unique -> $name {
+            # Messages that weren't sent are logged under "ERROR" name.
             next if $name eq "ERROR";
+
+            # Promise for each names.
             push @promises, start with @logs.grep(*<Text>).map(*<Text>).grep(*<name> eq $name) {
-                @data.push(
-                    (
-                        $name,
-                        .elems,
-                        .map(*<message>.words).sum,
-                        .grep(*<message> eq ($name eq $profile-name
-                                             ?? "You deleted this message"
-                                             !! "This message was deleted")).elems,
-                        .grep(*<message> eq "<Media omitted>").elems,
-                        .map(*<time>[0][0].Int).Bag.max(*.values).key,
-                        @logs.grep(*<Notice>).grep(
-                            *<Notice><message>
-                            eq ($name eq $profile-name ?? "You left" !! "$name left")
-                        ).elems,
-                    )
+                push @data,
+                (
+                    $name,
+                    .elems,
+                    .map(*<message>.words).sum,
+                    .grep(*<message> eq ($name eq $profile-name
+                                         ?? "You deleted this message" !! "This message was deleted")).elems,
+                    .grep(*<message> eq "<Media omitted>").elems,
+                    .map(*<time>[0][0].Int).Bag.max(*.values).key,
+                    @logs.grep(*<Notice>).grep(*<Notice><message>
+                                               eq ($name eq $profile-name ?? "You left" !! "$name left")).elems,
                 );
                 with .map(*<message>).map(*.lc).cache {
-                    @given-data.push(
-                        (
-                            $name,
-                            .grep(*.contains: "fuck").elems,
-                        )
+                    push @given-data,
+                    (
+                        $name,
+                        .grep(*.contains: "fuck").elems,
                     );
-                    @most-spoken-data.push(
-                        (
-                            $name,
-                            .grep(* ne "<media omitted>")
-                             .grep(* ne ($name eq $profile-name
-                                         ?? "you deleted this message"
-                                         !! "this message was deleted")
-                                  ).map(*.words).Bag.grep(*.key.chars >= 4)
-                             .sort(*.values).reverse.map({"{$_.key} ({$_.value})"}).head($no-of-spoken).Slip,
-                        )
+
+                    push @most-spoken-data,
+                    (
+                        $name,
+                        .grep(* ne "<media omitted>")
+                         .grep(* ne ($name eq $profile-name
+                                     ?? "you deleted this message"
+                                     !! "this message was deleted")).map(*.words).Bag
+                         .grep(*.key.chars >= 4).sort(*.values).reverse
+                         .map({"{$_.key} ({$_.value})"}).head($no-of-spoken).Slip,
                     );
                 }
             }
         }
         await @promises;
     }
-    put "Generated data in " ~ (now - ENTER now) ~ "s" ~ "\n";
+    put "Generated data in " ~ (now - $timed) ~ "s" ~ "\n";
 
     my List %options = headers => (corner_marker => "*", bottom_border => "-");
     .say for lol2table(<Name Messages Words Deleted Media ActiveHour Left>, @data, |%options);
     .say for lol2table(<Name FucksGiven>, @given-data, |%options);
     .say for lol2table((|<Name MostSpoken-#1>, |("#" X~ (2..$no-of-spoken))), @most-spoken-data, |%options);
 }
+
+multi sub MAIN(
+    Bool :$version #= print version
+) is export { put "Lacerta v" ~ $?DISTRIBUTION.meta<version>; }