Add readme and base stuff

.gitignore

@@ -0,0 +1,70 @@
+# Created by https://www.gitignore.io/api/emacs,linux,erlang
+
+### Emacs ###
+# -*- mode: gitignore; -*-
+*~
+\#*\#
+/.emacs.desktop
+/.emacs.desktop.lock
+*.elc
+auto-save-list
+tramp
+.\#*
+
+# Org-mode
+.org-id-locations
+*_archive
+
+# flymake-mode
+*_flymake.*
+
+# eshell files
+/eshell/history
+/eshell/lastdir
+
+# elpa packages
+/elpa/
+
+# reftex files
+*.rel
+
+# AUCTeX auto folder
+/auto/
+
+# cask packages
+.cask/
+dist/
+
+# Flycheck
+flycheck_*.el
+
+# server auth directory
+/server/
+
+# projectiles files
+.projectile
+
+### Linux ###
+*~
+
+# temporary files which can be created if a process still has a handle open of a deleted file
+.fuse_hidden*
+
+# KDE directory preferences
+.directory
+
+# Linux trash folder which might appear on any partition or disk
+.Trash-*
+
+
+### Erlang ###
+.eunit
+deps
+*.o
+*.beam
+*.plt
+erl_crash.dump
+ebin
+rel/example_project
+.concrete/DEV_MODE
+.rebar

README.org

@@ -0,0 +1,8 @@
+* Lisp Flavored Erlang Presentation
+
+This is some code to present at Arch Lisp to show off Lisp Flavored Erlang.
+
+Currently the code is derived from:
+
+- [[https://lfe.gitbooks.io/quick-start/content/]]
+- [[https://www.gitbook.com/book/lfe/casting-spels/details]]

quickstart/messenger-back.lfe

@@ -0,0 +1,19 @@
+(defmodule messenger-back
+  (export (print-result 0)
+          (send-message 2)))
+
+(defun print-result ()
+  (receive
+    (`#(,pid ,msg)
+     (io:format "Received message: '~s'~n" (list msg))
+     (io:format "Sending message to process ~p ...~n" (list pid))
+     (! pid `#(,msg))
+     (print-result))))
+
+(defun send-message (calling-pid msg)
+  (let ((spawned-pid (spawn 'messenger-back 'print-result '())))
+    (! spawned-pid (tuple calling-pid msg))))
+
+(defun demo ()
+  (messenger-back:send-message (self) "And what does it say now?")
+  (messenger-back:send-message (self) "Mostly harmless."))

quickstart/sample-module.lfe

@@ -0,0 +1,15 @@
+(defmodule sample-module
+  (export all))
+
+(defun my-sum (start stop)
+  (let ((my-list (lists:seq start stop)))
+    (* 2 (lists:foldl
+          (lambda (n acc)
+            (+ n acc))
+          0 my-list))))
+
+(defun demo ()
+  (io:format "2 * (6 + 5 + 4 + 3 + 2 + 1) = ~p~n" (list (sample-module:my-sum 1 6)))
+  (io:format "2 * (60 + 59 + ...) = ~p~n" (list (sample-module:my-sum 1 60)))
+  (io:format "2 * (600 + 599 + ...) = ~p~n" (list (sample-module:my-sum 1 600)))
+  (io:format "2 * (6000 + 5999 + ...) = ~p~n" (list (sample-module:my-sum 1 6000))))

spels/game.lfe

@@ -0,0 +1,127 @@
+(defmodule game
+  (export all))
+
+;; Creates:
+;; make-exit
+;; exit-direction
+;; exit-object
+;; exit-destination
+;; set-exit
+;; set-exit-direction
+;; set-exit-object
+;; set-exit-destination
+;; match-exit
+;; ...
+(defrecord exit
+  direction
+  object
+  destination)
+
+(defrecord place
+  name
+  description
+  exits)
+
+(defrecord object
+  name
+  location)
+
+(defrecord goal
+  name
+  achieved?)
+
+(defrecord state
+  objects
+  places
+  player-location
+  goals)
+
+(set objects
+     (list (make-object name 'whiskey-bottle location 'living-room)
+           (make-object name 'bucket location 'living-room)
+           (make-object name 'frog location 'garden)
+           (make-object name 'chain location 'garden)))
+
+(set living-room
+     (make-place
+      name 'living-room
+      description (++ "You are in the living-room of a wizard's house. "
+                      "There is a wizard snoring loudly on the couch.")
+      exits (list
+             (make-exit
+              direction "west"
+              object "door"
+              destination 'garden)
+             (make-exit
+              direction "upstairs"
+              object "stairway"
+              destination 'attic))))
+
+(set garden
+     (make-place
+      name 'garden
+      description (++ "You are in a beautiful garden. "
+                      "There is a well in front of you.")
+      exits (list
+             (make-exit
+              direction "east"
+              object "door"
+              destination 'living-room))))
+
+(set attic
+     (make-place
+      name 'attic
+      description (++ "You are in the attic of the wizard's house. "
+                      "There is a giant welding torch in the corner.")
+      exits (list
+             (make-exit
+              direction "downstairs"
+              object "stairway"
+              destination 'living-room))))
+
+(set netherworld
+     (make-place
+      name 'netherworld
+      description (++ "Everything is misty and vague. "
+                      "You seem to be in the netherworld.\n"
+                      "There are no exits.\n"
+                      "You could be here for a long, long time ...")
+      exits '()))
+
+(set goals
+     (list (make-goal name 'weld-chain achieved? 'false)
+           (make-goal name 'dunk-bucket achieved? 'false)
+           (make-goal name 'splash-wizard achieved? 'false)))
+
+(set state (make-state
+               objects objects
+               places (list living-room garden attic netherworld)
+               player-location 'living-room
+               goals goals))
+
+(defun here?
+  ((loc (match-place name place-name)) (when (== loc place-name))
+   'true)
+  ((_ _)
+   'false))
+
+(defun get-here
+  (((match-state player-location player-loc places locs))
+   (car (lists:filter
+         (lambda (loc)
+           (here? player-loc loc))
+         locs))))
+
+(defun describe-location (game-state)
+  (++ (place-description (get-here game-state)) "\n"))
+
+(defun describe-exit
+  (((match-exit object obj direction dir))
+   (++ "There is a " obj " going " dir " from here.")))
+
+(defun describe-exits (game-state)
+  (string:join
+    (lists:map
+      #'describe-exit/1
+      (place-exits (get-here game-state)))
+    " "))