                 (push overlay logoverlay--logged-overlays)
                 (overlay-put overlay 'face '(underline . green))
                 (overlay-put overlay 'help-echo value)
-                (overlay-put overlay 'after-string (concat " -> " value))))
+                (overlay-put overlay 'after-string (concat "\n -> " value))))
             entries)))
 
 (defun logoverlay--find-logs ()

(defun logoverlay--make-log-overlay (bounds)
  (let ((entries (logoverlay--get-log-entries-by-file-and-id (buffer-file-name)
                                                             (cdr (assoc 'id bounds)))))
    (message "entries: %s" entries)
    (mapcar (lambda (log)
              (let ((value (json-encode (cdr (assoc 'value log))))
                    (overlay (make-overlay (cdr (assoc 'start bounds))

                    (cons 'id (match-string-no-properties 1)))
              logs)))
    logs))

(defun logoverlay--overlay-logs (logs)
  (mapcar 'logoverlay--make-log-overlay logs)
  (setq logoverlay--showing-overlays t)

  (logoverlay--start-timer))

(defun logoverlay--start-timer ()
  (if (not logoverlay--monitor-timer)
      (setq logoverlay--monitor-timer 
            (logoverlay--install-monitor "/tmp/log.json" 5 'logoverlay--log-changed))))

(defun logoverlay--remove-log-overlays ()
  (mapcar 'delete-overlay logoverlay--logged-overlays)
