Podkreślanie zmiennych powłoki w cudzysłowach

W vimie następujący dokument spowoduje, że $PWDlinie 2 i 3 zostaną pokolorowane na dwa różne sposoby:

#/bin/sh
echo "Current Directory: $PWD"
echo 'Current Directory: $PWD'

Pierwsze wystąpienie $PWDbędzie miało inny kolor niż reszta ciągu, w którym się znajduje. Daje to wyraźne wizualne wskazanie, że zmienna zostanie rozwinięta, a nie traktowana jako dosłowny tekst. W przeciwieństwie do tego, druga instancja $PWDbędzie pokolorowana tak samo jak reszta ciągu, ponieważ pojedyncze cudzysłowy powodują, że jest ona traktowana jako dosłowny tekst.

Czy istnieją jakieś tryby emacs, które zapewniają tego rodzaju „przytaczanie świadomości powłoki”?

Poniższy kod używa reguły blokowania czcionek z funkcją zamiast wyrażenia regularnego, funkcja szuka wystąpień, $VARale tylko wtedy, gdy znajdują się one w ciągu cudzysłowu. Funkcja (syntax-ppss)służy do ustalenia tego.

Reguła blokowania czcionek używa prependflagi, aby dodać się do istniejącego podświetlenia łańcucha. (Zauważ, że używa tego wiele pakietów t. Niestety, to zastępuje wszystkie aspekty istniejącego podświetlenia. Na przykład użycie prependzachowuje kolor tła łańcucha (jeśli taki istnieje) podczas zastępowania koloru pierwszego planu.)

(defun sh-script-extra-font-lock-is-in-double-quoted-string ()
  "Non-nil if point in inside a double-quoted string."
  (let ((state (syntax-ppss)))
    (eq (nth 3 state) ?\")))

(defun sh-script-extra-font-lock-match-var-in-double-quoted-string (limit)
  "Search for variables in double-quoted strings."
  (let (res)
    (while
        (and (setq res
                   (re-search-forward
                    "\\$\\({#?\\)?\\([[:alpha:]_][[:alnum:]_]*\\|[-#?@!]\\)"
                    limit t))
             (not (sh-script-extra-font-lock-is-in-double-quoted-string))))
    res))

(defvar sh-script-extra-font-lock-keywords
  '((sh-script-extra-font-lock-match-var-in-double-quoted-string
     (2 font-lock-variable-name-face prepend))))

(defun sh-script-extra-font-lock-activate ()
  (interactive)
  (font-lock-add-keywords nil sh-script-extra-font-lock-keywords)
  (if (fboundp 'font-lock-flush)
      (font-lock-flush)
    (when font-lock-mode
      (with-no-warnings
        (font-lock-fontify-buffer)))))

Możesz to wywołać, dodając ostatnią funkcję do odpowiedniego zaczepu, na przykład:

(add-hook 'sh-mode-hook 'sh-script-extra-font-lock-activate)

Poprawiłem odpowiedź @ Lindydancer na następujące sposoby:

• Wprowadzono sh-script-extra-font-lock-is-in-double-quoted-stringfunkcję, ponieważ była używana tylko raz
• Ucieczka ze zmiennej działa.
• Zmienne liczbowe ( $10, $1itp) są podświetlone.

Przerwa na kod

(defun sh-script-extra-font-lock-match-var-in-double-quoted-string (limit)
  "Search for variables in double-quoted strings."
  (let (res)
    (while
        (and (setq res (progn (if (eq (get-byte) ?$) (backward-char))
                              (re-search-forward
                               "[^\\]\\$\\({#?\\)?\\([[:alpha:]_][[:alnum:]_]*\\|[-#?@!]\\|[[:digit:]]+\\)"
                               limit t)))
             (not (eq (nth 3 (syntax-ppss)) ?\")))) res))

(defvar sh-script-extra-font-lock-keywords
  '((sh-script-extra-font-lock-match-var-in-double-quoted-string
     (2 font-lock-variable-name-face prepend))))

(defun sh-script-extra-font-lock-activate ()
  (interactive)
  (font-lock-add-keywords nil sh-script-extra-font-lock-keywords)
  (if (fboundp 'font-lock-flush)
      (font-lock-flush)
    (when font-lock-mode (with-no-warnings (font-lock-fontify-buffer)))))