branch: elpa/julia-mode
commit f3f2ad18229e7194d28ca83edca010766037ac7a
Author: Wilfred Hughes <m...@wilfred.me.uk>
Commit: Yichao Yu <yyc1...@gmail.com>
Highlight triple quoted strings.
---
julia-mode.el | 20 ++++++++++++++++++--
1 file changed, 18 insertions(+), 2 deletions(-)
diff --git a/julia-mode.el b/julia-mode.el
index 1fa44ca..7bb8676 100644
--- a/julia-mode.el
+++ b/julia-mode.el
@@ -114,6 +114,18 @@ This function provides equivalent functionality, but makes
no efforts to optimis
"\\\\"))
(group "'")))
+(defconst julia-triple-quoted-string-regex
+ ;; We deliberately put a group on the first and last delimiter, so
+ ;; we can mark these as string delimiters for font-lock.
+ (rx (group "\"")
+ (group "\"\""
+ ;; After the delimiter, we're a sequence of
+ ;; non-backslashes or blackslashes paired with something.
+ (*? (or (not (any "\\"))
+ (seq "\\" anything)))
+ "\"\"")
+ (group "\"")))
+
(defconst julia-unquote-regex
"\\(\\s(\\|\\s-\\|-\\|[,%=<>\\+*/?&|!\\^~\\\\;:]\\|^\\)\\($[a-zA-Z0-9_]+\\)")
@@ -391,10 +403,14 @@ before point. Returns nil if we're not within nested
parens."
(set (make-local-variable 'font-lock-defaults) '(julia-font-lock-keywords))
(set (make-local-variable 'font-lock-syntactic-keywords)
(list
- `(,julia-char-regex
+ `(,julia-char-regex
(1 "\"") ; Treat ' as a string delimiter.
(2 ".") ; Don't highlight anything between the open and close '.
- (3 "\"")) ; Treat the close ' as a string delimiter.
+ (3 "\"")); Treat the close ' as a string delimiter.
+ `(,julia-triple-quoted-string-regex
+ (1 "\"") ; Treat the first " in """ as a string delimiter.
+ (2 ".") ; Don't highlight anything between.
+ (3 "\"")) ; Treat the last " in """ as a string delimiter.
))
(set (make-local-variable 'indent-line-function) 'julia-indent-line)
(set (make-local-variable 'julia-basic-offset) 4)
