Mise en surbrillance des variables shell dans les guillemets

Dans vim, le document suivant provoquera la $PWDcouleur des lignes 2 et 3 de deux manières différentes:

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

La première instance de $PWDsera dans une couleur différente du reste de la chaîne dans laquelle elle se trouve. Cela donne une indication visuelle claire que la variable sera développée, plutôt que traitée comme du texte littéral. En revanche, la deuxième instance de $PWDsera colorée de la même manière que le reste de la chaîne, car les guillemets simples la traitent comme du texte littéral.

Existe-t-il des modes emacs existants qui fournissent ce type de "reconnaissance de citations de shell"?

Le code ci-dessous utilise une règle de verrouillage de police avec une fonction au lieu d'une expression rationnelle, la fonction recherche les occurrences de $VARmais uniquement lorsqu'elles se trouvent à l'intérieur d'une chaîne entre guillemets doubles. La fonction (syntax-ppss)est utilisée pour déterminer cela.

La règle de verrouillage de police utilise l' prependindicateur pour s'ajouter au-dessus de la surbrillance de chaîne existante. (Notez que de nombreux packages l'utilisent t. Malheureusement, cela écrase tous les aspects de la mise en surbrillance existante. Par exemple, l'utilisation prependconservera une couleur d'arrière-plan de chaîne (s'il y en a une) tout en remplaçant la couleur de premier plan.)

(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)))))

Vous pouvez appeler use this en ajoutant la dernière fonction à un hook approprié, par exemple:

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

J'ai amélioré la réponse de @ Lindydancer de la manière suivante:

• A souligné la sh-script-extra-font-lock-is-in-double-quoted-stringfonction, car elle n'a été utilisée qu'une seule fois
• Échapper à la variable fonctionne.
• Les variables numériques ( $10, $1, etc.) sont mis en évidence.

Pause pour le code

(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)))))