Insert new line above current line

Insert new line above current line.applescript

(*

	Insert new line above current line


[version] 1.0.0
[release] 2014-11-22
[author] 1024jp <http://wolfrosch.com/>
[licence] MIT License
*)

tell application "CotEditor"
	if not (exists front document) then return
	
	tell front document
		-- get current selection range
		set {loc, len} to range of selection
		set {lineLoc, lineLen} to line range of selection
		
		-- select whole line
		set line range of selection to {lineLoc, lineLen}
		
		-- insert a new line before selection
		set contents of selection to ("\n" & contents of selection)
		
		-- reset selection
		set range of selection to {loc + 1, len}
	end tell
end tell