diff options
| -rw-r--r-- | CHANGELOG.md | 2 | ||||
| -rw-r--r-- | helpful.el | 14 |
2 files changed, 16 insertions, 0 deletions
diff --git a/CHANGELOG.md b/CHANGELOG.md index 5d0c04e..4537037 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -7,6 +7,8 @@ Added disassemble buttons to byte-code functions in symbol properties. Fixed an issue with the prompt when setting variables to symbol values. +Quoted keywords in docstrings are now highlighted. + # v0.5 Allow function tracing to be enabled/disabled from Helpful buffers. @@ -542,6 +542,19 @@ blank line afterwards." (-cons* first-line "" (cdr lines))) docstring))) +(defun helpful--propertize-keywords (docstring) + "Propertize quoted keywords in docstrings." + (replace-regexp-in-string + ;; Replace all text of the form `foo'. + (rx "`" + (group ":" symbol-start (+? anything) symbol-end) + "'") + (lambda (it) + (propertize (match-string 1 it) + 'face 'font-lock-builtin-face)) + docstring + t t)) + (defun helpful--propertize-symbols (docstring) "Convert symbol references in docstrings to buttons." (replace-regexp-in-string @@ -640,6 +653,7 @@ unescaping too." (helpful--split-first-line) (helpful--propertize-info) (helpful--propertize-symbols) + (helpful--propertize-keywords) (s-trim))) (helpful--format-docstring "(apply '+ 1 '(1 2))") |