[Fix #698] Provide an interactive command for clearing compilation highlights

Author: Bozhidar Batsov

CHANGELOG.md

@@ -5,6 +5,7 @@
 ### New features
 
 * New interactive command `cider-undef`.
+* New interactive command `cider-clear-compilation-highlights`.
 * First pass at a CIDER quick reference card.
 
 * `completion-at-point` now annotates functions, macros and special forms, thus making it

cider-interaction.el

@@ -1161,6 +1161,16 @@ search for and read a `ns' form."
 
 
 ;;; Evaluation
+(defun cider--clear-compilation-highlights ()
+  "Remove compilation highlights."
+  (remove-overlays (point-min) (point-max) 'cider-note-p t))
+
+(defun cider-clear-compilation-highlights ()
+  "Remove compilation highlights."
+  (interactive)
+  (when (y-or-n-p "Are you sure you want to clear the compilation highlights? ")
+    (cider--clear-compilation-highlights)))
+
 (defun cider-popup-eval-print (form)
   "Evaluate the given FORM and print value in current buffer."
   (let ((buffer (current-buffer)))
@@ -1177,7 +1187,7 @@ search for and read a `ns' form."
 
 (defun cider-interactive-eval (form)
   "Evaluate the given FORM and print value in minibuffer."
-  (remove-overlays (point-min) (point-max) 'cider-note-p t)
+
   (let ((buffer (current-buffer)))
     (cider-eval form
                 (cider-interactive-eval-handler buffer)
@@ -1649,7 +1659,7 @@ strings, include private vars, and be case sensitive."
                                 nil (if (buffer-file-name)
                                         (file-name-nondirectory
                                          (buffer-file-name))))))
-  (remove-overlays (point-min) (point-max) 'cider-note-p t)
+  (cider--clear-compilation-highlights)
   (cider-send-load-file (cider-file-string filename)
                         (cider--server-filename filename)
                         (file-name-nondirectory filename))