ryoakg
10/11/2016 - 12:57 AM

cider-print-table-eval-last-sexp.el

(with-eval-after-load 'clojure-mode
  (defun my/cider-print-table-eval-last-sexp ()
    (interactive)
    (flet ((cider--pprint-fn () "clojure.pprint/print-table"))
      (cider-pprint-eval-last-sexp)))

  (defun my/cider-pprint-eval-last-sexp (print-table?)
    (interactive "P")
    (if print-table?
        (my/cider-print-table-eval-last-sexp)
      (cider-pprint-eval-last-sexp)))

  (define-key clojure-mode-map [remap cider-pprint-eval-last-sexp] 'my/cider-pprint-eval-last-sexp))