From f7abccc38ceda7024ca375d34ed88f4fb561ef02 Mon Sep 17 00:00:00 2001 From: colin Date: Sun, 5 Mar 2023 16:36:44 -0800 Subject: Reorganized codebase --- queries.lisp | 26 -------------------------- 1 file changed, 26 deletions(-) delete mode 100644 queries.lisp (limited to 'queries.lisp') diff --git a/queries.lisp b/queries.lisp deleted file mode 100644 index 4538c75..0000000 --- a/queries.lisp +++ /dev/null @@ -1,26 +0,0 @@ -;;;; queries.lisp -- query the database - -(in-package :dnd) - -(defun all-heroes () - (db:store-objects-with-class 'hero)) - -(defun player-campaigns (player) - "Return a list of campaigns that that player is involved in." - (remove nil (mapcar #'hero-campaign (player-heroes player)))) - -(defun campaign-heros (campaign &key (activep t)) - "All the heros actively involved in this CAMPAIGN. If ACTIVEP, then -only the active quest(s) are considered, otherwise all quests are considered." - (remove-duplicates - (mapcan #'heroes-on-quest - (if activep - (remove-if-not #'quest-startedp (quests-in-campaign campaign)) - (quests-in-campaign campaign))))) - -(defun fetch-comrades (player &key (activep t)) - "Returns all the heroes in any one of the player's campaigns. If -ACTIVEP, then only heroes involved in active quests are returned." - (remove-duplicates - (loop :for campaign :in (player-campaigns player) - :nconc (campaign-heros campaign :activep activep)))) -- cgit v1.2.3