Fix indentation for multiline strings, broken in last commit

Author: guns

clj/dev-resources/test-basic-sexp-indent.txt

@@ -0,0 +1,7 @@
+(ns test-basic-sexp-indent
+  "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod
+  tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam,
+  quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo
+  consequat.")
+
+;; vim:ft=clojure:

clj/dev-resources/test-multibyte-indent.in

@@ -2,11 +2,18 @@
   (:require [clojure.test :refer [deftest]]
             [vim-clojure-static.test :refer [test-indent]]))
 
-(deftest test-indentation
+(deftest test-basic-sexp-indent
+  (test-indent "works as expected with basic S-expressions"
+               :in "test-basic-sexp-indent.txt"
+               :out "test-basic-sexp-indent.txt"))
+
+(deftest test-multibyte-indent
+  (test-indent "with multibyte characters"
+               :in "test-multibyte-indent.txt"
+               :out "test-multibyte-indent.txt"))
+
+(deftest test-inherit-indent
   (test-indent "is inherited from previous element"
                :in "test-inherit-indent.in"
                :out "test-inherit-indent.out"
-               :keys "/α\\<CR>s\\<C-O>Oa\\<Esc>/β\\<CR>s\\<CR>\\<CR>\\<C-H>\\<C-H>\\<C-H>\\<C-H>\\<C-H>\\<C-H>\\<C-H>b\\<CR>c\\<CR>\\<CR>d\\<Esc>")
-  (test-indent "with multibyte characters"
-               :in "test-multibyte-indent.in"
-               :out "test-multibyte-indent.out"))
+               :keys "/α\\<CR>s\\<C-O>Oa\\<Esc>/β\\<CR>s\\<CR>\\<CR>\\<C-H>\\<C-H>\\<C-H>\\<C-H>\\<C-H>\\<C-H>\\<C-H>b\\<CR>c\\<CR>\\<CR>d\\<Esc>"))

clj/dev-resources/test-multibyte-indent.out renamed to clj/dev-resources/test-multibyte-indent.txt

@@ -307,7 +307,10 @@ if exists("*searchpairpos")
 	function! GetClojureIndent()
 		let lnum = line('.')
 		let [opening_lnum, indent] = s:clojure_indent_pos()
-		let indent -= indent - virtcol([opening_lnum, indent])
+
+		if opening_lnum > 0
+			let indent -= indent - virtcol([opening_lnum, indent])
+		endif
 
 		" Return if there are no previous lines to inherit from
 		if opening_lnum < 1 || opening_lnum >= lnum - 1