leobm

; Ruby has an awesome feature -- string interpolation. Read about it on the internet.
; On the other hand, Clojure only has cumbersome Java string formatting, which can not be
; used without pain after you've tried Ruby.

; So here's this simple macro that basically allows you to do most things you could do
; with Ruby string interpolation in Clojure.

(ns eis.stuff
  (:require [clojure.string]))

leobm

defmodule MyApp do
  use Application

  def start(_type, _args) do
    import Supervisor.Spec, warn: false

    children = [
      Plug.Adapters.Cowboy.child_spec(:http, MyApp.Router, [], [
        dispatch: dispatch
      ])

leobm

macro_rules! avg {
    ($($t:expr),*) => (sum!($($t),*)/count!($($t),*));
}

macro_rules! count {
    ($h:expr) => (1);
    ($h:expr, $($t:expr),*) =>
        (1 + count!($($t),*));
}

leobm

Object>>chain
	^ ChainProxy new setTarget: self

ChainProxy>>doesNotUnderstand: aMessage
	target := aMessage sendTo: target.
	^ target

ChainProxy>>setTarget: anObject
	target := anObject.
	^ self