[Fix #1659] Add fringe indicators for evaluated forms

CHANGELOG.md

@@ -2,6 +2,10 @@
 
 ## master (unreleased)
 
+### New Features
+
+* Fringe indicators highlight which sexps have been loaded. Disable it with `cider-use-fringe-indicators`.
+
 ### Changes
 
 * Signal an error sooner if the user misconfigured `cider-known-endpoints`.

cider-interaction.el

@@ -649,6 +649,7 @@ can be used to display the evaluation result."
         (point (when point (copy-marker point))))
     (nrepl-make-response-handler (or buffer eval-buffer)
                                  (lambda (_buffer value)
+                                   (cider--make-fringe-overlay point)
                                    (cider--display-interactive-eval-result value point))
                                  (lambda (_buffer out)
                                    (cider-emit-interactive-eval-output out))
@@ -663,8 +664,14 @@ can be used to display the evaluation result."
     (nrepl-make-response-handler (or buffer eval-buffer)
                                  (lambda (buffer value)
                                    (cider--display-interactive-eval-result value)
-                                   (with-current-buffer buffer
-                                     (run-hooks 'cider-file-loaded-hook)))
+                                   (when (buffer-live-p buffer)
+                                     (with-current-buffer buffer
+                                       (save-excursion
+                                         (goto-char (point-min))
+                                         (while (progn (clojure-forward-logical-sexp)
+                                                       (not (eobp)))
+                                           (cider--make-fringe-overlay (point))))
+                                       (run-hooks 'cider-file-loaded-hook))))
                                  (lambda (_buffer value)
                                    (cider-emit-interactive-eval-output value))
                                  (lambda (_buffer err)

cider-overlays.el

@@ -118,10 +118,42 @@ This function also removes itself from `post-command-hook'."
   (remove-hook 'post-command-hook #'cider--remove-result-overlay-after-command 'local)
   (add-hook 'post-command-hook #'cider--remove-result-overlay nil 'local))
 
+(defface cider-fringe-good-face
+  '((((class color) (background light)) :foreground "lightgreen")
+    (((class color) (background dark)) :foreground "darkgreen"))
+  "Face used on the fringe indicator for successful evaluation."
+  :group 'cider)
+
+(defconst cider--fringe-overlay-good
+  (propertize " " 'display '(left-fringe empty-line cider-fringe-good-face))
+  "The before-string property that adds a green indicator on the fringe.")
+
+(defcustom cider-use-fringe-indicators t
+  "Whether to display evaluation indicators on the left fringe."
+  :safe #'boolean
+  :group 'cider
+  :type 'boolean)
+
+(defun cider--make-fringe-overlay (&optional end)
+  "Place an eval indicator at the fringe before a sexp.
+END is the position where the sexp ends, and defaults to point."
+  (when cider-use-fringe-indicators
+    (with-current-buffer (if (markerp end)
+                             (marker-buffer end)
+                           (current-buffer))
+      (save-excursion 
+        (if end
+            (goto-char end)
+          (setq end (point)))
+        (clojure-forward-logical-sexp -1)
+        ;; Create the green-circle overlay.
+        (cider--make-overlay (point) end 'cider-fringe-indicator
+                         'before-string cider--fringe-overlay-good)))))
+
 (cl-defun cider--make-result-overlay (value &rest props &key where duration (type 'result)
-                                            (format (concat " " cider-eval-result-prefix "%s "))
-                                            (prepend-face 'cider-result-overlay-face)
-                                            &allow-other-keys)
+                                        (format (concat " " cider-eval-result-prefix "%s "))
+                                        (prepend-face 'cider-result-overlay-face)
+                                        &allow-other-keys)
   "Place an overlay displaying VALUE at the end of line.
 VALUE is used as the overlay's after-string property, meaning it is
 displayed at the end of the overlay.  The overlay itself is placed from
@@ -185,6 +217,7 @@ overlay."
           ;; Put the cursor property only once we're done manipulating the
           ;; string, since we want it to be at the first char.
           (put-text-property 0 1 'cursor 0 display-string)
+          ;; Create the result overlay.
           (setq o (apply #'cider--make-overlay
                          beg end type
                          'after-string display-string