File tree Expand file tree Collapse file tree 1 file changed +0
-14
lines changed Expand file tree Collapse file tree 1 file changed +0
-14
lines changed Original file line number Diff line number Diff line change @@ -344,7 +344,6 @@ to continue it."
344
344
(setq comint-input-filter #'inf-clojure-input-filter )
345
345
(setq-local comint-prompt-read-only inf-clojure-prompt-read-only)
346
346
(add-hook 'comint-preoutput-filter-functions #'inf-clojure-preoutput-filter nil t )
347
- (add-hook 'comint-output-filter-functions 'inf-clojure--ansi-filter )
348
347
(add-hook 'completion-at-point-functions #'inf-clojure-completion-at-point nil t )
349
348
(ansi-color-for-comint-mode-on ))
350
349
@@ -369,19 +368,6 @@ to continue it."
369
368
" Remove subprompts from STRING."
370
369
(replace-regexp-in-string inf-clojure-subprompt " " string))
371
370
372
- (defconst inf-clojure--ansi-clear-line " \\ [1G\\ |\\ [0J\\ |\\ [13G"
373
- " Ansi codes sent by the lumo repl that we need to clear." )
374
-
375
- (defun inf-clojure--ansi-filter (string )
376
- " Filter unwanted ansi character from STRING."
377
- (save-excursion
378
- ; ; go to start of first line just inserted
379
- (comint-goto-process-mark )
380
- (goto-char (max (point-min ) (- (point ) (string-width string))))
381
- (forward-line 0 )
382
- (while (re-search-forward inf-clojure--ansi-clear-line nil t )
383
- (replace-match " " ))))
384
-
385
371
(defun inf-clojure-preoutput-filter (str )
386
372
" Preprocess the output STR from interactive commands."
387
373
(cond
You can’t perform that action at this time.
0 commit comments