First steps in LFE

afile_server.erl

-module(afile_server).
-export([start/1, loop/1]).

start(Dir) -> spawn(afile_server, loop, [Dir]).

loop(Dir) ->
    receive
	{Client, list_dir} ->
	    Client ! {self(), file:list_dir(Dir)};
	{Client, {get_file, File}} ->
	    Full = filename:join(Dir, File),
	    Client ! {self(), file:read_file(Full)}
    end,
    loop(Dir).

afile_server.lfe

(defmodule afile_server
  (export [start 1]
          [loop 1]))

;;usage:
;; (set ftp (afile_server:start "."))
;; (! ftp (tuple client-pid 'list_dir))


(defun start [dir]
  (spawn 'afile_server 'loop '(dir)))

(defun loop [dir]
  (receive
    ((tuple client 'list_dir)
      (lfe_io:format "Showing files in ~w ~n" (list dir))
      (lfe_io:format "Client: ~w~n" (list client))
      (! client 'files)
      (loop dir))
    ((tuple client 'get_file)
      (lfe_io:format "Get a file~n" ())
      (let [(file_path (filename:join dir "hello.lfe"))]
        (! client (file:read_file file_path))))
    (other ; handling not matching messages
      (lfe_io:format "Got unknown message.~n" ())))
  ;(loop dir)
  )

OK, i now have working version here: https://gist.github.com/timgluz/bc3d7e18643600da5965