Packages

barista

0.3.1
0.3.4 0.3.3 0.3.2 0.3.1 0.3.0 0.2.2 0.2.1 0.2.0

Hot lmugs of LFE for your simple HTTP needs

Current section

Files

Jump to
Readme
8 Versions
2 Dependencies
Dependants
Files
Activity
barista src barista-util.lfe
Raw

src/barista-util.lfe 

(defmodule barista-util

  (export all))



(defun version ()

  (version 'barista))



(defun version (app-name)

  (application:load app-name)

  (case (application:get_key app-name 'vsn)

    (`#(ok ,vsn) vsn)

    (default default)))



(defun version-arch ()

  `#(architecture ,(erlang:system_info 'system_architecture)))



(defun version+name (app-name)

  `#(,app-name ,(version app-name)))



(defun versions-rebar ()

  `(,(version+name 'rebar)

    ,(version+name 'rebar3_lfe)))



(defun versions-langs ()

  `(,(version+name 'lfe)

    #(erlang ,(erlang:system_info 'otp_release))

    #(emulator ,(erlang:system_info 'version))

    #(driver ,(erlang:system_info 'driver_version))))



(defun versions ()

  (lists:append `((,(version+name 'barista))

                  ,(versions-langs)

                  ,(versions-rebar)

                  (,(version-arch)))))



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



(defun parse-query (query)

  (maps:from_list (uri_string:dissect_query query)))



(defun parse-body

  (("application/x-www-form-urlencoded" body)

   (parse-query body))

  ((_ body)

   body))