[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/haskell-tng-mode ae1d399 268/385: backslashes are only key
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/haskell-tng-mode ae1d399 268/385: backslashes are only keywords when used in lambdas |
Date: |
Tue, 5 Oct 2021 23:59:44 -0400 (EDT) |
branch: elpa/haskell-tng-mode
commit ae1d39946349414be20c4aa5e40ca1d3d25dbce2
Author: Tseen She <ts33n.sh3@gmail.com>
Commit: Tseen She <ts33n.sh3@gmail.com>
backslashes are only keywords when used in lambdas
---
haskell-tng-rx.el | 6 +++++-
test/src/medley.hs | 2 +-
test/src/medley.hs.faceup | 2 +-
test/src/medley.hs.imenu | 10 +++++-----
test/src/medley.hs.layout | 2 +-
test/src/medley.hs.syntax | 2 +-
6 files changed, 14 insertions(+), 10 deletions(-)
diff --git a/haskell-tng-rx.el b/haskell-tng-rx.el
index 4d54d73..bbeed95 100644
--- a/haskell-tng-rx.el
+++ b/haskell-tng-rx.el
@@ -53,7 +53,11 @@ give false positives." `(|
'(| symbol-end word-start))
)
(| "[]" "()") ;; empty list / void
- (: symbol-start (char ?\\)))) ;; TODO only for lambdas, don't include ops
like \\
+ (: symbol-start (char ?\\)
+ ;; don't include ops like \\
+ ,(if hack
+ '(| space word-start point)
+ '(| space word-start)))))
(defconst haskell-tng--rx-newline
'(| ?\n
diff --git a/test/src/medley.hs b/test/src/medley.hs
index d5edf35..15793b9 100644
--- a/test/src/medley.hs
+++ b/test/src/medley.hs
@@ -46,7 +46,7 @@ multiline2 = "\
difficult = foo' 'a' 2
-foo = "wobble (wibble)"
+foo = "wobble (wibble)" \\ 'a'
class Get a s where
get :: Set s -> a
diff --git a/test/src/medley.hs.faceup b/test/src/medley.hs.faceup
index a441e22..b6ca577 100644
--- a/test/src/medley.hs.faceup
+++ b/test/src/medley.hs.faceup
@@ -46,7 +46,7 @@ multiline2 «:haskell-tng-keyword-face:=» «s:"\
difficult «:haskell-tng-keyword-face:=» foo' «s:'a'» 2
-foo «:haskell-tng-keyword-face:=» «s:"wobble (wibble)"»
+foo «:haskell-tng-keyword-face:=» «s:"wobble (wibble)"» \\ «s:'a'»
«:haskell-tng-keyword-face:class»«:haskell-tng-type-face: Get a s
»«:haskell-tng-keyword-face:where»
get «:haskell-tng-keyword-face:::»«:haskell-tng-type-face: Set s
»«:haskell-tng-keyword-face:->»«:haskell-tng-type-face: a
diff --git a/test/src/medley.hs.imenu b/test/src/medley.hs.imenu
index db76804..00247cc 100644
--- a/test/src/medley.hs.imenu
+++ b/test/src/medley.hs.imenu
@@ -7,8 +7,8 @@
("multiline2" . 1767)
("difficult" . 1796)
("foo" . 1820)
- ("optionsParser" . 3396)
- ("getUsers" . 4371)
- ("test" . 4740)
- ("cases" . 4763)
- ("bar" . 4835))
+ ("optionsParser" . 3403)
+ ("getUsers" . 4378)
+ ("test" . 4747)
+ ("cases" . 4770)
+ ("bar" . 4842))
diff --git a/test/src/medley.hs.layout b/test/src/medley.hs.layout
index eb68bee..b650005 100644
--- a/test/src/medley.hs.layout
+++ b/test/src/medley.hs.layout
@@ -46,7 +46,7 @@ module Foo.Bar.Main
;difficult = foo' 'a' 2
-;foo = "wobble (wibble)"
+;foo = "wobble (wibble)" \\ 'a'
;class Get a s where
{get :: Set s -> a
diff --git a/test/src/medley.hs.syntax b/test/src/medley.hs.syntax
index 60e5317..a936683 100644
--- a/test/src/medley.hs.syntax
+++ b/test/src/medley.hs.syntax
@@ -46,7 +46,7 @@ wwwwwwwwww _ "_>
>
wwwwwwwww _ wwww "w" w>
>
-www _ "wwwwww (wwwwww)">
+www _ "wwwwww (wwwwww)" __ "w">
>
wwwww www w w wwwww>
www __ www w __ w>
- [nongnu] elpa/haskell-tng-mode c0b1b6b 301/385: change the compile-always-ask default, (continued)
- [nongnu] elpa/haskell-tng-mode c0b1b6b 301/385: change the compile-always-ask default, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode 907c8fa 153/385: ImplicitParams indentation, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode ca00f1f 183/385: thot, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode 611711a 208/385: address melpa review, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode 89c5c80 223/385: improve smartparens workaround, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode e270647 228/385: more robust calls to hsinspect, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode ad5967b 236/385: simpler installation, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode 599d4f0 283/385: import symbol at point, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode 9b334f7 275/385: ghcflags, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode f221f95 173/385: introduce types and constraints to the grammar, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode ae1d399 268/385: backslashes are only keywords when used in lambdas,
ELPA Syncer <=
- [nongnu] elpa/haskell-tng-mode 1d74d5f 279/385: backslash bughunting, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode 499c77f 261/385: abbrev-mode support, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode e2e3490 382/385: hide-show supports BOILERPLATE START ... BOILERPLATE END, ELPA Syncer, 2021/10/06
- [nongnu] elpa/haskell-tng-mode a34e796 368/385: improve debugging, ELPA Syncer, 2021/10/06