基于Elisp的脚本实现终端彩色输出的问题求助

1. 终端/Shell缓冲区输出彩色（模拟Bash效果） #

如果是在终端Emacs里，或是*shell*/*comint*类缓冲区中输出彩色，直接输出原始ANSI转义序列即可，无需额外处理：

;; 输出红色文本，之后重置颜色
(princ "\033[31m这是红色的终端输出\033[0m\n")
;; 输出绿色背景的文本
(princ "\033[42m绿色背景的文本\033[0m\n")

如果是在图形界面的*shell*缓冲区，确保开启ansi-color-for-comint-mode-on，Emacs会自动解析ANSI序列为文本颜色：

(ansi-color-for-comint-mode-on)

2. 在Messages缓冲区显示彩色 #

直接用insert配合ansi-color-apply可行，也可以给字符串添加文本属性后插入：

;; 方法1：用ANSI序列转成Emacs属性插入
(with-current-buffer "*Messages*"
  (insert (ansi-color-apply "\033[33m黄色的消息文本\033[0m\n")))

;; 方法2：直接添加Emacs文本属性
(with-current-buffer "*Messages*"
  (insert (propertize "蓝色的消息文本" 'face '(:foreground "blue")) "\n"))

3. 在Echo Area（迷你缓冲区上方）显示彩色消息 #

message函数直接传入带属性的字符串会显示成哈希列表，需要用格式化字符串包裹：

;; 绿色的成功提示
(message "%s" (propertize "操作成功！" 'face '(:foreground "green")))
;; 黄底黑字的警告
(message "%s" (propertize "警告：参数错误" 'face '(:background "yellow" :foreground "black")))

4. 通用适配方案（兼容终端/图形界面） #

如果要写跨场景的代码，可以结合propertize和ANSI序列处理：

(defun colored-print (text color)
  (if (display-graphic-p)
      ;; 图形界面用文本属性
      (princ (propertize text 'face `(:foreground ,color)))
    ;; 终端输出ANSI序列
    (let ((color-code (cond ((string= color "red") "31")
                            ((string= color "green") "32")
                            ((string= color "yellow") "33")
                            ((string= color "blue") "34")
                            (t "37"))))
      (princ (format "\033[%sm%s\033[0m" color-code text))))
  (princ "\n"))

;; 使用示例
(colored-print "这是红色文本" "red")
(colored-print "这是绿色文本" "green")

内容的提问来源于stack exchange，提问作者Phoenix