branch: elpa/haskell-tng-mode
commit b690037721e5d67c6eb8b904dc3406a07334d4b0
Author: Tseen She <ts33n....@gmail.com>
Commit: Tseen She <ts33n....@gmail.com>
comment-* support
---
haskell-tng-mode.el | 15 ++++++++++-----
test/src/layout.hs.faceup | 6 +++---
test/src/medley.hs.faceup | 32 ++++++++++++++++----------------
3 files changed, 29 insertions(+), 24 deletions(-)
diff --git a/haskell-tng-mode.el b/haskell-tng-mode.el
index 5df9d9e..6c0ce9d 100644
--- a/haskell-tng-mode.el
+++ b/haskell-tng-mode.el
@@ -32,17 +32,13 @@
;; TODO paragraph-start, paragraph-separate, fill-paragraph-function
;;
- ;; TODO comment-start, comment-padding, comment-start-skip, comment-end,
- ;; comment-end-skip, comment-auto-fill-only-comments,
- ;; parse-sexp-ignore-comments (it is annoying that we must specify
- ;; comments here AND in the syntax table)
- ;;
;; TODO mark-defun / font-lock-mark-block-function
;; TODO use setq-local (write a macro to allow multiple parameters)
(setq
;; TAB is evil
indent-tabs-mode nil
+ tab-width 8
;; case-sensitive language
dabbrev-case-fold-search nil
@@ -52,6 +48,15 @@
words-include-escapes t
syntax-propertize-function #'haskell-tng:syntax-propertize
parse-sexp-lookup-properties t
+ parse-sexp-ignore-comments t
+
+ ;; annoying that comments need to be defined here and syntax table
+ comment-start "--"
+ comment-padding 1
+ comment-start-skip (rx "-" (+ "-") (* " "))
+ comment-end ""
+ comment-end-skip (rx (* "\s") (group (| (any ?\n) (syntax comment-end))))
+ comment-auto-fill-only-comments t
font-lock-defaults '(haskell-tng:keywords)
font-lock-multiline t
diff --git a/test/src/layout.hs.faceup b/test/src/layout.hs.faceup
index 3485048..083a704 100644
--- a/test/src/layout.hs.faceup
+++ b/test/src/layout.hs.faceup
@@ -1,4 +1,4 @@
-«x:-- Figure 2.1 from the Haskell2010 report
+«m:-- »«x:Figure 2.1 from the Haskell2010 report
»«:haskell-tng:keyword:module»
«:haskell-tng:module:AStack»«:haskell-tng:keyword:(»«:haskell-tng:constructor:
Stack»«:haskell-tng:keyword:,»«:haskell-tng:constructor:
push»«:haskell-tng:keyword:,»«:haskell-tng:constructor:
pop»«:haskell-tng:keyword:,»«:haskell-tng:constructor:
top»«:haskell-tng:keyword:,»«:haskell-tng:constructor: size
»«:haskell-tng:keyword:)» «:haskell-tng:keyword:where»
«:haskell-tng:keyword:data»«:haskell-tng:type: Stack a
»«:haskell-tng:keyword:=» «:haskell-tng:constructor:Empty»
«:haskell-tng:keyword:|» «:haskell-tng:constructor:MkStack» a
«:haskell-tng:keyword:(»«:haskell-tng:constructor:Stack»
a«:haskell-tng:keyword:)»
@@ -13,8 +13,8 @@
«:haskell-tng:toplevel:pop» «:haskell-tng:keyword:::»«:haskell-tng:type: Stack
a »«:haskell-tng:keyword:->»«:haskell-tng:type:
»«:haskell-tng:keyword:(»«:haskell-tng:type:a»«:haskell-tng:keyword:,»«:haskell-tng:type:
Stack a»«:haskell-tng:keyword:)»«:haskell-tng:type:
»«:haskell-tng:toplevel:pop»
«:haskell-tng:keyword:(»«:haskell-tng:constructor:MkStack» x
s«:haskell-tng:keyword:)»
- «:haskell-tng:keyword:=» «:haskell-tng:keyword:(»x«:haskell-tng:keyword:,»
«:haskell-tng:keyword:case» s «:haskell-tng:keyword:of» r
«:haskell-tng:keyword:->» i r «:haskell-tng:keyword:where» i x
«:haskell-tng:keyword:=» x«:haskell-tng:keyword:)» «x:-- (pop Empty) is an error
+ «:haskell-tng:keyword:=» «:haskell-tng:keyword:(»x«:haskell-tng:keyword:,»
«:haskell-tng:keyword:case» s «:haskell-tng:keyword:of» r
«:haskell-tng:keyword:->» i r «:haskell-tng:keyword:where» i x
«:haskell-tng:keyword:=» x«:haskell-tng:keyword:)» «m:-- »«x:(pop Empty) is an
error
»
«:haskell-tng:toplevel:top» «:haskell-tng:keyword:::»«:haskell-tng:type: Stack
a »«:haskell-tng:keyword:->»«:haskell-tng:type: a
-»«:haskell-tng:toplevel:top»
«:haskell-tng:keyword:(»«:haskell-tng:constructor:MkStack» x
s«:haskell-tng:keyword:)» «:haskell-tng:keyword:=» x «x:--
(top Empty) is an error
+»«:haskell-tng:toplevel:top»
«:haskell-tng:keyword:(»«:haskell-tng:constructor:MkStack» x
s«:haskell-tng:keyword:)» «:haskell-tng:keyword:=» x «m:--
»«x:(top Empty) is an error
»
\ No newline at end of file
diff --git a/test/src/medley.hs.faceup b/test/src/medley.hs.faceup
index 3192eaa..60e2d3d 100644
--- a/test/src/medley.hs.faceup
+++ b/test/src/medley.hs.faceup
@@ -1,10 +1,10 @@
«x:{-# LANGUAGE OverloadedStrings #-}»
«x:{-# LANGUAGE ScopedTypeVariables #-}»
-«x:-- | This file is a medley of various constructs and some corner cases
+«m:-- »«x:| This file is a medley of various constructs and some corner cases
»«:haskell-tng:keyword:module» «:haskell-tng:module:Foo.Bar.Main»
«:haskell-tng:keyword:(»
«:haskell-tng:type:Wibble»«:haskell-tng:keyword:(..),»
«:haskell-tng:type:Wobble»«:haskell-tng:keyword:(»«:haskell-tng:constructor:Wobb»«:haskell-tng:keyword:,»«:haskell-tng:constructor:
»«:haskell-tng:keyword:(»«:haskell-tng:constructor:!!!»«:haskell-tng:keyword:)),»
«:haskell-tng:type:Woo»
- «x:-- * Operations
+ «m:-- »«x:* Operations
» «:haskell-tng:keyword:,» getFooByBar«:haskell-tng:keyword:,»
getWibbleByWobble
«:haskell-tng:keyword:,» «:haskell-tng:keyword:module»
«:haskell-tng:module:Bloo.Foo»
«:haskell-tng:keyword:)» «:haskell-tng:keyword:where»
@@ -16,7 +16,7 @@
«:haskell-tng:keyword:import» «:haskell-tng:module:Data.Monoid»
«:haskell-tng:keyword:((»<>«:haskell-tng:keyword:))»
«:haskell-tng:keyword:import» «:haskell-tng:keyword:qualified»
«:haskell-tng:module:Options.Monad»
«:haskell-tng:keyword:import» «:haskell-tng:keyword:qualified»
«:haskell-tng:module:Options.Applicative» «:haskell-tng:keyword:as»
«:haskell-tng:module:Opts»
-«:haskell-tng:keyword:import» «:haskell-tng:keyword:qualified»
«:haskell-tng:module:Options.Divisible» «x:-- wibble (wobble)
+«:haskell-tng:keyword:import» «:haskell-tng:keyword:qualified»
«:haskell-tng:module:Options.Divisible» «m:-- »«x:wibble (wobble)
» «:haskell-tng:keyword:as» «:haskell-tng:module:Div»
«:haskell-tng:keyword:import» «:haskell-tng:keyword:qualified»
«:haskell-tng:module:ProfFile.App» «:haskell-tng:keyword:hiding»
«:haskell-tng:keyword:(»as«:haskell-tng:keyword:,»
hiding«:haskell-tng:keyword:,» qualified«:haskell-tng:keyword:)»
«:haskell-tng:keyword:import» «:haskell-tng:module:ProfFile.App»
«:haskell-tng:keyword:(»as«:haskell-tng:keyword:,»
hiding«:haskell-tng:keyword:,» qualified«:haskell-tng:keyword:)»
@@ -33,7 +33,7 @@
«:haskell-tng:keyword:import» «:haskell-tng:module:System.Process»
«:haskell-tng:keyword:(»«:haskell-tng:type:CreateProcess»
«:haskell-tng:keyword:(..),» «:haskell-tng:type:StdStream»
«:haskell-tng:keyword:(..),»
createProcess«:haskell-tng:keyword:,»
proc«:haskell-tng:keyword:,» waitForProcess«:haskell-tng:keyword:)»
-«x:-- some chars that should be propertized
+«m:-- »«x:some chars that should be propertized
»«:haskell-tng:toplevel:chars» «:haskell-tng:keyword:=»
«:haskell-tng:keyword:[»«s:'c'»«:haskell-tng:keyword:,»
«s:'\n'»«:haskell-tng:keyword:,» «s:'\''»«:haskell-tng:keyword:]»
«:haskell-tng:toplevel:foo» «:haskell-tng:keyword:=» «s:"wobble (wibble)"»
@@ -63,11 +63,11 @@
«:haskell-tng:keyword:(»«:haskell-tng:constructor:Branch» l1
r1«:haskell-tng:keyword:)» ==
«:haskell-tng:keyword:(»«:haskell-tng:constructor:Branch» l2
r2«:haskell-tng:keyword:)» «:haskell-tng:keyword:=»
«:haskell-tng:keyword:(»l1==l2«:haskell-tng:keyword:)» &&
«:haskell-tng:keyword:(»r1==r2«:haskell-tng:keyword:)»
«:haskell-tng:keyword:_» == «:haskell-tng:keyword:_»
«:haskell-tng:keyword:=» «:haskell-tng:constructor:False»
-«:haskell-tng:keyword:data»«:haskell-tng:type: ReportType
»«:haskell-tng:keyword:=» «:haskell-tng:constructor:Alloc» «x:-- ^ Report
allocations, percent
-» «:haskell-tng:keyword:|» «:haskell-tng:constructor:Entries»
«x:-- ^ Report entries, number
-» «:haskell-tng:keyword:|» «:haskell-tng:constructor:Time»
«x:-- ^ Report time spent in closure, percent
-» «:haskell-tng:keyword:|» «:haskell-tng:constructor:Ticks»
«x:-- ^ Report ticks, number
-» «:haskell-tng:keyword:|» «:haskell-tng:constructor:Bytes»
«x:-- ^ Report bytes allocated, number
+«:haskell-tng:keyword:data»«:haskell-tng:type: ReportType
»«:haskell-tng:keyword:=» «:haskell-tng:constructor:Alloc» «m:-- »«x:^ Report
allocations, percent
+» «:haskell-tng:keyword:|» «:haskell-tng:constructor:Entries»
«m:-- »«x:^ Report entries, number
+» «:haskell-tng:keyword:|» «:haskell-tng:constructor:Time»
«m:-- »«x:^ Report time spent in closure, percent
+» «:haskell-tng:keyword:|» «:haskell-tng:constructor:Ticks»
«m:-- »«x:^ Report ticks, number
+» «:haskell-tng:keyword:|» «:haskell-tng:constructor:Bytes»
«m:-- »«x:^ Report bytes allocated, number
» «:haskell-tng:keyword:deriving»
«:haskell-tng:keyword:(»«:haskell-tng:type:Eq»«:haskell-tng:keyword:,»«:haskell-tng:type:
Show»«:haskell-tng:keyword:)»
«:haskell-tng:keyword:type»«:haskell-tng:type:
»«:haskell-tng:keyword:family»«:haskell-tng:type: G a
»«:haskell-tng:keyword:where»«:haskell-tng:type:
@@ -82,12 +82,12 @@
«:haskell-tng:keyword:newtype»«:haskell-tng:type: Flobby
»«:haskell-tng:keyword:=» «:haskell-tng:constructor:Flobby»
«:haskell-tng:toplevel:foo» «:haskell-tng:keyword:::»«:haskell-tng:type:
- Wibble »«x:-- wibble
-»«:haskell-tng:type: »«:haskell-tng:keyword:->»«:haskell-tng:type: Wobble
»«x:-- wobble
-»«:haskell-tng:type: »«:haskell-tng:keyword:->»«:haskell-tng:type: Wobble
»«x:-- wobble
-»«:haskell-tng:type: »«:haskell-tng:keyword:->»«:haskell-tng:type: Wobble
»«x:-- wobble
+ Wibble »«m:-- »«x:wibble
+»«:haskell-tng:type: »«:haskell-tng:keyword:->»«:haskell-tng:type: Wobble
»«m:-- »«x:wobble
+»«:haskell-tng:type: »«:haskell-tng:keyword:->»«:haskell-tng:type: Wobble
»«m:-- »«x:wobble
+»«:haskell-tng:type: »«:haskell-tng:keyword:->»«:haskell-tng:type: Wobble
»«m:-- »«x:wobble
»«:haskell-tng:type: »«:haskell-tng:keyword:->»«:haskell-tng:type:
»«:haskell-tng:keyword:(»«:haskell-tng:type:wob
»«:haskell-tng:keyword:::»«:haskell-tng:type:
Wobble»«:haskell-tng:keyword:)»«:haskell-tng:type:
- »«:haskell-tng:keyword:->»«:haskell-tng:type:
»«:haskell-tng:keyword:(»«:haskell-tng:type:Wobble »«x:-- wobble
+ »«:haskell-tng:keyword:->»«:haskell-tng:type:
»«:haskell-tng:keyword:(»«:haskell-tng:type:Wobble »«m:-- »«x:wobble
»«:haskell-tng:type: a b c»«:haskell-tng:keyword:)»«:haskell-tng:type:
»
«:haskell-tng:keyword:(»foo «:haskell-tng:keyword:::»«:haskell-tng:type:
»«:haskell-tng:keyword:(»«:haskell-tng:type:Wibble
Wobble»«:haskell-tng:keyword:))» foo
@@ -128,6 +128,6 @@
«:haskell-tng:toplevel:foo» «:haskell-tng:keyword:=» bar
«:haskell-tng:keyword:where» baz «:haskell-tng:keyword:=»
«:haskell-tng:keyword:_»
- «x:-- checking that comments are ignored in layout
-» «x:-- and that a starting syntax entry is ok
+ «m:-- »«x:checking that comments are ignored in layout
+» «m:-- »«x:and that a starting syntax entry is ok
» «:haskell-tng:keyword:(»+«:haskell-tng:keyword:)»
«:haskell-tng:keyword:=» «:haskell-tng:keyword:_»
