Remove some code duplication

1 files changed, 10 insertions, 9 deletions

diff --git a/cider-repl.el b/cider-repl.el
index f5edad0d..05a273d4 100644
--- a/cider-repl.el
+++ b/cider-repl.el
@@ -426,22 +426,23 @@ If BOL is non-nil insert at the beginning of line."
   "Emit STRING as interactive err output."
   (cider-repl--emit-interactive-output string 'cider-repl-err-output-face))
 
-(defun cider-repl-emit-output (buffer string &optional bol)
-  "Using BUFFER, emit STRING.
+(defun cider-repl--emit-output (buffer string face &optional bol)
+  "Using BUFFER, emit STRING font-locked with FACE.
 If BOL is non-nil, emit at the beginning of the line."
   (with-current-buffer buffer
     (let ((pos (1- (cider-repl--input-line-beginning-position))))
-      (cider-repl-emit-output-at-pos buffer string 'cider-repl-output-face cider-repl-input-start-mark bol)
+      (cider-repl-emit-output-at-pos buffer string face cider-repl-input-start-mark bol)
       (ansi-color-apply-on-region pos (point-max)))))
 
-;; TODO: Factor out repeated code
+(defun cider-repl-emit-output (buffer string &optional bol)
+  "Using BUFFER, emit STRING as standard output.
+If BOL is non-nil, emit at the beginning of the line."
+  (cider-repl--emit-output buffer string 'cider-repl-output-face))
+
 (defun cider-repl-emit-err-output (buffer string &optional bol)
-  "Using BUFFER, emit STRING.
+  "Using BUFFER, emit STRING as error output.
 If BOL is non-nil, emit at the beginning of the line."
-  (with-current-buffer buffer
-    (let ((pos (1- (cider-repl--input-line-beginning-position))))
-      (cider-repl-emit-output-at-pos buffer string 'cider-repl-err-output-face cider-repl-input-start-mark bol)
-      (ansi-color-apply-on-region pos (point-max)))))
+  (cider-repl--emit-output buffer string 'cider-repl-err-output-face))
 
 (defun cider-repl-emit-prompt (buffer)
   "Emit the REPL prompt into BUFFER."