Packages

logjam

0.5.0-rc1
1.2.4 1.2.3 1.2.2 1.2.1 1.2.0 1.1.1 1.1.0 1.0.5 1.0.4 1.0.3 1.0.2 1.0.1 1.0.0 1.0.0-rc3 0.5.0-rc2 0.5.0-rc1

A custom formatter for the logger application with LFE logging macros and human-readable output

HexDocs

Current section

Files

Jump to
Readme
16 Versions
0 Dependencies
Dependants
Files
Activity
logjam src logjam-util.lfe
Raw

src/logjam-util.lfe 

(defmodule logjam-util

  (export all))



(defun get-version ()

  (lutil:get-app-version 'logjam))



(defun get-versions ()

  (++ (lutil:get-versions)

      `(#(logjam ,(get-version)))))



(defun check ()

  (let ((caller (logjam:caller)))

    (logjam:info `#(c ,caller) "Checking all log levels ...")

    (lists:foreach

      (lambda (x)

        (call 'logjam x `#(c ,caller)  (++ "Testing log output of "

                                           (atom_to_list x)

                                           " with args: ~s, ~s, and ~s ...")

                '(apple banana cranberry)))

      '(debug info notice warning error critical alert emergency))

    (logjam:info `#(c ,caller) "Check complete.")

    (timer:sleep 500)

    'ok))



(defun check (level)

  (let ((caller (logjam:caller)))

    (logjam:info `#(c ,caller) "Checking log-level ~p ..." `(,level))

    (call 'logjam level `#(c ,caller) (++ "Testing log output of "

                                          (atom_to_list level)

                                          " ... "))

    (logjam:info `#(c ,caller) "Checked log-level ~p." `(,level))))



(defun color-opt ()

  (lists:keyfind 'colored 1 (lcfg-log:get-logging-config)))