2

有所谓的严格格式，例如pdb - 其中符号的含义由符号的列号定义。例如，这里是上述 pdb 格式的规范。

有没有办法可以根据列范围应用面部颜色？

通常可以通过以下方式添加要突出显示的正则表达式，例如对于当前会话：

(font-lock-add-keywords nil '(("\\[\\(.+?\\)\\]" . font-lock-keyword-face)))

那么有没有办法在列上指定那个面，比如 7-11 - 应该是，比如 - 红色？

编辑：

所以答案是：

(font-lock-add-keywords nil '(("^.\\{2\\}\\(.\\{2\\}\\)" 1 font-lock-warning-face)))
4

2 回答 2

2

定义一个将选择适当列的正则表达式。例如，要选择第三列（假设列仅包含字母以使示例清晰），您可以执行类似的操作"\(?:[a-z]+ \)\{2\}\([a-z]+\)"，然后在第一组上进行匹配。

当然，您可以通过使用format并传递一些参数来创建这样的字符串，以获得更大的灵活性。

(font-lock-add-keywords nil '(("\\(?:[a-z]+ \\)\\{2\\}\\([a-z]+\\)" 1 font-lock-warning-face)))

作为另一个方向，在空白模式中找到了以下代码，它突出显示了某个数字上的字符：

;; Show "long" lines
(list
(let ((line-column (or whitespace-line-column fill-column)))
   (format
    "^\\([^\t\n]\\{%s\\}\\|[^\t\n]\\{0,%s\\}\t\\)\\{%d\\}%s\\(.+\\)$"
    whitespace-tab-width
    (1- whitespace-tab-width)
    (/ line-column whitespace-tab-width)
    (let ((rem (% line-column whitespace-tab-width)))
      (if (zerop rem)
      ""
    (format ".\\{%d\\}" rem)))))
 (if (memq 'lines whitespace-active-style)
     0              ; whole line
   2)               ; line tail
 whitespace-line t)
于 2012-07-25T13:49:45.567 回答
0

以下内容最初将着色应用于第 7 列到第 11 列的文本：

(defun bk-pdb-color-ATOM-initially()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (search-forward-regexp "^ATOM  \\(.\\{5\\}\\).\\(.\\{4\\}\\).\\(.\\{3\\}\\).\\(.\\{5\\}\\).\\{4\\}\\(.\\{24\\}\\)" nil t)
      (progn
        (overlay-put
         (make-overlay (match-beginning 1) (match-end 1))
         'face '(:foreground "blue"))
        (overlay-put
         (make-overlay (match-beginning 2) (match-end 2))
         'face '(:foreground "red"))
        (overlay-put
         (make-overlay (match-beginning 3) (match-end 3))
         'face '(:foreground "purple1"))
        (overlay-put
         (make-overlay (match-beginning 4) (match-end 4))
         'face '(:foreground "orange"))
        (overlay-put
         (make-overlay (match-beginning 5) (match-end 5))
         'face '(:foreground "green"))
        t nil)
)))
于 2012-07-25T15:07:10.347 回答