From 49da6d409d94e65771d64ac8e40011c23815d9b4 Mon Sep 17 00:00:00 2001
From: Kabbaj Amine <amine.kabb@gmail.com>
Date: Sat, 8 Oct 2016 18:01:03 +0300
Subject: Add linter HTMLHint for html files

---
 README.md                     |  2 +-
 ale_linters/html/htmlhint.vim | 48 +++++++++++++++++++++++++++++++++++++++++++
 doc/ale.txt                   |  2 +-
 3 files changed, 50 insertions(+), 2 deletions(-)
 create mode 100644 ale_linters/html/htmlhint.vim

diff --git a/README.md b/README.md
index d43a7c2f..d2973a05 100644
--- a/README.md
+++ b/README.md
@@ -35,7 +35,7 @@ name. That seems to be the fairest way to arrange this table.
 | D | [dmd](https://dlang.org/dmd-linux.html)^ |
 | Fortran | [gcc](https://gcc.gnu.org/) |
 | Haskell | [ghc](https://www.haskell.org/ghc/) |
-| HTML | [tidy](http://www.html-tidy.org/) |
+| HTML | [HTMLHint](http://htmlhint.com/), [tidy](http://www.html-tidy.org/) |
 | JavaScript | [eslint](http://eslint.org/), [jscs](http://jscs.info/), [jshint](http://jshint.com/) |
 | JSON | [jsonlint](http://zaa.ch/jsonlint/) |
 | PHP | [php -l](https://secure.php.net/), [phpcs](https://github.com/squizlabs/PHP_CodeSniffer) |
diff --git a/ale_linters/html/htmlhint.vim b/ale_linters/html/htmlhint.vim
new file mode 100644
index 00000000..8cfe1f28
--- /dev/null
+++ b/ale_linters/html/htmlhint.vim
@@ -0,0 +1,48 @@
+" Author: KabbAmine <amine.kabb@gmail.com>
+" Description: HTMLHint for checking html files
+
+if exists('g:loaded_ale_linters_html_htmlhint')
+    finish
+endif
+
+let g:loaded_ale_linters_html_htmlhint = 1
+
+function! ale_linters#html#htmlhint#Handle(buffer, lines) abort
+    " Matches patterns lines like the following:
+    "stdin:7:10: <title></title> must not be empty. [error/title-require]
+
+    let pattern = '^stdin:\(\d\+\):\(\d\+\): \(.\+\)$'
+    let output = []
+
+    for line in a:lines
+        let match = matchlist(line, pattern)
+
+        if len(match) == 0
+            continue
+        endif
+
+        let line = match[1] + 0
+        let col = match[2] + 0
+        let text = match[3]
+
+        " vcol is Needed to indicate that the column is a character.
+        call add(output, {
+        \   'bufnr': a:buffer,
+        \   'lnum': line,
+        \   'vcol': 0,
+        \   'col': col,
+        \   'text': text,
+        \   'type': 'E',
+        \   'nr': -1,
+        \})
+    endfor
+
+    return output
+endfunction
+
+call ALEAddLinter('html', {
+\   'name': 'htmlhint',
+\   'executable': 'htmlhint',
+\   'command': 'htmlhint --format=unix stdin',
+\   'callback': 'ale_linters#html#htmlhint#Handle',
+\})
diff --git a/doc/ale.txt b/doc/ale.txt
index 5ec2852a..4eae226f 100644
--- a/doc/ale.txt
+++ b/doc/ale.txt
@@ -48,7 +48,7 @@ The following languages and tools are supported.
 * D: 'dmd'
 * Fortran: 'gcc'
 * Haskell: 'ghc'
-* HTML: 'tidy'
+* HTML: 'HTMLHint', 'tidy'
 * JavaScript: 'eslint', 'jscs', 'jshint'
 * JSON: 'jsonlint'
 * PHP: 'php' (-l flag), 'phpcs'
-- 
cgit v1.2.3