From 1284e5aa76d88f943c6f34ae8e4bc9c1be1fa895 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 25 Mar 2024 11:58:45 -0500 Subject: [PATCH] scryfall: rename words for consistency --- extra/scryfall/scryfall.factor | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/extra/scryfall/scryfall.factor b/extra/scryfall/scryfall.factor index 58cd66d52d..383202cb8d 100644 --- a/extra/scryfall/scryfall.factor +++ b/extra/scryfall/scryfall.factor @@ -201,16 +201,16 @@ MEMO: all-cards-by-name ( -- assoc ) : filter-premodern ( seq -- seq' ) "premodern" filter-legalities ; : filter-predh ( seq -- seq' ) "predh" filter-legalities ; -: filter-any-red ( seq -- seq' ) [ "colors" of "R" swap member? ] filter ; -: filter-only-red ( seq -- seq' ) [ "colors" of { "R" } = ] filter ; -: filter-any-blue ( seq -- seq' ) [ "colors" of "U" swap member? ] filter ; -: filter-only-blue ( seq -- seq' ) [ "colors" of { "U" } = ] filter ; -: filter-any-green ( seq -- seq' ) [ "colors" of "G" swap member? ] filter ; -: filter-only-green ( seq -- seq' ) [ "colors" of { "G" } = ] filter ; -: filter-any-black ( seq -- seq' ) [ "colors" of "B" swap member? ] filter ; -: filter-only-black ( seq -- seq' ) [ "colors" of { "B" } = ] filter ; -: filter-any-white ( seq -- seq' ) [ "colors" of "W" swap member? ] filter ; -: filter-only-white ( seq -- seq' ) [ "colors" of { "W" } = ] filter ; +: filter-red-any ( seq -- seq' ) [ "colors" of "R" swap member? ] filter ; +: filter-red-only ( seq -- seq' ) [ "colors" of { "R" } = ] filter ; +: filter-blue-any ( seq -- seq' ) [ "colors" of "U" swap member? ] filter ; +: filter-blue-only ( seq -- seq' ) [ "colors" of { "U" } = ] filter ; +: filter-green-any ( seq -- seq' ) [ "colors" of "G" swap member? ] filter ; +: filter-green-only ( seq -- seq' ) [ "colors" of { "G" } = ] filter ; +: filter-black-any ( seq -- seq' ) [ "colors" of "B" swap member? ] filter ; +: filter-black-only ( seq -- seq' ) [ "colors" of { "B" } = ] filter ; +: filter-white-any ( seq -- seq' ) [ "colors" of "W" swap member? ] filter ; +: filter-white-only ( seq -- seq' ) [ "colors" of { "W" } = ] filter ; : filter-multi-color ( seq -- seq' ) [ "colors" of length 1 > ] filter ; : filter-cmc= ( seq n -- seq' ) >float '[ "cmc" of _ = ] filter ; : filter-cmc< ( seq n -- seq' ) >float '[ "cmc" of _ < ] filter ; -- 2.34.1