Packages

lutil

0.16.1
0.16.3 0.16.2 0.16.1 0.15.0 0.14.3 0.14.2 0.14.1 0.14.0 0.13.5 0.13.4 0.13.3 0.13.2 0.13.1 0.13.0 0.12.2 0.12.1 0.12.0 0.10.0-rc6 0.10.0-rc5 0.10.0-rc4 0.10.0-rc3 0.10.0-rc2 0.10.0-rc1

LFE Utility Functions and Macros

HexDocs

Current section

Files

Jump to
Readme
23 Versions
1 Dependency
6 Dependants
Files
Activity
lutil src lutil.lfe
Raw

src/lutil.lfe 

;;;; misc utility functions

;;;;

(defmodule lutil

  (export all))



(defun check (x)

  (=/= x 'false))



(defun env ()

  (maps:from_list (os:env)))



(defun env (key-str)

  (let ((e (env)))

    (if (maps:is_key key-str e)

      (mref e key-str)

      "")))



(defun user ()

  (env "USER"))



(defun home()

  (env "HOME"))



(defun get-env-funcs (env)

  (lists:sort

    (lists:map

      (lambda (x)

        (element 1 x))

      (element 3 env))))



(defun shuffle (items)

  (list-comp ((<- `#(,_ ,n) (lists:sort

                             (list-comp ((<- m items))

                               `#(,(rand:uniform) ,m)))))

    n))



(defun version ()

  (lutil-vsn:get))



(defun versions ()

  (lutil-vsn:all))