yown.io

//
// Yown
// a little web doodad for Io
//

doRelativeFile("yown/splitlines.io")

Yown := Object clone do(

  list("builder", "splitlines", "webrequest", "webserver") foreach(lib,
    doRelativeFile("yown/" .. lib .. ".io"))

  //
  // The `get`, `put`, etc.
  // (Incoming action handlers)
  //
  handlers := Map clone
  list("get", "post", "put", "delete") foreach(action,
    handlers atPut(action, List clone)
    setSlot(action, 
      method(url, addHandler(call message name, url, call message argAt(1)))
    )
  )

  addHandler := method(action, url, block,
    handlers at(action) append(list("^#{url}$" interpolate asRegex, block))
  )

  handleRequest := method(req,
    match := handlers at(req command asLowercase) detect(l,
      req queryPath matchesRegex(l at(0)) 
    )
    if (match,
      doMessage(match at(1)),
      "404 NOT FOUND")
  )

  //
  // Starts the builtin server
  //
  run := method(
    WebServer run(self)
  )

  //
  // Main HTML method
  //
  html := method(
    Builder doMessage(call message)
  )
)