使用颜色增加二进制文件的阅读体验

  1;;; colored-hexl.el --- Semantic color coding for hexl-mode -*- lexical-binding: t; -*-
  2
  3;; Author: Jiacai Liu
  4;; Version: 1.0
  5;; Keywords: hex, colors, tools
  6
  7;;; Commentary:
  8;; This package provides `colored-hexl-mode`, which colors hexadecimal
  9;; bytes based on their semantic categories:
 10;; - Null (0x00): gray40
 11;; - Control & Whitespace (0x01-0x20, 0x7F): forest green
 12;; - Printable ASCII (0x21-0x7E): DeepSkyBlue
 13;; - Non-ASCII (0x80-0xFF): gold1
 14;;
 15;; --- USAGE ---
 16;;
 17;; 1. Manual Loading:
 18;;    Open this file and run `M-x eval-buffer`. Then in any hexl-mode
 19;;    buffer, run `M-x colored-hexl-mode`.
 20;;
 21;; 2. Permanent Setup (init.el):
 22;;    Add the following to your Emacs configuration:
 23;;
 24;;    (add-to-list 'load-path "/path/to/directory-containing-this-file/")
 25;;    (require 'colored-hexl)
 26;;    (add-hook 'hexl-mode-hook #'colored-hexl-mode)
 27;;
 28;; 3. Customization:
 29;;    You can change colors by running `M-x customize-group RET colored-hexl`.
 30;;
 31;;; Code:
 32
 33(defgroup colored-hexl nil
 34  "Semantic color coding for hex bytes."
 35  :group 'faces)
 36
 37;; --- Face Definitions ---
 38
 39(defface colored-hexl-null-face
 40  '((t :foreground "gray40"))
 41  "Face for null bytes (0x00): bright_black (gray40).")
 42
 43(defface colored-hexl-control-face
 44  '((t :foreground "forest green"))
 45  "Face for ASCII control chars and whitespace (0x01-0x20, 0x7F): forest green.")
 46
 47;; '((t :foreground "dark cyan"))
 48(defface colored-hexl-printable-face
 49  '((t :foreground "DeepSkyBlue"))
 50  "Face for printable ASCII (0x21-0x7E): DeepSkyBlue.")
 51
 52(defface colored-hexl-non-ascii-face
 53  '((t :foreground "gold1"))
 54  "Face for non-ASCII (0x80-0xFF): gold1.")
 55
 56;; --- Core Logic ---
 57
 58(defun colored-hexl--matcher (limit)
 59  "Search for hex bytes and apply faces based on semantic categories until LIMIT."
 60  (let (found)
 61    (while (and (not found)
 62                (re-search-forward "[0-9a-fA-F]\\{2\\}" limit t))
 63      (let* ((hex (match-string 0))
 64             (val (string-to-number hex 16))
 65             ;; Boundary check for hexl-mode columns (address vs hex data vs ascii)
 66             (is-hex-column (save-match-data
 67                              (let ((col (current-column)))
 68                                (and (>= col 10) (<= col 48))))))
 69        (when (or is-hex-column (not (derived-mode-p 'hexl-mode)))
 70          (let ((face (cond
 71                       ((= val 0) 'colored-hexl-null-face)               ; 0x00
 72                       ((or (and (>= val 1) (<= val 32)) (= val 127))    ; 0x01-0x20, 0x7F
 73                        'colored-hexl-control-face)
 74                       ((and (>= val 33) (<= val 126))                   ; 0x21-0x7E
 75                        'colored-hexl-printable-face)
 76                       ((>= val 128) 'colored-hexl-non-ascii-face)       ; 0x80-0xFF
 77                       (t nil))))
 78            (when face
 79              (setq found t)
 80              (put-text-property (match-beginning 0) (match-end 0) 'face face))))))
 81    found))
 82
 83(defvar colored-hexl-keywords
 84  '((colored-hexl--matcher . 0)))
 85
 86;; --- Minor Mode Definition ---
 87
 88;;;###autoload
 89(define-minor-mode colored-hexl-mode
 90  "Minor mode to colorize hexadecimal bytes by semantic category."
 91  :lighter " ColorHex"
 92  (if colored-hexl-mode
 93      (progn
 94        (font-lock-add-keywords nil colored-hexl-keywords t)
 95        (setq-local font-lock-multiline t)
 96        (font-lock-mode 1))
 97    (font-lock-remove-keywords nil colored-hexl-keywords))
 98  (font-lock-flush))
 99
100(provide 'colored-hexl)
101
102;;; colored-hexl.el ends here

1(add-hook 'hexl-mode-hook 'colored-hexl-mode)

1(defun my/hexl-if-binary-native ()
2  (when (and (eq buffer-file-coding-system 'no-conversion)
3             (not (eq major-mode 'hexl-mode)))
4    (hexl-mode)))
5
6(add-hook 'find-file-hook 'my/hexl-if-binary-native)