tastytea/.emacs.d
tastytea/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Emacs: Fix ANSI color application in logfiles.

Browse Source
This commit is contained in:
tastytea 2020-10-14 00:01:47 +02:00
parent b459881bd6
commit e6a6bd812c
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
init.d/text/misc.el
View File

@ -1,6 +1,6 @@
;;; misc.el --- Miscellaneous file formats. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-10-13T23:36:21+0200>
;; Time-stamp: <2020-10-14T00:01:20+0200>
;;; Commentary:
@ -193,12 +193,17 @@
;; Translate ANSI escape color codes.
(use-package ansi-color
:config (defun my/display-ansi-colors ()
(interactive)
(let ((inhibit-read-only t))
(ansi-color-apply-on-region compilation-filter-start (point))))
:mode ("\\.log$" . my/display-ansi-colors)
:hook (compilation-filter . my/display-ansi-colors))
:config (progn
(defun my/apply-ansi-colors-on-buffer ()
"Apply ANSI colors in the current buffer."
(interactive)
(ansi-color-apply-on-region (point-min) (point-max)))
(defun my/apply-ansi-colors-compilation ()
"Apply ANSI colors in the compilation window."
(let ((inhibit-read-only t))
(ansi-color-apply-on-region compilation-filter-start (point)))))
:mode ("\\.log$" . my/apply-ansi-colors-on-buffer)
:hook (compilation-filter . my/apply-ansi-colors-compilation))
;; Syntax-highlighting mode for text/gemini.
(use-package gemini-mode