From c390480d010bdd2b58d9aeb1c00f375575db2547 Mon Sep 17 00:00:00 2001 From: Andinus Date: Thu, 18 Feb 2021 18:52:19 +0530 Subject: Handle reading puzzle from file within Octans::CLI module This makes it easier to understand. --- lib/Octans/Puzzle.rakumod | 51 +++++++++++++++++++++-------------------------- 1 file changed, 23 insertions(+), 28 deletions(-) (limited to 'lib/Octans/Puzzle.rakumod') diff --git a/lib/Octans/Puzzle.rakumod b/lib/Octans/Puzzle.rakumod index d97f9d6..a9563cb 100644 --- a/lib/Octans/Puzzle.rakumod +++ b/lib/Octans/Puzzle.rakumod @@ -8,36 +8,31 @@ sub get-puzzle ( ) is export { my @puzzle; - # Read the puzzle from file if it exists. - if $path.IO.f { - @puzzle = $path.IO.lines.map(*.words.cache.Array); + # $url will hold the url that we'll call to get the toot data. + my Str $url; + + # User can pass 2 types of links, either it will be the one + # when they view it from their local instance or the one they + # get from Algot's profile. We set $url from it. + if $path.match("web/statuses") -> $match { + $url = $match.replace-with("api/v1/statuses"); } else { - # $url will hold the url that we'll call to get the toot data. - my Str $url; - - # User can pass 2 types of links, either it will be the one - # when they view it from their local instance or the one they - # get from Algot's profile. We set $url from it. - if $path.match("web/statuses") -> $match { - $url = $match.replace-with("api/v1/statuses"); - } else { - $url = "https://mastodon.art/api/v1/statuses/" ~ $path.split("/")[*-1]; - } - - # grids capture grids of a row. - my token grids { \S \*? } - # rows capture rows of the puzzle. - my token rows { ** 2..* % \h } + $url = "https://mastodon.art/api/v1/statuses/" ~ $path.split("/")[*-1]; + } - # jget just get's the url & decodes the json. We access the - # description field of 1st media attachment. - if (jget($url)[0] ~~ - / \n\n + % \n / - ) -> $match { - for 0 .. $match.end -> $y { - for 0 .. $match[$y].end -> $x { - @puzzle[$y][$x] = $match[$y][$x].lc; - } + # grids capture grids of a row. + my token grids { \S \*? } + # rows capture rows of the puzzle. + my token rows { ** 2..* % \h } + + # jget just get's the url & decodes the json. We access the + # description field of 1st media attachment. + if (jget($url)[0] ~~ + / \n\n + % \n / + ) -> $match { + for 0 .. $match.end -> $y { + for 0 .. $match[$y].end -> $x { + @puzzle[$y][$x] = $match[$y][$x].lc; } } } -- cgit 1.4.1-2-gfad0 ^ 
dc92d375 ^



dc92d375 ^


cceb5d67 ^


dc92d375 ^

cceb5d67 ^

dc92d375 ^


cceb5d67 ^

dc92d375 ^




dc92d375 ^


565247df ^

5b14517a ^

cceb5d67 ^


912e26b4 ^

db2d4b1c ^

14adeb9c ^

dc92d375 ^

4d814e1e ^

8263cbac ^

dc92d375 ^

1

2
3
4

5
6

7
8

9

10

11
12

13

14
15
16
17

18
19

20

21

22
23

24

25

26

27

28

29

30