Refactor to make cooperative hacking nicer

1 files changed, 0 insertions, 29 deletions

diff --git a/src/transactions.lisp b/src/transactions.lisp
index 3372520..94ca83a 100644
--- a/src/transactions.lisp
+++ b/src/transactions.lisp
@@ -2,35 +2,6 @@
 
 (in-package :dnd)
 
-(defun birth-from-the-goddess-loins (player name)
-  (db:with-transaction ()
-    (make-instance 'hero :name name :player player)))
 
-(defun new-sesh (player)
-  (db:with-transaction () (make-instance 'session :player player)))
 
-(defun destroy-sesh (session)
-  (db:with-transaction () 
-    (db:delete-object session)))
 
-(defun register-player (nick)
-  (db:with-transaction ()
-    (make-instance 'player :nickname nick)))
-
-(defun create-adventure (player title &key (description "") seers)
-  (db:with-transaction ()
-    (make-instance 'adventure :title title :creator player
-                   :seers seers
-                   :description description)))
-
-(defun report-a-rumor (reporter adventure reported)
-  (db:with-transaction ()
-    (let ((rumor
-            (make-instance 'rumor
-                           :reported reported
-                           :reporter reporter)))
-      (push rumor (rumors adventure)))))
-
-(defun add-adventure-seer (player adventure)
-  (db:with-transaction ()
-    (push player (seers adventure))))