   (setq truncate-lines t)
   (buffer-disable-undo))
 
-
-
-(defvar sayid-traced-mode-map)
-
-(setq sayid-traced-mode-map
-      (let ((map (make-sparse-keymap)))
-        (define-key map  (kbd "<RET>") 'sayid-traced-buf-enter)
-        (define-key map  (kbd "e") 'sayid-traced-buf-enable)
-        (define-key map  (kbd "d") 'sayid-traced-buf-disable)
-        (define-key map  (kbd "E") 'sayid-trace-enable-all)
-        (define-key map  (kbd "D") 'sayid-trace-disable-all)
-        (define-key map  (kbd "i") 'sayid-traced-buf-inner-trace-fn)
-        (define-key map  (kbd "o") 'sayid-traced-buf-outer-trace-fn)
-        (define-key map  (kbd "r") 'sayid-traced-buf-remove-trace)
-        (define-key map  (kbd "<backspace>") 'sayid-show-traced)
-        (define-key map  (kbd "l") 'sayid-show-traced)
-        (define-key map  (kbd "h") 'sayid-traced-buf-show-help)
-        (define-key map  (kbd "q") 'quit-window)
-        map))
+(defvar sayid-traced-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "<RET>")       'sayid-traced-buf-enter)
+    (define-key map (kbd "e")           'sayid-traced-buf-enable)
+    (define-key map (kbd "d")           'sayid-traced-buf-disable)
+    (define-key map (kbd "E")           'sayid-trace-enable-all)
+    (define-key map (kbd "D")           'sayid-trace-disable-all)
+    (define-key map (kbd "i")           'sayid-traced-buf-inner-trace-fn)
+    (define-key map (kbd "o")           'sayid-traced-buf-outer-trace-fn)
+    (define-key map (kbd "r")           'sayid-traced-buf-remove-trace)
+    (define-key map (kbd "<backspace>") 'sayid-show-traced)
+    (define-key map (kbd "l")           'sayid-show-traced)
+    (define-key map (kbd "h")           'sayid-traced-buf-show-help)
+    (define-key map (kbd "q")           'quit-window)
+    map))
 
 (defun sayid-traced-buf-show-help ()
   "Show sayid traced buffer help buffer."

  (interactive)
  (sayid-select-pprint-buf)
  (sayid-req-insert-content (list "op" "sayid-buf-pprint-at-point"
                                    "trace-id" (get-text-property (point) 'id)
                                    "path" (get-text-property (point) 'path)))
  (goto-char 1)
  (sayid-select-default-buf))


  (setq truncate-lines t))


(defvar sayid-pprint-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map (kbd "h")           'sayid-pprint-buf-show-help)
    (define-key map (kbd "o")           'sayid-pprint-buf-out)
    (define-key map (kbd "i")           'sayid-pprint-buf-in)
    (define-key map (kbd "p")           'sayid-pprint-buf-prev)
    (define-key map (kbd "n")           'sayid-pprint-buf-next)
    (define-key map (kbd "<return>")    'sayid-pprint-buf-show-path)
    (define-key map (kbd "<backspace>") 'sayid-pprint-buf-exit)
    (define-key map (kbd "l")           'sayid-pprint-buf-exit)
    (define-key map (kbd "q")           'quit-window)
    map))

(defun sayid-pprint-buf-show-help ()
  "Show sayid pretty-print buffer help buffer."
