Emacs是否可以實現elisp字符串常量？

Question

困境：可讀性還是可維護性？

讓我們看看下面的函數。 它並不真正的問題是什麼呢，最重要的是， 它使用兩倍的字符串"(let\\*?[ \t]*"：

(defun setq-expression-or-sexp() 
    "Return the smallest list that contains point. 
If inside VARLIST part of `let' form, 
return the corresponding `setq' expression." 
    (interactive) 
    (ignore-errors 
    (save-excursion 
     (up-list) 
     (let ((sexp (preceding-sexp))) 
     (backward-list 1) 
     (cond 
     ((looking-back "(let\\*?[ \t]*") 
      (cons 'setq 
       (if (= (length sexp) 1) 
        (car sexp) 
        (cl-mapcan 
        (lambda (x) (unless (listp x) (list x nil))) 
        sexp)))) 
     ((progn 
      (up-list) 
      (backward-list 1) 
      (looking-back "(let\\*?[ \t]*")) 
      (cons 'setq sexp)) 
     (t 
      sexp)))))) 

，因爲它具有兩個（或更多）的位置來更新串頭痛， 我倒是有defconst它像這樣：

(defconst regex-let-form "(let\\*?[ \t]*") 

雖然代碼變得更容易維護，它變得不那麼可讀性爲好， 因爲它很難一眼看到什麼regex-let-form真的是：

(defun setq-expression-or-sexp() 
    "Return the smallest list that contains point. 
If inside VARLIST part of `let' form, 
return the corresponding `setq' expression." 
    (interactive) 
    (ignore-errors 
    (save-excursion 
     (up-list) 
     (let ((sexp (preceding-sexp))) 
     (backward-list 1) 
     (cond 
     ((looking-back regex-let-form) 
      (cons 'setq 
       (if (= (length sexp) 1) 
        (car sexp) 
        (cl-mapcan 
        (lambda (x) (unless (listp x) (list x nil))) 
        sexp)))) 
     ((progn 
      (up-list) 
      (backward-list 1) 
      (looking-back regex-let-form)) 
      (cons 'setq sexp)) 
     (t 
      sexp)))))) 

這個想法：爲什麼不是兩個？

因爲它是一個常數，爲什麼不是font-lock它 和使regex-let-form看起來好像是"(let\\*?[ \t]*"？ 這是一個feasable工作，因爲：

1. 這是可能的字體鎖標識符，像這樣：http://www.emacswiki.org/emacs/PrettyLambda， 或即便如此：rainbow-mode。

2. 而且可以對字體鎖定常量。據我所知，它已經完成了C++模式， ，但尚未用於emacs-lisp模式。

然後，它仍然只是連接兩個。不幸的是，我不知道 足夠的font-lock內臟做到這一點，但也許別人呢？ 或者是否已經有一個包？

Answer 1

這似乎是工作（來源：http://www.emacswiki.org/emacs/PrettyLambda）：

(font-lock-add-keywords 'emacs-lisp-mode 
    `(("\\<\\(regex-let-form\\)\\>" (0 (prog1 nil 
             (compose-region (match-beginning 1) 
                 (match-end 1) 
                 "\"(let\\\\*?[ \\t]*\"")))))) 

雖然我認爲加上regex-let-form到現有let塊將是一個清潔的解決方案：

(let ((sexp (preceding-sexp)) 
     (regex-let-form "(let\\*?[ \t]*")) 
    ... 

Answer 2

也許你的例子不表示真正的問題，你真的想要做一些顯示替換或字體鎖定，如你所說。

但是我會回答你的例子，並提出可維護性與可讀性方面的問題：只需let - 綁定你的正則表達式。不同於defconst的綁定將在附近並與綁定變量的出現明確相關。

這通常是人們做的事情。再一次，你可能已經有了另一個用例 - 我只對狹義提出的問題做出反應。

Answer 3

從this answer調整的代碼， 我已經解決了這個問題：

(font-lock-add-keywords 
'emacs-lisp-mode 
'((fl-string-constant . 'font-lock-constant-face)) 'append) 

(defun fl-string-constant (_limit) 
    (while (not 
      (ignore-errors 
      (save-excursion 
       (skip-chars-forward "'") 
       (let ((opoint (point)) 
        (obj (read (current-buffer))) 
        obj-val) 
       (and (symbolp obj) 
        (risky-local-variable-p obj) 
        (special-variable-p obj) 
        (stringp (setq obj-val (eval obj))) 
        (progn 
         (put-text-property 
         (1- (point)) (point) 'display 
         (format "%c\"%s\"" (char-before) obj-val)) 
         (set-match-data (list opoint (point))) 
         t)))))) 
    (if (looking-at "\\(\\sw\\|\\s_\\)") 
     (forward-sexp 1) 
     (forward-char 1))) 
    t) 

這將顯示的字符串常量右邊的常量名後的值。 它與工作字符串常量很好地工作。 速度有點問題 - 歡迎提出改進建議。

此外，我找不到比risky-local-variable-p更好的東西來確定 它是一個常數。該文件指出defconst將變量 標記爲特殊且有風險，但沒有別的。

Answer 4

hl-defined.el（今天更新，2013-10-20）可以突出顯示常量Emacs-Lisp符號，也就是說，當前值爲符號本身的變量。如果您的defconst已被評估，那麼這將做你正在請求。