From a030f6ec7a6973a7e4901e6a745f313d23631076 Mon Sep 17 00:00:00 2001
From: Takafumi Arakaki <aka.tkf@gmail.com>
Date: Thu, 31 May 2012 23:54:43 +0200
Subject: [PATCH] Add ein:dev-start/stop-debug commands

---
 debug-ein.el | 10 +++++-----
 ein-dev.el   | 24 ++++++++++++++++++++++++
 2 files changed, 29 insertions(+), 5 deletions(-)

diff --git a/debug-ein.el b/debug-ein.el
index 31a9fc4..3fdfa66 100644
--- a/debug-ein.el
+++ b/debug-ein.el
@@ -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)
diff --git a/ein-dev.el b/ein-dev.el
index ba21264..f9cdab6 100644
--- a/ein-dev.el
+++ b/ein-dev.el
@@ -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)