Skip to content

Instantly share code, notes, and snippets.

@turbo

turbo/test.fnl.clj

Created October 18, 2019 22:07
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save turbo/ef5998532cd4b8414d54cc012fc16cf5 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save turbo/ef5998532cd4b8414d54cc012fc16cf5 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. turbo created this gist Oct 18, 2019.
    8 changes: 8 additions & 0 deletions test.fnl.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,8 @@
    (macro make [receiver classtable bodyfn]
    `(local ,receiver (doto (class ,(tostring receiver) ,classtable)
    (,bodyfn))))

    ; Handler that takes a single argument 'username'
    (make UserHandler turbo.web.RequestHandler #(-> $1
    (tset :get (fn [self name]
    (self:write (.. "Username is " name))))))