Packages

undertheory

0.2.0
0.3.0 0.2.0 0.2.0-rc6 0.2.0-rc5 0.2.0-rc4 0.2.0-rc3 0.2.0-rc2 0.2.0-rc1 0.1.0

Music-theoretic LFE modules: notes, intervals, keys, scales, modes, melody-generation, etc.

Current section

Files

Jump to
Readme
9 Versions
1 Dependency
Dependants
Files
Activity
undertheory src uth.lfe
Raw

src/uth.lfe 

(defmodule uth

  (export all))



;;; Version functions



(defun version ()

  (version 'undertheory))



(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 'undertheory))

                  ,(versions-langs)

                  ,(versions-rebar)

                  (,(version-arch)))))