branch: elpa/raku-mode
commit c2105da136e12ce85f5c2ad7e4fc24cd5521a141
Author: Hinrik Örn Sigurðsson <hinrik....@gmail.com>
Commit: Hinrik Örn Sigurðsson <hinrik....@gmail.com>
Better code formatting
---
perl6-font-lock.el | 25 +++++++++++++------------
1 file changed, 13 insertions(+), 12 deletions(-)
diff --git a/perl6-font-lock.el b/perl6-font-lock.el
index f1fd380d80..12acf7c5c3 100644
--- a/perl6-font-lock.el
+++ b/perl6-font-lock.el
@@ -385,24 +385,25 @@ OPEN-ANGLES is the opening delimiter (e.g. \"«\" or
\"<<\")."
(close-angle (matching-paren open-angle))
(quote-beg (- (point) angle-length))
(line-beg (point-at-bol)))
- (unless (or (looking-at "[-=]")
- (looking-back (rx-to-string `(and (char "+~=!")
,open-angle)) 2))
- (when (or (or (not (looking-at "[\s\n]"))
- (not (looking-back (rx-to-string `(and (char "\s\n")
,open-angle)) 2)))
- (looking-at (rx-to-string `(and ,open-angle (1+ (char
"\s\n")) ,close-angle)))
- (looking-back (rx-to-string `(and "=" (1+ space)
,open-angle)) line-beg)
- (looking-back (rx-to-string `(and "\(" (0+ space)
,open-angle)) line-beg)
- (or (looking-at "\s*$")
- (looking-back (rx-to-string `(and line-start (0+ space)
,open-angle)) line-beg))
- (looking-back (rx-to-string `(and symbol-start (or "enum"
"for" "any" "all" "none")
- (0+ space) (opt "\)") (0+ space)
,open-angle)) line-beg))
+ (when
+ (and (not (or (looking-at "[-=]")
+ (looking-back (rx-to-string `(and (char "+~=!")
,open-angle)) 2)))
+ (or (not (looking-at "[\s\n]"))
+ (not (looking-back (rx-to-string `(and (char "\s\n")
,open-angle)) 2))
+ (looking-at (rx-to-string `(and ,open-angle (1+ (char
"\s\n")) ,close-angle)))
+ (looking-back (rx-to-string `(and "=" (1+ space)
,open-angle)) line-beg)
+ (looking-back (rx-to-string `(and "\(" (0+ space)
,open-angle)) line-beg)
+ (looking-at "\s*$")
+ (looking-back (rx-to-string `(and line-start (0+ space)
,open-angle)) line-beg)
+ (looking-back (rx-to-string `(and symbol-start (or "enum"
"for" "any" "all" "none")
+ (0+ space) (opt "\)") (0+
space) ,open-angle)) line-beg)))
(put-text-property quote-beg (1+ quote-beg)
'syntax-table (string-to-syntax "|"))
(perl6-forward-brackets open-angle close-angle angle-length)
(let ((quote-end (- (point) 1)))
(put-text-property quote-beg quote-end 'syntax-multiline t)
(put-text-property quote-end (1+ quote-end)
- 'syntax-table (string-to-syntax "|"))))))))
+ 'syntax-table (string-to-syntax "|")))))))
(defun perl6-syntax-propertize-backslash ()
(when (eq (perl6-syntax-context) nil)
