hiro/emacs-ipython-notebook
1
0
Fork 0
mirror of https://github.com/vale981/emacs-ipython-notebook synced 2025-03-06 01:21:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make logging buffer read only

Browse source
This commit is contained in:
Takafumi Arakaki 2012-05-14 02:00:52 +02:00
parent 62b2ed5152
commit c2697e1e33
1 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
ein-log.el
View file

@ -60,6 +60,14 @@
(defun ein:log-level-name-to-int (name) (defun ein:log-level-name-to-int (name)
(cdr (assq name ein:log-level-def))) (cdr (assq name ein:log-level-def)))
(defmacro ein:log-with-buffer (buffer &rest body)
(declare (indent 1))
`(with-current-buffer ,buffer
(setq buffer-read-only t)
(save-excursion
(let ((inhibit-read-only t))
,@body))))
(defun ein:log-wrapper (level func) (defun ein:log-wrapper (level func)
(setq level (ein:log-level-name-to-int level)) (setq level (ein:log-level-name-to-int level))
(when (<= level ein:log-level) (when (<= level ein:log-level)
@ -70,14 +78,12 @@
(> (length msg) ein:log-max-string)) (> (length msg) ein:log-max-string))
(setq msg (substring msg 0 ein:log-max-string))) (setq msg (substring msg 0 ein:log-max-string)))
(when ein:log-buffer (when ein:log-buffer
(with-current-buffer ein:log-buffer (ein:log-with-buffer ein:log-buffer
(save-excursion
(goto-char (point-max))
(insert msg "\n"))))
(with-current-buffer (get-buffer-create ein:log-all-buffer-name)
(save-excursion
(goto-char (point-max)) (goto-char (point-max))
(insert msg (format " @%S" orig-buffer) "\n"))) (insert msg "\n")))
(ein:log-with-buffer (get-buffer-create ein:log-all-buffer-name)
(goto-char (point-max))
(insert msg (format " @%S" orig-buffer) "\n"))
(when (<= level ein:log-message-level) (when (<= level ein:log-message-level)
(message "ein: %s" msg))))) (message "ein: %s" msg)))))