22 changed files with 1657 additions and 776 deletions
@ -1,63 +1,4 @@
@@ -1,63 +1,4 @@
|
||||
set makeprg=ghc\ %\ -o\ %< " Компилятор |
||||
|
||||
set foldexpr=HaskellFold(v:lnum) |
||||
set foldmethod=expr |
||||
|
||||
" ============================================================================= |
||||
" Descriptions: Provide a function providing folding information for haskell |
||||
" files. |
||||
" Maintainer: Vincent B (twinside@gmail.com) |
||||
" Warning: Assume the presence of type signatures on top of your functions to |
||||
" work well. |
||||
" Usage: drop in ~/vimfiles/plugin or ~/.vim/plugin |
||||
" Version: 1.0 |
||||
" Changelog: - 1.0 : initial version |
||||
" ============================================================================= |
||||
if exists("g:__HASKELLFOLD_VIM__") |
||||
finish |
||||
endif |
||||
let g:__HASKELLFOLD_VIM__ = 1 |
||||
|
||||
" Top level bigdefs |
||||
fun! s:HaskellFoldMaster( line ) "{{{ |
||||
return a:line =~ '^data\s' |
||||
\ || a:line =~ '^type\s' |
||||
\ || a:line =~ '^newdata\s' |
||||
\ || a:line =~ '^class\s' |
||||
\ || a:line =~ '^instance\s' |
||||
\ || a:line =~ '^[^:]\+\s*::' |
||||
endfunction "}}} |
||||
|
||||
" Top Level one line shooters. |
||||
fun! s:HaskellSnipGlobal(line) "{{{ |
||||
return a:line =~ '^module' |
||||
\ || a:line =~ '^import' |
||||
\ || a:line =~ '^infix[lr]\s' |
||||
endfunction "}}} |
||||
|
||||
" The real folding function |
||||
fun! HaskellFold( lineNum ) "{{{ |
||||
let line = getline( a:lineNum ) |
||||
|
||||
" Beginning of comment |
||||
if line =~ '^\s*--' |
||||
return 2 |
||||
endif |
||||
|
||||
if s:HaskellSnipGlobal( line ) |
||||
return 0 |
||||
endif |
||||
|
||||
if line =~ '^\s*$' |
||||
let nextline = getline(a:lineNum + 1) |
||||
if s:HaskellFoldMaster( nextline ) > 0 || s:HaskellSnipGlobal( nextline ) > 0 |
||||
\ || nextline =~ "^--" |
||||
return 0 |
||||
else |
||||
return -1 |
||||
endif |
||||
endif |
||||
|
||||
return 1 |
||||
endfunction "}}} |
||||
call SetHaskellFolding() |
||||
|
||||
|
||||
@ -0,0 +1 @@
@@ -0,0 +1 @@
|
||||
Subproject commit b1ac46807835423c4a4dd063df6d5b613d89c731 |
||||
@ -0,0 +1,147 @@
@@ -0,0 +1,147 @@
|
||||
## Vim Haskell Conceal+ |
||||
|
||||
This bundle provides extended Haskell Conceal feature for Vim. The feature |
||||
is used to display unicode operators in Haskell code without changing the |
||||
underlying file. |
||||
|
||||
This package offers more (and, more importantly, configurable) features |
||||
than the |
||||
[baseline vim-haskellConcealbundle](https://github.com/Twinside/vim-haskellConceal). |
||||
The baseline bundle has numerous forks, which is possible to combine, so |
||||
everyone is welcome to share, improve or contribute new notations to this |
||||
Conceal Plus package. |
||||
|
||||
GitHub: https://github.com/enomsg/vim-haskellConcealPlus |
||||
|
||||
### Why Concealing |
||||
|
||||
- Using things like '->' instead real arrows '→' was never a deliberate |
||||
choice, but a choice made due to limitations of teletypewriters and |
||||
input inconvenience. |
||||
|
||||
- With concealing you don't have to deal with cumbersome unicode-input |
||||
methods, yet you can enjoy proper notation. |
||||
|
||||
- It is not only about aesthetics. Excess of multi-character functions may |
||||
create visual noise, which negatively affects readability. Using special |
||||
symbols and true arrows, together with colors and bold/italic face seems |
||||
to improve the situation. The image shows Vim with and without |
||||
concealing, both running in a plain terminal emulator: |
||||
|
||||
 |
||||
|
||||
- Using concealing instead of *-unicode* versions of packages also has |
||||
some advantages. Mainly, concealing does not require any changes to the |
||||
source code, it is backwards-compatible with idiomatic code. Secondly, |
||||
with concealing no special input methods are needed. Plus, currently |
||||
some features are hardly possible without editor's concealing (e.g. |
||||
power superscripts). |
||||
|
||||
### Installation |
||||
|
||||
Using Vim built-in `pack` support: |
||||
|
||||
``` |
||||
$ mkdir -p ~/.vim/pack/vim-haskellConcealPlus/start |
||||
$ cd ~/.vim/pack/vim-haskellConcealPlus/start |
||||
$ git clone https://github.com/enomsg/vim-haskellConcealPlus |
||||
$ echo "syn on" >> ~/.vimrc # If not already in .vimrc |
||||
$ echo "setlocal conceallevel=2" >> ~/.vimrc # If not already in .vimrc |
||||
$ echo "set concealcursor=nciv" >> ~/.vimrc # Optional |
||||
``` |
||||
|
||||
### Available Options |
||||
|
||||
'q' option to disable concealing of scientific constants (e.g. π) |
||||
'℘' option to disable concealing of powerset function |
||||
'𝐒' option to disable String type to 𝐒 concealing |
||||
'𝐓' option to disable Text type to 𝐓 concealing |
||||
'𝐄' option to disable Either/Right/Left to 𝐄/𝑅/𝐿 concealing |
||||
'𝐌' option to disable Maybe/Just/Nothing to 𝐌/𝐽/𝑁 concealing |
||||
'A' option to not try to preserve indentation |
||||
's' option to disable space consumption after ∑,∏,√ and ¬ functions |
||||
'*' option to enable concealing of asterisk with '⋅' sign |
||||
'x' option to disable default concealing of asterisk with '×' sign |
||||
'E' option to enable ellipsis concealing with ‥ (two dot leader) |
||||
'e' option to disable ellipsis concealing with … (ellipsis sign) |
||||
'⇒' option to disable `implies` concealing with ⇒ |
||||
'⇔' option to disable `iff` concealing with ⇔ |
||||
'r' option to disable return (η) and join (µ) concealing |
||||
'b' option to disable bind (left and right) concealing |
||||
'f' option to enable formal (★) right bind concealing |
||||
'c' option to enable encircled b/d (ⓑ/ⓓ) for right and left binds |
||||
'h' option to enable partial concealing of binds (e.g. »=) |
||||
'C' option to enable encircled 'm' letter ⓜ concealing for fmap |
||||
'l' option to disable fmap/lift concealing with ↥ |
||||
'↱' option to disable mapM/forM concealing with ↱/↰ |
||||
'w' option to disable 'where' concealing with "due to"/∵ symbol |
||||
'-' option to disable subtract/(-) concealing with ⊟ |
||||
'I' option to enable alternative ':+' concealing with with ⨢ |
||||
'i' option to disable default concealing of ':+' with ⅈ |
||||
'R' option to disable realPart/imagPart concealing with ℜ/ℑ |
||||
'T' option to enable True/False constants concealing with bold 𝐓/𝐅 |
||||
't' option to disable True/False constants concealing with italic 𝑇/𝐹 |
||||
'B' option to disable Bool type to 𝔹 concealing |
||||
'Q' option to disable Rational type to ℚ concealing |
||||
'Z' option to disable Integer type to ℤ concealing |
||||
'N' option to disable Natural, Nat types to ℕ concealing |
||||
'D' option to disable Double type to 𝔻 concealing |
||||
'C' option to disable Complex type to ℂ concealing |
||||
'1' option to disable numeric superscripts concealing, e.g. x² |
||||
'a' option to disable alphabet superscripts concealing, e.g. xⁿ |
||||
|
||||
The flags can be specified via hscoptions variable. For example, *let |
||||
hscoptions="fc"* in your *~/.vimrc*. |
||||
|
||||
### Known Issues and Hints: |
||||
|
||||
- Concealing may seriously mess up indentation. By default the bundle |
||||
tries to preserve spaces for commonly troublesome symbols (e.g. ->, <- |
||||
and => arrows). But to be sure about indentation, you still have to see |
||||
the non-concealed code. *set conceallevel=0* might be handy in these |
||||
cases. |
||||
|
||||
- *set concealcursor=nciv* seem to not play well with Vim matchparen |
||||
feature (which is enabled by default). You can either disable concealing |
||||
under the cursor, or disable matchparen by adding *let |
||||
loaded_matchparen=1* at the very top of your *~/.vimrc*. |
||||
|
||||
- With *set concealcursor=nciv* navigation through concealed parts of code |
||||
might be somewhat irritating because the cursor behaves a bit |
||||
differently. It becomes less of an issue if you are used to Vim's *w/b* |
||||
commands (word forward/backward). You can also try *set |
||||
concealcursor=ncv* instead. |
||||
|
||||
- Finding proper fonts might be a pain. Most of modern, so called |
||||
programming fonts (*Inconsolata*, *Anonymous Pro*, etc.) often lack |
||||
decent unicode support. As a recommendation, try *DejaVu Sans Mono*. |
||||
|
||||
**Update**: thanks to [monospacifier](https://github.com/cpitclaudel/monospacifier) |
||||
package, fonts are no longer a problem. Pick your favourite font, then in |
||||
addition download one of the "monospacified" fallback fonts, save into |
||||
`~/.fonts`, and adjust fontconfig, e.g. |
||||
`~/.config/fontconfig/fonts.conf`: |
||||
|
||||
``` |
||||
<?xml version="1.0"?><!DOCTYPE fontconfig SYSTEM "fonts.dtd"> |
||||
<fontconfig> |
||||
<dir>~/.fonts</dir> |
||||
<alias> |
||||
<family>monospace</family> |
||||
<prefer> |
||||
<family>TeX Gyre Schola Math monospacified for DejaVu Sans Mono</family> |
||||
</prefer> |
||||
</alias> |
||||
</fontconfig> |
||||
``` |
||||
|
||||
- Most of the terminal emulators have one or more issues with regard to the |
||||
unicode characters handling. Emulators that don't have problems with unicode |
||||
might be pretty slow. As a recommendation, try xst, or *evilvte* (it has weird |
||||
configuration, but draws things correctly) or *lxterminal* (seems to be quite |
||||
capable, but limited configurability) or any other terminal emulator that |
||||
happened to work for you. |
||||
|
||||
[xst](https://github.com/gnotclub/xst) is known to work well with DejaVu Sans |
||||
Mono, plus [monospacified](https://github.com/cpitclaudel/monospacifier) fonts |
||||
as a fallback. |
||||
@ -0,0 +1,46 @@
@@ -0,0 +1,46 @@
|
||||
{-# LANGUAGE ExistentialQuantification, RankNTypes #-} |
||||
import Control.Applicative |
||||
import Data.Monoid |
||||
import Control.Monad.ST.Lazy |
||||
import Control.Monad |
||||
import Numeric |
||||
import Data.Complex |
||||
import Data.List |
||||
|
||||
factorial :: Integer -> Integer |
||||
factorial n = product as |
||||
where as = [n, n-1..1] |
||||
|
||||
integral :: (Num a, Enum a) => (a -> a) -> a -> (a,a) -> a |
||||
integral f dx (a,b) = sum ((\x -> f(x)*dx) <$> ab) |
||||
where ab = [a,a+dx..b-dx] |
||||
|
||||
isValid :: Integer -> Bool -> Bool -> Bool |
||||
isValid a b c = (a >= 0 && a <= 10) || (b && not c) |
||||
|
||||
rs :: forall a. (forall s. ST s a) -> a |
||||
rs = runST |
||||
|
||||
main :: IO () |
||||
main = do |
||||
let tau = 2*pi |
||||
putSL $ showF 2 $ integral sin 0.001 (pi,tau) |
||||
print $ unsafe [pi,tau] |
||||
print $ factorial <$> [1..13`div`2] |
||||
print $ texNum . showF 2 <$> (mag <$> [1,2] <*> [3,4]) |
||||
print $ Just True >>= (\x -> return $ x `elem` [True, False, False]) |
||||
>>= (\x -> if x /= True |
||||
then Nothing |
||||
else return True) |
||||
>>= (\x -> return $ isValid 1 True x) |
||||
print $ [1,2] `union` [3,4] == [-9,-8..4] `intersect` [1,2..9] |
||||
print $ (++"il") <$> (Just "fa" >> guard False >> return undefined) |
||||
print $ realPart(4:+2) == imagPart(2:+4) |
||||
print $ liftM3 (\x y z -> x+y+z) [1] [2] [39] |
||||
putSL $ "Hask" <> "ell" |
||||
where |
||||
mag a b = sqrt(a^2 + b^2) |
||||
showF n f = showFFloat (Just n) f empty |
||||
unsafe xs = (xs!!0,xs!!1) |
||||
texNum num = "$\\num{" ++ num ++ "}$" |
||||
putSL = putStrLn |
||||
@ -0,0 +1,90 @@
@@ -0,0 +1,90 @@
|
||||
{-# LANGUAGE ExistentialQuantification, RankNTypes #-} |
||||
import Control.Applicative |
||||
>> import Control.Applicative |
||||
import Data.Monoid |
||||
>> import Data.Monoid |
||||
import Control.Monad.ST.Lazy |
||||
>> import Control.Monad.ST.Lazy |
||||
import Control.Monad |
||||
>> import Control.Monad |
||||
import Numeric |
||||
>> import Numeric |
||||
import Data.Complex |
||||
>> import Data.Complex |
||||
import Data.List |
||||
>> import Data.List |
||||
|
||||
factorial :: Integer -> Integer |
||||
factorial n = product as |
||||
where as = [n, n-1..1] |
||||
|
||||
>> factorial :: Integer -> Integer |
||||
>> factorial n = product as |
||||
>> where as = [n, n-1..1] |
||||
|
||||
integral :: (Num a, Enum a) => (a -> a) -> a -> (a,a) -> a |
||||
integral f dx (a,b) = sum ((\x -> f(x)*dx) <$> ab) |
||||
where ab = [a,a+dx..b-dx] |
||||
|
||||
>> integral :: (Num a, Enum a) => (a -> a) -> a -> (a,a) -> a |
||||
>> integral f dx (a,b) = sum ((\x -> f(x)*dx) <$> ab) |
||||
>> where ab = [a,a+dx..b-dx] |
||||
|
||||
isValid :: Integer -> Bool -> Bool -> Bool |
||||
isValid a b c = (a >= 0 && a <= 10) || (b && not c) |
||||
|
||||
>> isValid :: Integer -> Bool -> Bool -> Bool |
||||
>> isValid a b c = (a >= 0 && a <= 10) || (b && not c) |
||||
|
||||
rs :: forall a. (forall s. ST s a) -> a |
||||
rs = runST |
||||
>> rs :: forall a. (forall s. ST s a) -> a |
||||
>> rs = runST |
||||
|
||||
main :: IO () |
||||
main = do |
||||
let tau = 2*pi |
||||
putSL $ showF 2 $ integral sin 0.001 (pi,tau) |
||||
print $ unsafe [pi,tau] |
||||
print $ factorial <$> [1..13`div`2] |
||||
print $ texNum . showF 2 <$> (mag <$> [1,2] <*> [3,4]) |
||||
print $ Just True >>= (\x -> return $ x `elem` [True, False, False]) |
||||
>>= (\x -> if x /= True |
||||
then Nothing |
||||
else return True) |
||||
>>= (\x -> return $ isValid 1 True x) |
||||
print $ [1,2] `union` [3,4] == [-9,-8..4] `intersect` [1,2..9] |
||||
print $ (++"il") <$> (Just "fa" >> guard False >> return undefined) |
||||
print $ realPart(4:+2) == imagPart(2:+4) |
||||
print $ liftM3 (\x y z -> x+y+z) [1] [2] [39] |
||||
putSL $ "Hask" <> "ell" |
||||
where |
||||
mag a b = sqrt(a^2 + b^2) |
||||
showF n f = showFFloat (Just n) f empty |
||||
unsafe xs = (xs!!0,xs!!1) |
||||
texNum num = "$\\num{" ++ num ++ "}$" |
||||
putSL = putStrLn |
||||
|
||||
>> main :: IO () |
||||
>> main = do |
||||
>> let tau = 2*pi |
||||
>> putSL $ showF 2 $ integral sin 0.001 (pi,tau) |
||||
>> print $ unsafe [pi,tau] |
||||
>> print $ factorial <$> [1..13`div`2] |
||||
>> print $ texNum . showF 2 <$> (mag <$> [1,2] <*> [3,4]) |
||||
>> print $ Just True >>= (\x -> return $ x `elem` [True, False, False]) |
||||
>> >>= (\x -> if x /= True |
||||
>> then Nothing |
||||
>> else return True) |
||||
>> >>= (\x -> return $ isValid 1 True x) |
||||
>> print $ [1,2] `union` [3,4] == [-9,-8..4] `intersect` [1,2..9] |
||||
>> print $ (++"il") <$> (Just "fa" >> guard False >> return undefined) |
||||
>> print $ realPart(4:+2) == imagPart(2:+4) |
||||
>> print $ liftM3 (\x y z -> x+y+z) [1] [2] [39] |
||||
>> putSL $ "Hask" <> "ell" |
||||
>> where |
||||
>> mag a b = sqrt(a^2 + b^2) |
||||
>> showF n f = showFFloat (Just n) f empty |
||||
>> unsafe xs = (xs!!0,xs!!1) |
||||
>> texNum num = "$\\num{" ++ num ++ "}$" |
||||
>> putSL = putStrLn |
||||
|
After Width: | Height: | Size: 181 KiB |
@ -0,0 +1,6 @@
@@ -0,0 +1,6 @@
|
||||
#!/bin/sh |
||||
|
||||
rm s{l,r}.png |
||||
convert -crop 490x685+0+35 l.png sl.png |
||||
convert -crop 640x685+0+35 r.png sr.png |
||||
convert sl.png sr.png +append demo.png |
||||
@ -0,0 +1,38 @@
@@ -0,0 +1,38 @@
|
||||
#!/usr/bin/env bash |
||||
set -e |
||||
|
||||
tag=test |
||||
|
||||
docker build -t "$tag" - << EOF_DOCKERFILE |
||||
from debian:buster |
||||
|
||||
run apt-get update |
||||
|
||||
run apt-get install -y locales |
||||
run echo en_US.UTF-8 UTF-8 > /etc/locale.gen |
||||
run dpkg-reconfigure locales --frontend=noninteractive |
||||
|
||||
run apt-get install -y vim |
||||
run apt-get install -y git |
||||
run apt-get install -y screen |
||||
|
||||
run useradd -m -s /bin/bash user |
||||
env SHELL /bin/bash |
||||
env LANG en_US.UTF-8 |
||||
env LC_CTYPE en_US.UTF8 |
||||
|
||||
user user |
||||
run mkdir -p ~/.vim/pack/vim-haskellConcealPlus/start && \ |
||||
cd ~/.vim/pack/vim-haskellConcealPlus/start && \ |
||||
git clone https://github.com/enomsg/vim-haskellConcealPlus |
||||
run echo "syn on\nsetlocal conceallevel=2\nset concealcursor=nciv" > ~/.vimrc |
||||
# Run in screen as it handles terminal capabilities better than most of the raw |
||||
# terminals. |
||||
cmd screen vim ~/.vim/pack/vim-haskellConcealPlus/start/vim-haskellConcealPlus/demo.hs |
||||
#cmd bash |
||||
EOF_DOCKERFILE |
||||
|
||||
docker run \ |
||||
-e TERM="$TERM" \ |
||||
-w /home/user \ |
||||
-it "$tag" "$@" |
||||
@ -0,0 +1,37 @@
@@ -0,0 +1,37 @@
|
||||
#!/usr/bin/env bash |
||||
set -e |
||||
|
||||
tag=test |
||||
|
||||
docker build -t "$tag" - << EOF_DOCKERFILE |
||||
from debian:buster |
||||
|
||||
run apt-get update |
||||
|
||||
run apt-get install -y locales |
||||
run echo en_US.UTF-8 UTF-8 > /etc/locale.gen |
||||
run dpkg-reconfigure locales --frontend=noninteractive |
||||
|
||||
run apt-get install -y vim |
||||
run apt-get install -y vim-pathogen |
||||
run apt-get install -y git |
||||
run apt-get install -y screen |
||||
|
||||
run useradd -m -s /bin/bash user |
||||
env SHELL /bin/bash |
||||
env LANG en_US.UTF-8 |
||||
env LC_CTYPE en_US.UTF8 |
||||
|
||||
user user |
||||
run mkdir -p ~/.vim/bundle && cd ~/.vim/bundle && git clone https://github.com/enomsg/vim-haskellConcealPlus |
||||
run echo "execute pathogen#infect()\nsyn on\nsetlocal conceallevel=2\nset concealcursor=nciv" > ~/.vimrc |
||||
# Run in screen as it handles terminal capabilities better than most of the raw |
||||
# terminals. |
||||
cmd screen vim ~/.vim/bundle/vim-haskellConcealPlus/demo.hs |
||||
#cmd bash |
||||
EOF_DOCKERFILE |
||||
|
||||
docker run \ |
||||
-e TERM="$TERM" \ |
||||
-w /home/user \ |
||||
-it "$tag" "$@" |
||||
@ -0,0 +1,14 @@
@@ -0,0 +1,14 @@
|
||||
# haskellFold |
||||
|
||||
Provide a better folding for haskell file. The folded lines are transformed |
||||
to display the type signature (if any) of the function, providing a great |
||||
overview of your file content. |
||||
|
||||
You can get a shorter version of the foldtext (only the first relevant line) |
||||
by setting `g:haskellFold_ShortText = 1` |
||||
|
||||
# Installation |
||||
|
||||
Drop the file in ~/.vim/plugin or ~/vimfiles/plugin folder, or if you |
||||
use pathogen into the ~/.vim/bundle/vim-haskellFold or |
||||
~/vimfiles/bundle/vim-haskellFold |
||||
@ -0,0 +1,121 @@
@@ -0,0 +1,121 @@
|
||||
" ============================================================================= |
||||
" Descriptions: Provide a function providing folding information for haskell |
||||
" files. |
||||
" Maintainer: Vincent B (twinside@gmail.com) |
||||
" Warning: Assume the presence of type signatures on top of your functions to |
||||
" work well. |
||||
" Usage: drop in ~/vimfiles/plugin or ~/.vim/plugin |
||||
" Version: 1.2 |
||||
" Changelog: - 1.2 : Reacting to file type instead of file extension. |
||||
" - 1.1 : Adding foldtext to bet more information. |
||||
" - 1.0 : initial version |
||||
" ============================================================================= |
||||
" Top level bigdefs |
||||
fun! s:HaskellFoldMaster( line ) "{{{ |
||||
return a:line =~# '^data\s' |
||||
\ || a:line =~# '^type\s' |
||||
\ || a:line =~# '^newtype\s' |
||||
\ || a:line =~# '^class\s' |
||||
\ || a:line =~# '^instance\s' |
||||
\ || a:line =~ '^[^:]\+\s*::' |
||||
endfunction "}}} |
||||
|
||||
" Top Level one line shooters. |
||||
fun! s:HaskellSnipGlobal(line) "{{{ |
||||
return a:line =~# '^module' |
||||
\ || a:line =~# '^import' |
||||
\ || a:line =~# '^infix[lr]\s' |
||||
endfunction "}}} |
||||
|
||||
" The real folding function |
||||
fun! haskellFold#HaskellFold( lineNum ) "{{{ |
||||
let line = getline( a:lineNum ) |
||||
|
||||
" Beginning of comment |
||||
if line =~ '^\s*--' || line =~ '^\s*{-' |
||||
return 2 |
||||
endif |
||||
|
||||
if line =~ '^import' |
||||
return 2 |
||||
endif |
||||
|
||||
if s:HaskellSnipGlobal( line ) |
||||
return 0 |
||||
endif |
||||
|
||||
if line =~ '^\s*$' |
||||
let nextline = getline(a:lineNum + 1) |
||||
if s:HaskellFoldMaster( nextline ) > 0 || s:HaskellSnipGlobal( nextline ) > 0 |
||||
\ || nextline =~ "^--" || nextline =~ "^{-" |
||||
return 0 |
||||
else |
||||
return -1 |
||||
endif |
||||
endif |
||||
|
||||
return 1 |
||||
endfunction "}}} |
||||
|
||||
" This function skim over function definitions |
||||
" skiping comments line : |
||||
" -- .... |
||||
" and merging lines without first non space element, to |
||||
" catch the full type expression. |
||||
fun! haskellFold#HaskellFoldText() "{{{ |
||||
let i = v:foldstart |
||||
let retVal = '' |
||||
let began = 0 |
||||
|
||||
let commentOnlyLine = '^\s*--.*$' |
||||
let monoLineComment = '\s*--.*$' |
||||
let nonEmptyLine = '^\s\+\S' |
||||
let emptyLine = '^\s*$' |
||||
let multilineCommentBegin = '^\s*{-' |
||||
let multilineCommentEnd = '-}' |
||||
|
||||
let short = get(g:, 'haskellFold_ShortText', 0) |
||||
let isMultiLine = 0 |
||||
|
||||
let line = getline(i) |
||||
while i <= v:foldend |
||||
|
||||
if isMultiLine |
||||
if line =~ multilineCommentEnd |
||||
let isMultiLine = 0 |
||||
let line = substitute(line, '.*-}', '', '') |
||||
|
||||
if line =~ emptyLine |
||||
let i = i + 1 |
||||
let line = getline(i) |
||||
end |
||||
else |
||||
let i = i + 1 |
||||
let line = getline(i) |
||||
end |
||||
else |
||||
if line =~ multilineCommentBegin |
||||
let isMultiLine = 1 |
||||
continue |
||||
elseif began == 0 && !(line =~ commentOnlyLine) |
||||
let retVal = substitute(line, monoLineComment, ' ','') |
||||
let began = 1 |
||||
elseif began != 0 && line =~ nonEmptyLine && !short |
||||
let tempVal = substitute( line, '\s\+\(.*\)$', ' \1', '' ) |
||||
let retVal = retVal . substitute(tempVal, '\s\+--.*', ' ','') |
||||
elseif began != 0 |
||||
break |
||||
endif |
||||
|
||||
let i = i + 1 |
||||
let line = getline(i) |
||||
endif |
||||
endwhile |
||||
|
||||
if retVal == '' |
||||
" We didn't found any meaningfull text |
||||
return foldtext() |
||||
endif |
||||
|
||||
return retVal |
||||
endfunction "}}} |
||||
@ -0,0 +1 @@
@@ -0,0 +1 @@
|
||||
call SetHaskellFolding() |
||||
@ -0,0 +1,11 @@
@@ -0,0 +1,11 @@
|
||||
if exists("g:__HASKELLFOLD_VIM__") |
||||
finish |
||||
endif |
||||
|
||||
let g:__HASKELLFOLD_VIM__ = 1 |
||||
|
||||
fun! SetHaskellFolding() "{{{ |
||||
setlocal foldexpr=haskellFold#HaskellFold(v:lnum) |
||||
setlocal foldtext=haskellFold#HaskellFoldText() |
||||
setlocal foldmethod=expr |
||||
endfunction "}}} |
||||
@ -1,577 +0,0 @@
@@ -1,577 +0,0 @@
|
||||
" Vim syntax file |
||||
" Language: Haskell |
||||
" Maintainer: Rui Carlos A. Goncalves <rcgoncalves.pt@gmail.com> |
||||
" Yang Zhang <treblih.divad@gmail.com> |
||||
" Last Change: July 31, 2010 |
||||
" |
||||
" Version: 1.3 |
||||
" Url: http://www.rcg-pt.net/programacao/haskell.vim.gz |
||||
" |
||||
" Original Author: John Williams <jrw@pobox.com> |
||||
|
||||
" Remove any old syntax stuff hanging around |
||||
if version < 600 |
||||
syn clear |
||||
elseif exists("b:current_syntax") |
||||
finish |
||||
endif |
||||
|
||||
|
||||
" (Qualified) identifiers (no default highlighting) |
||||
syn match ConId "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=\<[A-Z][a-zA-Z0-9_']*\>" |
||||
syn match VarId "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=\<[a-z][a-zA-Z0-9_']*\>" |
||||
|
||||
|
||||
" Infix operators--most punctuation characters and any (qualified) identifier |
||||
" enclosed in `backquotes`. An operator starting with : is a constructor, |
||||
" others are variables (e.g. functions). |
||||
syn match hsVarSym "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=[-!#$%&\*\+/<=>\?@\\^|~.][-!#$%&\*\+/<=>\?@\\^|~:.]*" |
||||
syn match hsConSym "\(\<[A-Z][a-zA-Z0-9_']*\.\)\=:[-!#$%&\*\+./<=>\?@\\^|~:]*" |
||||
syn match hsVarSym "`\(\<[A-Z][a-zA-Z0-9_']*\.\)\=[a-z][a-zA-Z0-9_']*`" |
||||
syn match hsConSym "`\(\<[A-Z][a-zA-Z0-9_']*\.\)\=[A-Z][a-zA-Z0-9_']*`" |
||||
|
||||
|
||||
" Reserved symbols--cannot be overloaded. |
||||
syn match hsDelimiter "(\|)\|\[\|\]\|,\|;\|_\|{\|}" |
||||
|
||||
|
||||
" Strings and constants |
||||
syn match hsSpecialChar contained "\\\([0-9]\+\|o[0-7]\+\|x[0-9a-fA-F]\+\|[\"\\'&\\abfnrtv]\|^[A-Z^_\[\\\]]\)" |
||||
syn match hsSpecialChar contained "\\\(NUL\|SOH\|STX\|ETX\|EOT\|ENQ\|ACK\|BEL\|BS\|HT\|LF\|VT\|FF\|CR\|SO\|SI\|DLE\|DC1\|DC2\|DC3\|DC4\|NAK\|SYN\|ETB\|CAN\|EM\|SUB\|ESC\|FS\|GS\|RS\|US\|SP\|DEL\)" |
||||
syn match hsSpecialCharError contained "\\&\|'''\+" |
||||
syn region hsString start=+"+ skip=+\\\\\|\\"+ end=+"+ contains=hsSpecialChar |
||||
syn match hsCharacter "[^a-zA-Z0-9_']'\([^\\]\|\\[^']\+\|\\'\)'"lc=1 contains=hsSpecialChar,hsSpecialCharError |
||||
syn match hsCharacter "^'\([^\\]\|\\[^']\+\|\\'\)'" contains=hsSpecialChar,hsSpecialCharError |
||||
syn match hsNumber "\<[0-9]\+\>\|\<0[xX][0-9a-fA-F]\+\>\|\<0[oO][0-7]\+\>" |
||||
syn match hsFloat "\<[0-9]\+\.[0-9]\+\([eE][-+]\=[0-9]\+\)\=\>" |
||||
|
||||
|
||||
" Keyword definitions. These must be patters instead of keywords |
||||
" because otherwise they would match as keywords at the start of a |
||||
" "literate" comment (see lhs.vim). |
||||
syn match hsModule "\<module\>" |
||||
syn match hsImport "\<import\>.*"he=s+6 contains=hsImportMod |
||||
syn match hsImportMod contained "\<\(as\|qualified\|hiding\)\>" |
||||
syn match hsInfix "\<\(infix\|infixl\|infixr\)\>" |
||||
syn match hsStructure "\<\(class\|data\|deriving\|instance\|default\|where\)\>" |
||||
syn match hsTypedef "\<\(type\|newtype\)\>" |
||||
syn match hsStatement "\<\(do\|return\|case\|of\|let\|in\)\>" |
||||
syn match hsConditional "\<\(if\|then\|else\)\>" |
||||
|
||||
|
||||
" Types |
||||
syn keyword hsType Array |
||||
syn keyword hsType Bool BufferMode |
||||
syn keyword hsType CalendarTime Char ClockTime Complex Complex |
||||
syn keyword hsType Day Double |
||||
syn keyword hsType Either ExitCode |
||||
syn keyword hsType FilePath Float |
||||
syn keyword hsType Handle HandlePosn |
||||
syn keyword hsType Int Integer IO IOError IOMode |
||||
syn keyword hsType Maybe Month |
||||
syn keyword hsType Ordering |
||||
syn keyword hsType Permissions |
||||
syn keyword hsType Ratio Rational Rational Read ReadS |
||||
syn keyword hsType SeekMode Show ShowS StdGen String |
||||
syn keyword hsType TimeDiff TimeLocale |
||||
|
||||
|
||||
" Classes from the standard prelude |
||||
syn keyword hsCls Bounded |
||||
syn keyword hsCls Enum Eq |
||||
syn keyword hsCls Floating Fractional Functor |
||||
syn keyword hsCls Integral Ix |
||||
syn keyword hsCls Monad MonadPlus |
||||
syn keyword hsCls Num |
||||
syn keyword hsCls Ord |
||||
syn keyword hsCls Random RandomGen Read Real RealFloat RealFrac |
||||
syn keyword hsCls Show |
||||
|
||||
|
||||
" Functions |
||||
syn keyword hsFunc abs |
||||
syn keyword hsFunc accum |
||||
syn keyword hsFunc accumArray |
||||
syn keyword hsFunc acos |
||||
syn keyword hsFunc acosh |
||||
syn keyword hsFunc addToClockTime |
||||
syn keyword hsFunc all |
||||
syn keyword hsFunc and |
||||
syn keyword hsFunc any |
||||
syn keyword hsFunc ap |
||||
syn keyword hsFunc appendFile |
||||
syn keyword hsFunc approxRational |
||||
syn keyword hsFunc array |
||||
syn keyword hsFunc asin |
||||
syn keyword hsFunc asinh |
||||
syn keyword hsFunc assocs |
||||
syn keyword hsFunc asTypeOf |
||||
syn keyword hsFunc atan |
||||
syn keyword hsFunc atan2 |
||||
syn keyword hsFunc atanh |
||||
|
||||
syn keyword hsFunc bounds |
||||
syn keyword hsFunc bracket |
||||
syn keyword hsFunc bracket_ |
||||
syn keyword hsFunc break |
||||
|
||||
syn keyword hsFunc calendarTimeToString |
||||
syn keyword hsFunc catch |
||||
syn keyword hsFunc catMaybes |
||||
syn keyword hsFunc ceiling |
||||
syn keyword hsFunc chr |
||||
syn keyword hsFunc cis |
||||
syn keyword hsFunc compare |
||||
syn keyword hsFunc concat |
||||
syn keyword hsFunc concatMap |
||||
syn keyword hsFunc conjugate |
||||
syn keyword hsFunc const |
||||
syn keyword hsFunc cos |
||||
syn keyword hsFunc cosh |
||||
syn keyword hsFunc cpuTimePrecision |
||||
syn keyword hsFunc createDirectory |
||||
syn keyword hsFunc curry |
||||
syn keyword hsFunc cycle |
||||
|
||||
syn keyword hsFunc decodeFloat |
||||
syn keyword hsFunc defaultTimeLocale |
||||
syn keyword hsFunc delete |
||||
syn keyword hsFunc deleteBy |
||||
syn keyword hsFunc denominator |
||||
syn keyword hsFunc diffClockTimes |
||||
syn keyword hsFunc digitToInt |
||||
syn keyword hsFunc div |
||||
syn keyword hsFunc divMod |
||||
syn keyword hsFunc doesDirectoryExist |
||||
syn keyword hsFunc doesFileExist |
||||
syn keyword hsFunc drop |
||||
syn keyword hsFunc dropWhile |
||||
|
||||
syn keyword hsFunc either |
||||
syn keyword hsFunc elem |
||||
syn keyword hsFunc elemIndex |
||||
syn keyword hsFunc elemIndices |
||||
syn keyword hsFunc elems |
||||
syn keyword hsFunc encodeFloat |
||||
syn keyword hsFunc enumFrom |
||||
syn keyword hsFunc enumFromThen |
||||
syn keyword hsFunc enumFromThenTo |
||||
syn keyword hsFunc enumFromTo |
||||
syn keyword hsFunc error |
||||
syn keyword hsFunc even |
||||
syn keyword hsFunc executable |
||||
syn keyword hsFunc exitFailure |
||||
syn keyword hsFunc exitWith |
||||
syn keyword hsFunc exp |
||||
syn keyword hsFunc exponent |
||||
|
||||
syn keyword hsFunc fail |
||||
syn keyword hsFunc filter |
||||
syn keyword hsFunc filterM |
||||
syn keyword hsFunc find |
||||
syn keyword hsFunc findIndex |
||||
syn keyword hsFunc findIndices |
||||
syn keyword hsFunc flip |
||||
syn keyword hsFunc floatDigits |
||||
syn keyword hsFunc floatRadix |
||||
syn keyword hsFunc floatRange |
||||
syn keyword hsFunc floatToDigits |
||||
syn keyword hsFunc floor |
||||
syn keyword hsFunc fmap |
||||
syn keyword hsFunc foldl |
||||
syn keyword hsFunc foldl1 |
||||
syn keyword hsFunc foldM |
||||
syn keyword hsFunc foldr |
||||
syn keyword hsFunc foldr1 |
||||
syn keyword hsFunc formatCalendarTime |
||||
syn keyword hsFunc fromEnum |
||||
syn keyword hsFunc fromInteger |
||||
syn keyword hsFunc fromIntegral |
||||
syn keyword hsFunc fromJust |
||||
syn keyword hsFunc fromMaybe |
||||
syn keyword hsFunc fromRat |
||||
syn keyword hsFunc fromRational |
||||
syn keyword hsFunc fst |
||||
|
||||
syn keyword hsFunc gcd |
||||
syn keyword hsFunc genericDrop |
||||
syn keyword hsFunc genericIndex |
||||
syn keyword hsFunc genericLength |
||||
syn keyword hsFunc genericReplicate |
||||
syn keyword hsFunc genericSplitAt |
||||
syn keyword hsFunc genericTake |
||||
syn keyword hsFunc getArgs |
||||
syn keyword hsFunc getChar |
||||
syn keyword hsFunc getClockTime |
||||
syn keyword hsFunc getContents |
||||
syn keyword hsFunc getCPUTime |
||||
syn keyword hsFunc getCurrentDirectory |
||||
syn keyword hsFunc getDirectoryContents |
||||
syn keyword hsFunc getEnv |
||||
syn keyword hsFunc getLine |
||||
syn keyword hsFunc getModificationTime |
||||
syn keyword hsFunc getPermissions |
||||
syn keyword hsFunc getProgName |
||||
syn keyword hsFunc getStdGen |
||||
syn keyword hsFunc getStdRandom |
||||
syn keyword hsFunc group |
||||
syn keyword hsFunc groupBy |
||||
syn keyword hsFunc guard |
||||
|
||||
syn keyword hsFunc hClose |
||||
syn keyword hsFunc head |
||||
syn keyword hsFunc hFileSize |
||||
syn keyword hsFunc hFlush |
||||
syn keyword hsFunc hGetBuffering |
||||
syn keyword hsFunc hGetChar |
||||
syn keyword hsFunc hGetContents |
||||
syn keyword hsFunc hGetLine |
||||
syn keyword hsFunc hGetPosn |
||||
syn keyword hsFunc hIsClosed |
||||
syn keyword hsFunc hIsEOF |
||||
syn keyword hsFunc hIsOpen |
||||
syn keyword hsFunc hIsReadable |
||||
syn keyword hsFunc hIsSeekable |
||||
syn keyword hsFunc hIsWritable |
||||
syn keyword hsFunc hLookAhead |
||||
syn keyword hsFunc hPrint |
||||
syn keyword hsFunc hPutChar |
||||
syn keyword hsFunc hPutStr |
||||
syn keyword hsFunc hPutStrLn |
||||
syn keyword hsFunc hReady |
||||
syn keyword hsFunc hSeek |
||||
syn keyword hsFunc hSetBuffering |
||||
syn keyword hsFunc hSetPosn |
||||
syn keyword hsFunc hWaitForInput |
||||
|
||||
syn keyword hsFunc id |
||||
syn keyword hsFunc imagPart |
||||
syn keyword hsFunc index |
||||
syn keyword hsFunc indices |
||||
syn keyword hsFunc init |
||||
syn keyword hsFunc inits |
||||
syn keyword hsFunc inRange |
||||
syn keyword hsFunc insert |
||||
syn keyword hsFunc insertBy |
||||
syn keyword hsFunc interact |
||||
syn keyword hsFunc intersect |
||||
syn keyword hsFunc intersectBy |
||||
syn keyword hsFunc intersperse |
||||
syn keyword hsFunc intToDigit |
||||
syn keyword hsFunc ioeGetErrorString |
||||
syn keyword hsFunc ioeGetFileName |
||||
syn keyword hsFunc ioeGetHandle |
||||
syn keyword hsFunc ioError |
||||
syn keyword hsFunc isAlpha |
||||
syn keyword hsFunc isAlphaNum |
||||
syn keyword hsFunc isAlreadyExistsError |
||||
syn keyword hsFunc isAlreadyInUseError |
||||
syn keyword hsFunc isAscii |
||||
syn keyword hsFunc isControl |
||||
syn keyword hsFunc isDenormalized |
||||
syn keyword hsFunc isDigit |
||||
syn keyword hsFunc isDoesNotExistError |
||||
syn keyword hsFunc isEOF |
||||
syn keyword hsFunc isEOFError |
||||
syn keyword hsFunc isFullError |
||||
syn keyword hsFunc isHexDigit |
||||
syn keyword hsFunc isIEEE |
||||
syn keyword hsFunc isIllegalOperation |
||||
syn keyword hsFunc isInfinite |
||||
syn keyword hsFunc isJust |
||||
syn keyword hsFunc isLatin1 |
||||
syn keyword hsFunc isLower |
||||
syn keyword hsFunc isNaN |
||||
syn keyword hsFunc isNegativeZero |
||||
syn keyword hsFunc isNothing |
||||
syn keyword hsFunc isOctDigit |
||||
syn keyword hsFunc isPermissionError |
||||
syn keyword hsFunc isPrefixOf |
||||
syn keyword hsFunc isPrint |
||||
syn keyword hsFunc isSpace |
||||
syn keyword hsFunc isSuffixOf |
||||
syn keyword hsFunc isUpper |
||||
syn keyword hsFunc isUserError |
||||
syn keyword hsFunc iterate |
||||
syn keyword hsFunc ixmap |
||||
|
||||
syn keyword hsFunc join |
||||
|
||||
syn keyword hsFunc last |
||||
syn keyword hsFunc lcm |
||||
syn keyword hsFunc length |
||||
syn keyword hsFunc lex |
||||
syn keyword hsFunc lexDigits |
||||
syn keyword hsFunc lexLitChar |
||||
syn keyword hsFunc liftM |
||||
syn keyword hsFunc liftM2 |
||||
syn keyword hsFunc liftM3 |
||||
syn keyword hsFunc liftM4 |
||||
syn keyword hsFunc liftM5 |
||||
syn keyword hsFunc lines |
||||
syn keyword hsFunc listArray |
||||
syn keyword hsFunc listToMaybe |
||||
syn keyword hsFunc log |
||||
syn keyword hsFunc logBase |
||||
syn keyword hsFunc lookup |
||||
|
||||
syn keyword hsFunc magnitude |
||||
syn keyword hsFunc map |
||||
syn keyword hsFunc mapAccumL |
||||
syn keyword hsFunc mapAccumR |
||||
syn keyword hsFunc mapAndUnzipM |
||||
syn keyword hsFunc mapM |
||||
syn keyword hsFunc mapM_ |
||||
syn keyword hsFunc mapMaybe |
||||
syn keyword hsFunc max |
||||
syn keyword hsFunc maxBound |
||||
syn keyword hsFunc maximum |
||||
syn keyword hsFunc maximumBy |
||||
syn keyword hsFunc maybe |
||||
syn keyword hsFunc maybeToList |
||||
syn keyword hsFunc min |
||||
syn keyword hsFunc minBound |
||||
syn keyword hsFunc minimum |
||||
syn keyword hsFunc minimumBy |
||||
syn keyword hsFunc mkPolar |
||||
syn keyword hsFunc mkStdGen |
||||
syn keyword hsFunc mod |
||||
syn keyword hsFunc msum |
||||
|
||||
syn keyword hsFunc negate |
||||
syn keyword hsFunc newStdGen |
||||
syn keyword hsFunc next |
||||
syn keyword hsFunc not |
||||
syn keyword hsFunc notElem |
||||
syn keyword hsFunc nub |
||||
syn keyword hsFunc nubBy |
||||
syn keyword hsFunc null |
||||
syn keyword hsFunc numerator |
||||
|
||||
syn keyword hsFunc odd |
||||
syn keyword hsFunc openFile |
||||
syn keyword hsFunc or |
||||
syn keyword hsFunc ord |
||||
syn keyword hsFunc otherwise |
||||
|
||||
syn keyword hsFunc partition |
||||
syn keyword hsFunc phase |
||||
" syn keyword hsFunc pi |
||||
syn keyword hsFunc polar |
||||
syn keyword hsFunc pred |
||||
syn keyword hsFunc print |
||||
" syn keyword hsFunc product |
||||
syn keyword hsFunc properFraction |
||||
syn keyword hsFunc putChar |
||||
syn keyword hsFunc putStr |
||||
syn keyword hsFunc putStrLn |
||||
|
||||
syn keyword hsFunc quot |
||||
syn keyword hsFunc quotRem |
||||
|
||||
syn keyword hsFunc random |
||||
syn keyword hsFunc randomIO |
||||
syn keyword hsFunc randomR |
||||
syn keyword hsFunc randomRIO |
||||
syn keyword hsFunc randomRs |
||||
syn keyword hsFunc randoms |
||||
syn keyword hsFunc range |
||||
syn keyword hsFunc rangeSize |
||||
syn keyword hsFunc read |
||||
syn keyword hsFunc readable |
||||
syn keyword hsFunc readDec |
||||
syn keyword hsFunc readFile |
||||
syn keyword hsFunc readFloat |
||||
syn keyword hsFunc readHex |
||||
syn keyword hsFunc readInt |
||||
syn keyword hsFunc readIO |
||||
syn keyword hsFunc readList |
||||
syn keyword hsFunc readLitChar |
||||
syn keyword hsFunc readLn |
||||
syn keyword hsFunc readOct |
||||
syn keyword hsFunc readParen |
||||
syn keyword hsFunc reads |
||||
syn keyword hsFunc readSigned |
||||
syn keyword hsFunc readsPrec |
||||
syn keyword hsFunc realPart |
||||
syn keyword hsFunc realToFrac |
||||
syn keyword hsFunc recip |
||||
syn keyword hsFunc rem |
||||
syn keyword hsFunc removeDirectory |
||||
syn keyword hsFunc removeFile |
||||
syn keyword hsFunc renameDirectory |
||||
syn keyword hsFunc renameFile |
||||
syn keyword hsFunc repeat |
||||
syn keyword hsFunc replicate |
||||
syn keyword hsFunc return |
||||
syn keyword hsFunc reverse |
||||
syn keyword hsFunc round |
||||
|
||||
syn keyword hsFunc scaleFloat |
||||
syn keyword hsFunc scanl |
||||
syn keyword hsFunc scanl1 |
||||
syn keyword hsFunc scanr |
||||
syn keyword hsFunc scanr1 |
||||
syn keyword hsFunc searchable |
||||
syn keyword hsFunc seq |
||||
syn keyword hsFunc sequence |
||||
syn keyword hsFunc sequence_ |
||||
syn keyword hsFunc setCurrentDirectory |
||||
syn keyword hsFunc setPermissions |
||||
syn keyword hsFunc setStdGen |
||||
syn keyword hsFunc show |
||||
syn keyword hsFunc showChar |
||||
syn keyword hsFunc showEFloat |
||||
syn keyword hsFunc showFFloat |
||||
syn keyword hsFunc showFloat |
||||
syn keyword hsFunc showGFloat |
||||
syn keyword hsFunc showInt |
||||
syn keyword hsFunc showList |
||||
syn keyword hsFunc showLitChar |
||||
syn keyword hsFunc showParen |
||||
syn keyword hsFunc shows |
||||
syn keyword hsFunc showSigned |
||||
syn keyword hsFunc showsPrec |
||||
syn keyword hsFunc showString |
||||
syn keyword hsFunc significand |
||||
syn keyword hsFunc signum |
||||
syn keyword hsFunc sin |
||||
syn keyword hsFunc sinh |
||||
syn keyword hsFunc snd |
||||
syn keyword hsFunc sort |
||||
syn keyword hsFunc sortBy |
||||
syn keyword hsFunc split |
||||
syn keyword hsFunc splitAt |
||||
" syn keyword hsFunc sqrt |
||||
syn keyword hsFunc stderr |
||||
syn keyword hsFunc stdin |
||||
syn keyword hsFunc stdout |
||||
syn keyword hsFunc subtract |
||||
syn keyword hsFunc succ |
||||
" syn keyword hsFunc sum |
||||
syn keyword hsFunc system |
||||
|
||||
syn keyword hsFunc tail |
||||
syn keyword hsFunc tails |
||||
syn keyword hsFunc take |
||||
syn keyword hsFunc takeWhile |
||||
syn keyword hsFunc tan |
||||
syn keyword hsFunc tanh |
||||
syn keyword hsFunc toCalendarTime |
||||
syn keyword hsFunc toClockTime |
||||
syn keyword hsFunc toEnum |
||||
syn keyword hsFunc toInteger |
||||
syn keyword hsFunc toLower |
||||
syn keyword hsFunc toRational |
||||
syn keyword hsFunc toUpper |
||||
syn keyword hsFunc toUTCTime |
||||
syn keyword hsFunc transpose |
||||
syn keyword hsFunc truncate |
||||
syn keyword hsFunc try |
||||
|
||||
syn keyword hsFunc uncurry |
||||
syn keyword hsFunc undefined |
||||
syn keyword hsFunc unfoldr |
||||
syn keyword hsFunc union |
||||
syn keyword hsFunc unionBy |
||||
syn keyword hsFunc unless |
||||
syn keyword hsFunc unlines |
||||
syn keyword hsFunc until |
||||
syn keyword hsFunc unwords |
||||
syn keyword hsFunc unzip |
||||
syn keyword hsFunc unzip3 |
||||
syn keyword hsFunc unzip4 |
||||
syn keyword hsFunc unzip5 |
||||
syn keyword hsFunc unzip6 |
||||
syn keyword hsFunc unzip7 |
||||
syn keyword hsFunc userError |
||||
|
||||
syn keyword hsFunc when |
||||
syn keyword hsFunc words |
||||
syn keyword hsFunc writable |
||||
syn keyword hsFunc writeFile |
||||
|
||||
syn keyword hsFunc zip |
||||
syn keyword hsFunc zip3 |
||||
syn keyword hsFunc zip4 |
||||
syn keyword hsFunc zip5 |
||||
syn keyword hsFunc zip6 |
||||
syn keyword hsFunc zip7 |
||||
syn keyword hsFunc zipWith |
||||
syn keyword hsFunc zipWith3 |
||||
syn keyword hsFunc zipWith4 |
||||
syn keyword hsFunc zipWith5 |
||||
syn keyword hsFunc zipWith6 |
||||
syn keyword hsFunc zipWith7 |
||||
syn keyword hsFunc zipWithM |
||||
syn keyword hsFunc zipWithM_ |
||||
|
||||
|
||||
" Constants |
||||
syn match hsBoolean "\<\(True\|False\)\>" |
||||
syn match hsMaybe "\<\(Nothing\|Just\)\>" |
||||
syn match hsConstant "\<\(Left\|Right\)\>" |
||||
syn match hsOrdering "\<\(LT\|EQ\|GT\)\>" |
||||
|
||||
|
||||
" Comments |
||||
syn match hsLineComment "--.*" |
||||
syn region hsBlockComment start="{-" end="-}" contains=hsBlockComment |
||||
syn region hsPragma start="{-#" end="#-}" |
||||
|
||||
" Literate comments--any line not starting with '>' is a comment. |
||||
if exists("b:hs_literate_comments") |
||||
syn region hsLiterateComment start="^" end="^>" |
||||
endif |
||||
|
||||
|
||||
if !exists("hs_minlines") |
||||
let hs_minlines = 50 |
||||
endif |
||||
exec "syn sync lines=" . hs_minlines |
||||
|
||||
if version >= 508 || !exists("did_hs_syntax_inits") |
||||
if version < 508 |
||||
let did_hs_syntax_inits = 1 |
||||
command -nargs=+ HiLink hi link <args> |
||||
else |
||||
command -nargs=+ HiLink hi def link <args> |
||||
endif |
||||
|
||||
hi link hsModule hsStructure |
||||
hi link hsImport Include |
||||
hi link hsImportMod hsImport |
||||
hi link hsInfix PreProc |
||||
hi link hsStructure Structure |
||||
hi link hsStatement Statement |
||||
hi link hsConditional Conditional |
||||
hi link hsSpecialChar SpecialChar |
||||
hi link hsTypedef Typedef |
||||
hi link hsVarSym hsOperator |
||||
hi link hsConSym hsOperator |
||||
hi link hsOperator Operator |
||||
hi link hsSpecialCharError Error |
||||
hi link hsString String |
||||
hi link hsCharacter Character |
||||
hi link hsNumber Number |
||||
hi link hsFloat Float |
||||
hi link hsConditional Conditional |
||||
hi link hsLiterateComment hsComment |
||||
hi link hsBlockComment hsComment |
||||
hi link hsLineComment hsComment |
||||
hi link hsComment Comment |
||||
hi link hsPragma SpecialComment |
||||
hi link hsBoolean Boolean |
||||
hi link hsType Type |
||||
hi link hsFunc Function |
||||
hi link hsMaybe hsEnumConst |
||||
hi link hsOrdering hsEnumConst |
||||
hi link hsEnumConst Constant |
||||
hi link hsConstant Constant |
||||
hi link hsDebug Debug |
||||
hi link hsCls Debug |
||||
|
||||
delcommand HiLink |
||||
endif |
||||
|
||||
let b:current_syntax = "haskell" |
||||
Loading…
Reference in new issue