blob: 5c4d20ffafb98d11ef7a6809240b659d03cb98e1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
;; Stolen from (http://endlessparentheses.com/ansi-colors-in-the-compilation-buffer-output.html)
(require 'ansi-color)
(defun endless/colorize-compilation ()
"Colorize from `compilation-filter-start' to `point'."
(let ((inhibit-read-only t))
(ansi-color-apply-on-region
compilation-filter-start (point))))
(add-hook 'compilation-filter-hook
#'endless/colorize-compilation)
;; Stolen from (https://oleksandrmanzyuk.wordpress.com/2011/11/05/better-emacs-shell-part-i/)
(defun regexp-alternatives (regexps)
"Return the alternation of a list of regexps."
(mapconcat (lambda (regexp)
(concat "\\(?:" regexp "\\)"))
regexps "\\|"))
(defvar non-sgr-control-sequence-regexp nil
"Regexp that matches non-SGR control sequences.")
(setq non-sgr-control-sequence-regexp
(regexp-alternatives
'(;; icon name escape sequences
"\033\\][0-2];.*?\007"
;; non-SGR CSI escape sequences
"\033\\[\\??[0-9;]*[^0-9;m]"
;; noop
"\012\033\\[2K\033\\[1F"
)))
(defun filter-non-sgr-control-sequences-in-region (begin end)
(save-excursion
(goto-char begin)
(while (re-search-forward
non-sgr-control-sequence-regexp end t)
(replace-match ""))))
(defun filter-non-sgr-control-sequences-in-output (ignored)
(let ((start-marker
(or comint-last-output-start
(point-min-marker)))
(end-marker
(process-mark
(get-buffer-process (current-buffer)))))
(filter-non-sgr-control-sequences-in-region
start-marker
end-marker)))
(add-hook 'comint-output-filter-functions
'filter-non-sgr-control-sequences-in-output)
(provide 'bard-compile)
|
