scryfall: clean up some code, add text summary printing

[factor.git] / extra / scryfall / scryfall.factor

diff --git a/extra/scryfall/scryfall.factor b/extra/scryfall/scryfall.factor
index 383202cb8d9c3660ae633d4031ecaca86045c013..820d104ee5525569fc93004324617c199ae2c6d0 100644 (file)
--- a/extra/scryfall/scryfall.factor
+++ b/extra/scryfall/scryfall.factor
@@ -1,46 +1,56 @@
 ! Copyright (C) 2024 Doug Coleman.
 ! See https://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs assocs.extras calendar
-http.download images.loader images.viewer io io.directories json
-json.http kernel math math.statistics namespaces sequences
-sequences.extras sets sorting splitting ui.gadgets.panes unicode
-urls ;
+combinators http.download images.loader images.viewer io
+io.directories json json.http kernel math math.parser
+math.statistics namespaces sequences sequences.extras sets
+sorting splitting ui.gadgets.panes unicode urls ;
 IN: scryfall
 
 CONSTANT: scryfall-oracle-json-path "resource:scryfall-oracle-json"
+CONSTANT: scryfall-artwork-json-path "resource:scryfall-artwork-json"
+CONSTANT: scryfall-default-json-path "resource:scryfall-default-json"
+CONSTANT: scryfall-all-json-path "resource:scryfall-all-json"
+CONSTANT: scryfall-rulings-json-path "resource:scryfall-rulings-json"
 CONSTANT: scryfall-images-path "resource:scryfall-images/"
 
+: ?print ( str/f -- ) [ print ] [ nl ] if* ;
+
 : download-scryfall-bulk-json ( -- json )
     "https://api.scryfall.com/bulk-data" http-get-json nip ;
 
 : find-scryfall-json ( type -- json/f )
     [ download-scryfall-bulk-json "data" of ] dip '[ "type" of _ = ] filter ?first ;
 
-: scryfall-oracle-uri ( -- uri )
-    "oracle_cards" find-scryfall-json "download_uri" of ;
+: load-scryfall-json ( type path -- uri )
+    [ find-scryfall-json "download_uri" of ] dip
+    120 hours download-outdated-to path>json ;
 
-: scryfall-unique-artwork-uri ( -- uri )
-    "unique_artwork" find-scryfall-json "download_uri" of ;
+MEMO: mtg-oracle-cards ( -- json )
+    "oracle_cards" scryfall-oracle-json-path load-scryfall-json ;
 
-: scryfall-default-cards-uri ( -- uri )
-    "default_cards" find-scryfall-json "download_uri" of ;
+: mtg-artwork-cards ( -- json )
+    "unique_artwork" scryfall-artwork-json-path load-scryfall-json ;
 
-: scryfall-all-cards-uri ( -- uri )
-    "all_cards" find-scryfall-json "download_uri" of ;
+MEMO: scryfall-default-cards-json ( -- json )
+    "default_cards" scryfall-default-json-path load-scryfall-json ;
 
-: scryfall-rulings-uri ( -- uri )
-    "rulings" find-scryfall-json "download_uri" of ;
+MEMO: scryfall-all-cards-json ( -- json )
+    "all_cards" scryfall-all-json-path load-scryfall-json ;
 
-: download-scryfall-oracle-cards-json ( -- path )
-    scryfall-oracle-uri scryfall-oracle-json-path 120 hours download-outdated-to ;
+MEMO: scryfall-rulings-json ( -- json )
+    "rulings" scryfall-rulings-json-path load-scryfall-json ;
 
 : ensure-scryfall-images-directory ( -- )
     scryfall-images-path make-directories ;
 
-: scryfall>local ( string -- path )
+: scryfall-local-image-path ( string -- path )
     >url path>> "/" ?head drop "/" "-" replace
     scryfall-images-path "" prepend-as ;
 
+: map-card-faces ( assoc quot -- seq )
+    [ "card_faces" of ] dip map ; inline
+
 : card>image-uris ( assoc -- seq )
     [ "image_uris" of ]
     [ 1array ]
@@ -49,27 +59,20 @@ CONSTANT: scryfall-images-path "resource:scryfall-images/"
 : small-images ( seq -- seq' ) [ "small" of ] map ;
 : normal-images ( seq -- seq' ) [ "normal" of ] map ;
 
+: download-scryfall-image ( assoc -- path )
+    dup scryfall-local-image-path dup delete-when-zero-size
+    [ download-once-to ] [ nip ] if ;
+
 : download-normal-images ( seq -- seq' )
     ensure-scryfall-images-directory
-    normal-images [
-        dup scryfall>local dup delete-when-zero-size
-        [ download-once-to ] [ nip ] if
-    ] map
-    [ load-image ] map ;
+    normal-images [ download-scryfall-image load-image ] map ;
 
 : download-small-images ( seq -- seq' )
     ensure-scryfall-images-directory
-    small-images [
-        dup scryfall>local dup delete-when-zero-size
-        [ download-once-to ] [ nip ] if
-    ] map
-    [ load-image ] map ;
-
-MEMO: scryfall-cards-json ( -- json )
-    download-scryfall-oracle-cards-json path>json ;
+    small-images [ download-scryfall-image load-image ] map ;
 
 MEMO: all-cards-by-name ( -- assoc )
-    scryfall-cards-json
+    mtg-oracle-cards
     [ "name" of ] collect-by
     [ first ] map-values ;
 
@@ -245,7 +248,7 @@ MEMO: all-cards-by-name ( -- assoc )
 : filter-rare ( seq -- seq' ) '[ "rarity" of "rare" = ] filter ;
 : filter-mythic ( seq -- seq' ) '[ "rarity" of "mythic" = ] filter ;
 
-: standard-cards ( -- seq' ) scryfall-cards-json filter-standard ;
+: standard-cards ( -- seq' ) mtg-oracle-cards filter-standard ;
 
 : sort-by-cmc ( assoc -- assoc' ) [ "cmc" of ] sort-by ;
 : histogram-by-cmc ( assoc -- assoc' ) [ "cmc" of ] histogram-by sort-keys ;
@@ -278,8 +281,38 @@ MEMO: all-cards-by-name ( -- assoc )
 
 : normal-cards. ( seq -- ) [ normal-card. ] each ;
 
+: card-face-summary. ( seq -- )
+    {
+        [ "name" of write bl ]
+        [ "mana_cost" of ?print ]
+        [ "type_line" of ?print ]
+        [ [ "power" of ] [ "toughness" of ] bi 2dup and [ "/" glue print ] [ 2drop ] if ]
+        [ "oracle_text" of ?print ]
+    } cleave nl ;
+
+: card-face-summaries. ( seq -- ) [ card-face-summary. ] each ;
+
+: card-summary. ( assoc -- )
+    {
+        [
+            [ "card_faces" of ]
+            [ [ length number>string "Card Faces: " prepend print ] [ card-face-summaries. ] bi ]
+            [ card-face-summary. ] ?if
+        ]
+    } cleave nl nl nl ;
+
+: card-summaries. ( seq -- ) [ card-summary. ] each ;
+
+: card-summary-with-pic. ( assoc -- )
+    [ normal-card. ]
+    [ card-summary. ] bi ;
+
+: card-summaries-with-pics. ( seq -- ) [ card-summary-with-pic. ] each ;
+
 : standard-dragons. ( -- )
     standard-cards
     "Dragon" filter-creature-type
     sort-by-cmc
     normal-cards. ;
+
+: collect-by-cmc ( seq -- seq' ) [ "cmc" of ] collect-by ;