Add ein:dev-start/stop-debug commands

This commit is contained in:
Takafumi Arakaki 2012-05-31 23:54:43 +02:00
parent 043809cc76
commit a030f6ec7a
2 changed files with 29 additions and 5 deletions

View file

@ -29,12 +29,12 @@
(eval-when-compile (require 'ein-notebooklist))
(require 'ein)
(require 'ein-dev)
(setq debug-on-error t)
(setq websocket-debug t)
(ein:dev-start-debug)
(ein:notebooklist-open)
(ein:log-set-level 'debug)
(ein:log-set-message-level 'verbose)
(ein:dev-patch-backtrace)
;;; Extra stuff
(require 'markdown-mode nil t)
(require 'rst nil t)

View file

@ -77,6 +77,30 @@ for debugger is hard-coded. See `debugger-setup-buffer'."
(ad-enable-advice 'backtrace 'around 'ein:dev-short-backtrace)
(ad-activate 'backtrace))
(defun ein:dev-depatch-backtrace ()
"Undo `ein:dev-patch-backtrace'."
(interactive)
(ad-deactivate 'backtrace)
(ad-disable-advice 'backtrace 'around 'ein:dev-short-backtrace)
;; In case it has other advices.
(ad-activate 'backtrace))
(defun ein:dev-start-debug ()
(interactive)
(setq debug-on-error t)
(setq websocket-debug t)
(ein:log-set-level 'debug)
(ein:log-set-message-level 'verbose)
(ein:dev-patch-backtrace))
(defun ein:dev-stop-debug ()
(interactive)
(setq debug-on-error nil)
(setq websocket-debug nil)
(ein:log-set-level 'verbose)
(ein:log-set-message-level 'info)
(ein:dev-patch-backtrace))
(defun ein:dev-pop-to-debug-shell ()
"Open shell channel websocket log buffer."
(interactive)