forked from org-trello/org-trello
-
Notifications
You must be signed in to change notification settings - Fork 0
/
org-trello-log.el
44 lines (39 loc) · 1.57 KB
/
org-trello-log.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
;;; org-trello-log.el --- Log related functions.
;;; Commentary:
;;; Code:
(defconst orgtrello-log-no-log 0 "No log level except for error.")
(defconst orgtrello-log-error 1 "Error log level.")
(defconst orgtrello-log-warn 2 "Warn log level.")
(defconst orgtrello-log-info 3 "Info log level.")
(defconst orgtrello-log-debug 4 "Debug log level.")
(defconst orgtrello-log-trace 5 "Trace log level.")
(defcustom orgtrello-log-level orgtrello-log-info
"Set log level.
Levels:
0 - no log (`orgtrello-log-quiet')
1 - errors (`orgtrello-log-error')
2 - warnings (`orgtrello-log-warn')
3 - info (`orgtrello-log-info')
4 - debug (`orgtrello-log-debug')
5 - trace (`orgtrello-log-trace')
To change such level, add this to your init.el file:
\(custom-set-variables '\(orgtrello-log-level orgtrello-log-trace\)\)"
:options (list orgtrello-log-no-log
orgtrello-log-error
orgtrello-log-warn
orgtrello-log-info
orgtrello-log-debug
orgtrello-log-trace)
:type 'integer
:require 'org-trello
:group 'org-trello)
(defun orgtrello-log-msg (level &rest args)
"Log message with LEVEL.
Depending on `orgtrello-log-level', this will be displayed or not.
All errors are displayed anyway.
ARGS constitutes the parameters to feed to message."
(when (or (<= level orgtrello-log-level) (eq orgtrello-log-error level))
(apply 'message (format "org-trello - %s" (car args)) (cdr args))))
(orgtrello-log-msg orgtrello-log-debug "orgtrello-log loaded!")
(provide 'org-trello-log)
;;; org-trello-log.el ends here