Elixir_Infinite_Receive.ex

loop = fn ->
  receive do
    {:whatever} ->
      # stuff
      loop.()
  end
end

defmodule Receiver do

  defmacro rec(do: block) do
    quote do: rec(do: unquote(block), after: nil)
  end
  defmacro rec(do: block, after: aft) do
    quote do
      loop = fn recurse ->
        receive do: unquote(block), after: unquote(aft)
        recurse.(recurse)
      end
      loop.(loop)
    end
  end


  def run do
    rec do
     :ping -> IO.puts "Got ping"
    after
      3000 -> IO.puts "Looping..."
    end
  end
end


iex(2)> Receiver.run
Looping...
Looping...
Looping...
Looping...
...

defmodule BreakFun do
  def break do
    throw :break
  end
end

defmodule Receiver do

  defmacro rec(do: block) do
    quote do: rec(do: unquote(block), after: nil)
  end
  defmacro rec(do: block, after: aft) do
    quote do
      import BreakFun

      try do
        loop = fn recurse ->
          receive do: unquote(block), after: unquote(aft)
          recurse.(recurse)
        end
        loop.(loop)
      catch
        :break ->
      end
    end
  end


  def run do
    rec do
     :ping -> IO.puts "Got ping"
    after
      3000 -> break
    end
  end
end

Receiver.run