                      nil
                      (cadr buf-state))))
 
-(defvar sayid-clj-mode-keys (make-sparse-keymap))
-
-(define-key sayid-clj-mode-keys (kbd "f") 'sayid-query-form-at-point)
-(define-key sayid-clj-mode-keys (kbd "!") 'sayid-load-enable-clear)
-(define-key sayid-clj-mode-keys (kbd "w") 'sayid-get-workspace)
-(define-key sayid-clj-mode-keys (kbd "t y") 'sayid-trace-all-ns-in-dir)
-(define-key sayid-clj-mode-keys (kbd "t p") 'sayid-trace-ns-by-pattern)
-(define-key sayid-clj-mode-keys (kbd "t b") 'sayid-trace-ns-in-file)
-(define-key sayid-clj-mode-keys (kbd "t e") 'sayid-trace-fn-enable)
-(define-key sayid-clj-mode-keys (kbd "t E") 'sayid-trace-enable-all)
-(define-key sayid-clj-mode-keys (kbd "t d") 'sayid-trace-fn-disable)
-(define-key sayid-clj-mode-keys (kbd "t D") 'sayid-trace-disable-all)
-(define-key sayid-clj-mode-keys (kbd "t n") 'sayid-inner-trace-fn)
-(define-key sayid-clj-mode-keys (kbd "t o") 'sayid-outer-trace-fn)
-(define-key sayid-clj-mode-keys (kbd "t r") 'sayid-remove-trace-fn)
-(define-key sayid-clj-mode-keys (kbd "t K") 'sayid-kill-all-traces)
-(define-key sayid-clj-mode-keys (kbd "c") 'sayid-clear-log)
-(define-key sayid-clj-mode-keys (kbd "x") 'sayid-reset-workspace)
-(define-key sayid-clj-mode-keys (kbd "s") 'sayid-show-traced)
-(define-key sayid-clj-mode-keys (kbd "S") 'sayid-show-traced-ns)
-(define-key sayid-clj-mode-keys (kbd "V s") 'sayid-set-view)
-(define-key sayid-clj-mode-keys (kbd "h") 'sayid-show-help)
+(defvar sayid-clj-mode-keys
+  (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "f")   'sayid-query-form-at-point)
+    (define-key map (kbd "!")   'sayid-load-enable-clear)
+    (define-key map (kbd "w")   'sayid-get-workspace)
+    (define-key map (kbd "t y") 'sayid-trace-all-ns-in-dir)
+    (define-key map (kbd "t p") 'sayid-trace-ns-by-pattern)
+    (define-key map (kbd "t b") 'sayid-trace-ns-in-file)
+    (define-key map (kbd "t e") 'sayid-trace-fn-enable)
+    (define-key map (kbd "t E") 'sayid-trace-enable-all)
+    (define-key map (kbd "t d") 'sayid-trace-fn-disable)
+    (define-key map (kbd "t D") 'sayid-trace-disable-all)
+    (define-key map (kbd "t n") 'sayid-inner-trace-fn)
+    (define-key map (kbd "t o") 'sayid-outer-trace-fn)
+    (define-key map (kbd "t r") 'sayid-remove-trace-fn)
+    (define-key map (kbd "t K") 'sayid-kill-all-traces)
+    (define-key map (kbd "c")   'sayid-clear-log)
+    (define-key map (kbd "x")   'sayid-reset-workspace)
+    (define-key map (kbd "s")   'sayid-show-traced)
+    (define-key map (kbd "S")   'sayid-show-traced-ns)
+    (define-key map (kbd "V s") 'sayid-set-view)
+    (define-key map (kbd "h")   'sayid-show-help)))
 
 (defun sayid-show-help ()
   "Show sayid help buffer."

  (interactive)
  (sayid-select-traced-buf)
  (sayid-req-insert-content (list "op" "sayid-show-traced"
                                    "ns" ns))
  (sayid-select-default-buf))

;;;###autoload

  (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."
