A very basic race module has been added

lib/fg42.el

@@ -27,6 +27,7 @@
 (require 'fpkg)
 (require 'fg42/base)
 (require 'fg42/splash)
+(require 'fg42/race)
 
 (defvar fg42-home (getenv "FG42_HOME")
   "The pass to fg42-home")

lib/fg42/race.el

@@ -0,0 +1,45 @@
+;;; lxdrive-mode --- A minor mode for fast cursor movement
+;;; Commentary:
+;;; Code:
+
+(defvar user-race :god
+  "The race of the user.")
+
+(defun i-am (race)
+  "Set the user race to the given RACE."
+  (if (member race '(:god :human :evil))
+      (setq user-race race)
+    (error "Invalid race '%s'.  Choices are ':god', ':human', ':evil'" race)))
+
+(defun i-am-evil ()
+  "Set the user race to :evil."
+  (interactive)
+  (setq user-race :evil))
+
+(defun i-am-god ()
+  "Set the user race to :god."
+  (interactive)
+  (setq user-race :god))
+
+(defun i-am-human ()
+  "Set the user race to :human."
+  (interactive)
+  (setq user-race :human))
+
+(defun is-evil? ()
+  "Is user a evil?"
+  (interactive)
+  (eq user-race :evil))
+
+(defun is-god? ()
+  "Is user a god?"
+  (interactive)
+  (eq user-race :god))
+
+(defun is-human? ()
+  "Is user a human?"
+  (interactive)
+  (eq user-race :human))
+
+(provide 'fg42/race)
+;;; race.el ends here