From 92c66fb03284d37904698e91f083fa5694ce3ea5 Mon Sep 17 00:00:00 2001
From: Sameer Rahmani <lxsameer@gnu.org>
Date: Fri, 2 Mar 2018 18:32:01 +0000
Subject: [PATCH] A very basic race module has been added

---
 lib/fg42.el      |  1 +
 lib/fg42/race.el | 45 +++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 46 insertions(+)
 create mode 100644 lib/fg42/race.el

diff --git a/lib/fg42.el b/lib/fg42.el
index a1a94ca..58ddaf4 100644
--- a/lib/fg42.el
+++ b/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")
diff --git a/lib/fg42/race.el b/lib/fg42/race.el
new file mode 100644
index 0000000..7ce7a79
--- /dev/null
+++ b/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