steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: improved logging 

point goes to end of buffer and a timestamp is added
modern-harvey2
Björn Lindqvist 2017-06-30 02:27:42 +02:00
parent e27bd4020d
commit e8099389f9
1 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
misc/fuel/fuel-log.el
View File

@ -16,16 +16,15 @@
(require 'fuel-base) (require 'fuel-base)
;;; Customization: ;;; Customization:
(defvar fuel-log--buffer-name "*fuel messages*" (defvar fuel-log--buffer-name "*fuel messages*"
"Name of the log buffer") "Name of the log buffer")
(defvar fuel-log--max-buffer-size 32000 (defvar fuel-log--max-buffer-size 128000
"Maximum size of the Factor messages log") "Maximum size of the Factor messages log")
(defvar fuel-log--max-message-size 512 (defvar fuel-log--max-message-size 1024
"Maximum size of individual log messages") "Maximum size of individual log messages")
(defvar fuel-log--verbose-p t (defvar fuel-log--verbose-p t
@ -47,8 +46,7 @@
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(when (> b fuel-log--max-buffer-size) (when (> b fuel-log--max-buffer-size)
(delete-region (point-min) b)))) (delete-region (point-min) b))))
nil t) nil t))
(setq buffer-read-only t))
(defun fuel-log--buffer () (defun fuel-log--buffer ()
(or (get-buffer fuel-log--buffer-name) (or (get-buffer fuel-log--buffer-name)
@ -56,25 +54,31 @@
(factor-messages-mode) (factor-messages-mode)
(current-buffer)))) (current-buffer))))
(defun fuel-log--msg (type &rest args) (defun fuel-log--timestamp ()
(format-time-string "%Y-%m-%d %T"))
(defun fuel-log--format-msg (type args)
(format "%s %s: %s\n\n" (fuel-log--timestamp) type (apply 'format args)))
(defun fuel-log--msg (type args)
(when (or fuel-log--debug-p (not fuel-log--inhibit-p)) (when (or fuel-log--debug-p (not fuel-log--inhibit-p))
(with-current-buffer (fuel-log--buffer) (with-current-buffer (fuel-log--buffer)
(goto-char (point-max))
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(insert (insert
(fuel-shorten-str (format "\n%s: %s\n" type (apply 'format args)) (fuel-shorten-str (fuel-log--format-msg type args)
fuel-log--max-message-size)))))) fuel-log--max-message-size))))))
(defsubst fuel-log--warn (&rest args) (defun fuel-log--warn (&rest args)
(apply 'fuel-log--msg 'WARNING args)) (fuel-log--msg 'WARNING args))
(defsubst fuel-log--error (&rest args) (defun fuel-log--error (&rest args)
(apply 'fuel-log--msg 'ERROR args)) (fuel-log--msg 'ERROR args))
(defsubst fuel-log--info (&rest args) (defun fuel-log--info (&rest args)
(when fuel-log--verbose-p (when fuel-log--verbose-p
(apply 'fuel-log--msg 'INFO args) "")) (fuel-log--msg 'INFO args)))
(provide 'fuel-log) (provide 'fuel-log)
;;; fuel-log.el ends here ;;; fuel-log.el ends here