1 ;; geiser-log.el -- logging utilities
3 ;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
5 ;; This program is free software; you can redistribute it and/or
6 ;; modify it under the terms of the Modified BSD License. You should
7 ;; have received a copy of the license along with this program. If
8 ;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
10 ;; Start date: Sat Feb 07, 2009 12:07
14 ;; Some utilities for maintaining a simple log buffer, mainly for
15 ;; debugging purposes.
17 (require 'geiser-popup
)
18 (require 'geiser-base
)
25 (defvar geiser-log--buffer-name
"*geiser messages*"
26 "Name of the Geiser log buffer.")
28 (defvar geiser-log--max-buffer-size
32000
29 "Maximum size of the Geiser messages log.")
31 (defvar geiser-log--max-message-size
2048
32 "Maximum size of individual Geiser log messages.")
34 (defvar geiser-log-verbose-p nil
35 "Log purely informational messages. Useful for debugging.")
37 (defvar geiser-log--inhibit-p nil
38 "Set this to t to inhibit all log messages")
41 ;;; Log buffer and mode:
43 (define-derived-mode geiser-messages-mode fundamental-mode
"Geiser Messages"
44 "Simple mode for Geiser log messages buffer."
45 (kill-all-local-variables)
47 (add-hook 'after-change-functions
49 (let ((inhibit-read-only t
))
50 (when (> b geiser-log--max-buffer-size
)
51 (delete-region (point-min) b
))))
53 (setq buffer-read-only t
))
55 (geiser-popup--define log geiser-log--buffer-name geiser-messages-mode
)
58 ;;; Logging functions:
60 (defun geiser-log--msg (type &rest args
)
61 (unless geiser-log--inhibit-p
62 (geiser-log--with-buffer
63 (goto-char (point-max))
64 (insert (geiser--shorten-str (format "\n%s: %s\n" type
66 geiser-log--max-message-size
)))))
68 (defsubst geiser-log--warn
(&rest args
)
69 (apply 'geiser-log--msg
'WARNING args
))
71 (defsubst geiser-log--error
(&rest args
)
72 (apply 'geiser-log--msg
'ERROR args
))
74 (defsubst geiser-log--info
(&rest args
)
75 (when geiser-log-verbose-p
76 (apply 'geiser-log--msg
'INFO args
) ""))
81 (defun geiser-show-logs (&optional arg
)
82 "Show Geiser log messages.
83 With prefix, activates all logging levels."
85 (when arg
(setq geiser-log-verbose-p t
))
86 (geiser-log--pop-to-buffer))
88 (defun geiser-log-clear ()
91 (geiser-log--with-buffer (delete-region (point-min) (point-max))))
95 ;;; geiser-log.el ends here