[nongnu] elpa/zig-mode 9bdc960 025/104: Support multiline string literals (#8)

[ELPA Syncer]

branch: elpa/zig-mode
commit 9bdc960bbb9d4a79a36e0930f31ef183a8aa16e5
Author: Matthew D. Steele <mdsteele@alum.mit.edu>
Commit: GitHub <noreply@github.com>

    Support multiline string literals (#8)
---
 zig-mode.el | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/zig-mode.el b/zig-mode.el
index 9172fbc..eeb012c 100644
--- a/zig-mode.el
+++ b/zig-mode.el
@@ -138,6 +138,31 @@
              ("var"   . font-lock-variable-name-face)
              ("fn"    . font-lock-function-name-face)))))
 
+(defun zig-currently-in-str () (nth 3 (syntax-ppss)))
+(defun zig-start-of-current-str-or-comment () (nth 8 (syntax-ppss)))
+
+(defun zig-syntax-propertize-newline-if-in-multiline-str (end)
+  (when (and (zig-currently-in-str)
+             (save-excursion
+               (goto-char (zig-start-of-current-str-or-comment))
+               (looking-at "\\\\\\\\"))
+             (re-search-forward "\n" end t))
+    (put-text-property (match-beginning 0) (match-end 0)
+                       'syntax-table (string-to-syntax "|"))
+    (goto-char (match-end 0))))
+
+(defun zig-syntax-propertize (start end)
+  (goto-char start)
+  (zig-syntax-propertize-newline-if-in-multiline-str end)
+  (funcall
+   (syntax-propertize-rules
+    ;; Multiline strings
+    ("\\(\\\\\\)\\\\"
+     (1 (prog1 "|"
+         (goto-char (match-end 0))
+         (zig-syntax-propertize-newline-if-in-multiline-str end)))))
+   (point) end))
+
 ;;;###autoload
 (define-derived-mode zig-mode c-mode "Zig"
   "A major mode for the zig programming language."
@@ -145,6 +170,7 @@
   (set (make-local-variable 'c-syntactic-indentation) nil)
   (setq-local comment-start "// ")
   (setq-local comment-end "")
+  (setq-local syntax-propertize-function 'zig-syntax-propertize)
   (setq font-lock-defaults '(zig-font-lock-keywords)))
 
 ;;;###autoload