rc: remove spurious tabs

This makes it easier to be consistent.

Also replace "<<-EOF" by "<<EOF", since the former only does trims
tabs, not spaces.

1 files changed, 174 insertions, 174 deletions

diff --git a/rc/filetype/pascal.kak b/rc/filetype/pascal.kak
index b18a915e..3e5100b5 100644
--- a/rc/filetype/pascal.kak
+++ b/rc/filetype/pascal.kak
@@ -3,25 +3,25 @@
 
 # Detection, see https://wiki.freepascal.org/file_types
 hook global BufCreate .*\.(p|pp|pas|pascal)$ %{
-	set-option buffer filetype pascal
+    set-option buffer filetype pascal
 }
 hook global BufCreate .*\.(dpr|dpk|dfm)$ %{
-	set-option buffer filetype delphi
+    set-option buffer filetype delphi
 }
 hook global BufCreate .*\.(lpr|lfm)$ %{
-	set-option buffer filetype freepascal
+    set-option buffer filetype freepascal
 }
 
 hook global WinSetOption filetype=((free|object)?pascal|delphi) %[
-	require-module pascal
-	hook window InsertChar \n -group pascal-indent pascal-indent-on-new-line
-	hook -once -always window WinSetOption filetype=.* %{ remove-hooks window pascal-.+ }
-	set-option window static_words %opt{static_words}
+    require-module pascal
+    hook window InsertChar \n -group pascal-indent pascal-indent-on-new-line
+    hook -once -always window WinSetOption filetype=.* %{ remove-hooks window pascal-.+ }
+    set-option window static_words %opt{static_words}
 ]
 
 hook -group pascal-highlight global WinSetOption filetype=((free|object)?pascal|delphi) %[
-	add-highlighter window/pascal ref pascal
-	hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/pascal }
+    add-highlighter window/pascal ref pascal
+    hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/pascal }
 ]
 
 provide-module pascal %§
@@ -30,174 +30,174 @@ add-highlighter shared/pascal regions
 add-highlighter shared/pascal/code default-region group
 
 evaluate-commands %sh¶
-	# This might seem like a lot of effort to highlight routines and
-	# properties correctly but it is worth it
-
-	id='([_a-zA-Z][\w]{,126})\s*' # identifier for variables etc.
-	id2="(?:$id\.)?$id(?:<.*?>)?" # (module|type).id
-	id4="(?:$id\.)?(?:$id\.)?(?:$id\.)?$id" # type.type.type.id
-	type=":\s*(specialize\s+)?(?:(array\s+of\s+)?$id2)" # 1:attribute 2:keyword 3:module 4:type
-
-	cat <<-EOF
-		# routine without parameters
-		add-highlighter shared/pascal/code/simple_routine regex \
-			"\b(?i)(function|procedure|constructor|destructor|operator)\s+$id4(?:$type)?" \
-			2:type 3:type 4:type 5:function 6:attribute 7:keyword 8:module 9:type
-		add-highlighter shared/pascal/simple_property region \
-			"\b(?i)property\s+$id2:"  ";" group
-
-		# routine with parameters
-		add-highlighter shared/pascal/routine region \
-			"\b(?i)(function|procedure|constructor|destructor|operator)(\s+$id4)?\s*(<.*?>)?\s*\("  "\).*?;" regions
-		add-highlighter shared/pascal/property region \
-			"\b(?i)property\s+$id4\["  "\].*?;" regions
-
-		add-highlighter shared/pascal/routine/parameters  region -recurse \( \( \) regions
-		add-highlighter shared/pascal/property/parameters region -recurse \[ \[ \] regions
-	EOF
-
-	# Used to highlight "var1, var2, var3, var4 : type" declarations
-	x="(?:$id,\s*)?"
-
-	for r in property routine; do
-		cat <<-EOF
-			add-highlighter shared/pascal/$r/parameters/default default-region group
-			add-highlighter shared/pascal/$r/parameters/default/ regex \
-				"(?i)(?:(constref|const|var|out|univ)\s+)?$x$x$x$x$x$id(?:$type)?" \
-				1:attribute 2:variable 3:variable 4:variable 5:variable 6:variable 7:variable 8:attribute 9:keyword 10:module 11:type
-			add-highlighter shared/pascal/$r/default default-region group
-		EOF
-	done
-
-	cat <<-EOF
-		add-highlighter shared/pascal/routine/default/ regex \
-			"\b(?i)(function|procedure|constructor|destructor|operator)(?:\s+$id4)?" \
-			1:keyword 2:type 3:type 4:type 5:function
-		add-highlighter shared/pascal/routine/default/return_type regex \
-			"(?i)$type" 1:attribute 2:keyword 3:module 4:type
-		add-highlighter shared/pascal/routine/default/ regex \
-			"(?i)(of\s+object|is\s+nested)" 1:keyword
-	EOF
-
-	for r in property/default simple_property; do
-		cat <<-EOF
-			add-highlighter shared/pascal/$r/ regex "\b(?i)(property)" 1:keyword
-			add-highlighter shared/pascal/$r/type regex ":\s*$id" 1:type
-
-			# https://www.freepascal.org/docs-html/ref/refsu33.html
-			add-highlighter shared/pascal/$r/specifier regex \
-				"\b(?i)(index|read|write|implements|(no)?default|stored)\b" 0:attribute
-		EOF
-	done
-
-	for r in pascal pascal/routine pascal/routine/parameters pascal/property; do
-		cat <<-EOF
-			# Example string: 'You''re welcome!'
-			add-highlighter shared/$r/string region \
-				-recurse %{(?<!')('')+(?!')} %{'} %{'(?!')|\$} group
-			add-highlighter shared/$r/string/ fill string
-			add-highlighter shared/$r/string/escape regex "''" 0:+b
-
-			add-highlighter shared/$r/directive region \{\\$[a-zA-Z] \} fill meta
-
-			# comments (https://www.freepascal.org/docs-html/ref/refse2.html)
-			add-highlighter shared/$r/comment_old region -recurse \(\* \(\* \*\) fill comment
-			add-highlighter shared/$r/comment_new region -recurse \{ \{  \} fill comment
-			add-highlighter shared/$r/comment_oneline region // $ fill comment
-		EOF
-	done
-
-
-	# The types "string" and "file", the value "nil", and the modifiers
-	# "bitpacked" and "packed" are not included.
-	reserved='and array as asm begin case class const constructor cppclass
-	          destructor dispinterface div do downto else end except exports
-	          finalization finally for function goto if implementation in
-	          inherited initialization interface is label library mod not
-	          object of operator or otherwise procedure program property raise
-	          record repeat resourcestring set shl shr then threadvar to try
-	          type unit until uses var while with xor'
-
-	# These are not reserved words in Free Pascal, but for consistency
-	# with other programming languages are highlighted as reserved words:
-	keywords='Break Continue Exit at on package'
-	# "at" is used in Delphi, e.g. 'raise object at address'
-
-	# https://www.freepascal.org/docs-html/ref/refsu3.html and
-	# https://wiki.freepascal.org/Reserved_words
-	# "name" and "alias" are not included beacuse they produce too many
-	# false positives. Some modifiers like "index" are only highlighted in
-	# certain places.
-	modifiers='absolute abstract assembler automated bitpacked cdecl contains
-	           cppdecl cvar default deprecated dispid dynamic enumerator
-	           experimental export external far far16 final forward generic
-	           helper inline interrupt iocheck local near noreturn
-	           nostackframe oldfpccall overload override packed pascal
-	           platform private protected public published readonly register
-	           reintroduce requires safecall saveregisters softfloat specialize
-	           static stdcall strict syscall unaligned unimplemented varargs
-	           virtual winapi writeonly'
-
-	# https://wiki.freepascal.org/Category:Data_types
-	# not highlighted for consistency with not built-in types
-	types='AnsiChar AnsiString Boolean Boolean16 Boolean32 Boolean64 Buffer
-	       Byte ByteBool Cardinal Char Comp Currency Double DWord Extended
-	       Int16 Int32 Int64 Int8 Integer IUnknown LongBool LongInt Longword
-	       NativeInt NativeUInt OleVariant PAnsiChar PAnsiString PBoolean PByte
-	       PByteArray PCardinal PChar PComp PCurrency PDate PDateTime PDouble
-	       PDWord PExtended PHandle PInt64 PInteger PLongInt PLongWord Pointer
-	       PPointer PQWord PShortInt PShortString PSingle PSmallInt PString
-	       PUnicodeChar PUnicodeString PVariant PWideChar PWideString PWord
-	       PWordArray PWordBool QWord QWordBool RawBytestring Real Real48
-	       ShortInt ShortString Single SmallInt TClass TDate TDateTime Text
-	       TextFile THandle TObject TTime UInt16 UInt32 UInt8 UnicodeChar
-	       UnicodeString UTF16String UTF8String Variant WideChar WideString
-	       Word WordBool file string'
-
-	constants='False True nil MaxInt Self'
-
-	# Add the language's grammar to the static completion list
-	echo declare-option str-list static_words $reserved $keywords $modifiers \
-		$types $constants name index result constref out read write implements \
-		nodefault stored message
-
-	# Replace spaces with a pipe
-	join() { eval set -- $1; IFS='|'; echo "$*"; }
-
-	cat <<-EOF
-		add-highlighter shared/pascal/code/keywords  regex \
-			(?i)(?<!&)\b($(join "$reserved $keywords")|file\s+of)\b 0:keyword
-		add-highlighter shared/pascal/code/modifiers regex \
-			(?i)(?<!\.)\b($(join "$modifiers"))\b(?!\()|message\s+(?!:) 0:attribute
-		add-highlighter shared/pascal/code/index regex \
-			'\b(?i)(index)\s+\w+\s*;' 1:attribute
-	EOF
-
-	for r in code routine/parameters/default routine/default property/default simple_property; do
-		cat <<-EOF
-			add-highlighter shared/pascal/$r/ regex '[.:=<>@^*/+-]' 0:operator
-			add-highlighter shared/pascal/$r/constants regex \
-				\b(?i)($(join "$constants"))\b 0:value
-
-			# numbers (https://www.freepascal.org/docs-html/ref/refse6.html)
-			add-highlighter shared/pascal/$r/decimal regex \b\d+([eE][+-]?\d+)?\b 0:value
-			add-highlighter shared/pascal/$r/hex     regex \\$[\da-fA-F]+\b 0:value
-			add-highlighter shared/pascal/$r/octal   regex &[0-7]+\b 0:value
-			add-highlighter shared/pascal/$r/binary  regex \%[01]+\b 0:value
-			add-highlighter shared/pascal/$r/char    regex '#\d+\b' 0:value
-		EOF
-	done
+    # This might seem like a lot of effort to highlight routines and
+    # properties correctly but it is worth it
+
+    id='([_a-zA-Z][\w]{,126})\s*' # identifier for variables etc.
+    id2="(?:$id\.)?$id(?:<.*?>)?" # (module|type).id
+    id4="(?:$id\.)?(?:$id\.)?(?:$id\.)?$id" # type.type.type.id
+    type=":\s*(specialize\s+)?(?:(array\s+of\s+)?$id2)" # 1:attribute 2:keyword 3:module 4:type
+
+    cat <<EOF
+        # routine without parameters
+        add-highlighter shared/pascal/code/simple_routine regex \
+            "\b(?i)(function|procedure|constructor|destructor|operator)\s+$id4(?:$type)?" \
+            2:type 3:type 4:type 5:function 6:attribute 7:keyword 8:module 9:type
+        add-highlighter shared/pascal/simple_property region \
+            "\b(?i)property\s+$id2:"  ";" group
+
+        # routine with parameters
+        add-highlighter shared/pascal/routine region \
+            "\b(?i)(function|procedure|constructor|destructor|operator)(\s+$id4)?\s*(<.*?>)?\s*\("  "\).*?;" regions
+        add-highlighter shared/pascal/property region \
+            "\b(?i)property\s+$id4\["  "\].*?;" regions
+
+        add-highlighter shared/pascal/routine/parameters  region -recurse \( \( \) regions
+        add-highlighter shared/pascal/property/parameters region -recurse \[ \[ \] regions
+    EOF
+
+    # Used to highlight "var1, var2, var3, var4 : type" declarations
+    x="(?:$id,\s*)?"
+
+    for r in property routine; do
+        cat <<EOF
+            add-highlighter shared/pascal/$r/parameters/default default-region group
+            add-highlighter shared/pascal/$r/parameters/default/ regex \
+                "(?i)(?:(constref|const|var|out|univ)\s+)?$x$x$x$x$x$id(?:$type)?" \
+                1:attribute 2:variable 3:variable 4:variable 5:variable 6:variable 7:variable 8:attribute 9:keyword 10:module 11:type
+            add-highlighter shared/pascal/$r/default default-region group
+        EOF
+    done
+
+    cat <<EOF
+        add-highlighter shared/pascal/routine/default/ regex \
+            "\b(?i)(function|procedure|constructor|destructor|operator)(?:\s+$id4)?" \
+            1:keyword 2:type 3:type 4:type 5:function
+        add-highlighter shared/pascal/routine/default/return_type regex \
+            "(?i)$type" 1:attribute 2:keyword 3:module 4:type
+        add-highlighter shared/pascal/routine/default/ regex \
+            "(?i)(of\s+object|is\s+nested)" 1:keyword
+    EOF
+
+    for r in property/default simple_property; do
+        cat <<EOF
+            add-highlighter shared/pascal/$r/ regex "\b(?i)(property)" 1:keyword
+            add-highlighter shared/pascal/$r/type regex ":\s*$id" 1:type
+
+            # https://www.freepascal.org/docs-html/ref/refsu33.html
+            add-highlighter shared/pascal/$r/specifier regex \
+                "\b(?i)(index|read|write|implements|(no)?default|stored)\b" 0:attribute
+        EOF
+    done
+
+    for r in pascal pascal/routine pascal/routine/parameters pascal/property; do
+        cat <<EOF
+            # Example string: 'You''re welcome!'
+            add-highlighter shared/$r/string region \
+                -recurse %{(?<!')('')+(?!')} %{'} %{'(?!')|\$} group
+            add-highlighter shared/$r/string/ fill string
+            add-highlighter shared/$r/string/escape regex "''" 0:+b
+
+            add-highlighter shared/$r/directive region \{\\$[a-zA-Z] \} fill meta
+
+            # comments (https://www.freepascal.org/docs-html/ref/refse2.html)
+            add-highlighter shared/$r/comment_old region -recurse \(\* \(\* \*\) fill comment
+            add-highlighter shared/$r/comment_new region -recurse \{ \{  \} fill comment
+            add-highlighter shared/$r/comment_oneline region // $ fill comment
+        EOF
+    done
+
+
+    # The types "string" and "file", the value "nil", and the modifiers
+    # "bitpacked" and "packed" are not included.
+    reserved='and array as asm begin case class const constructor cppclass
+              destructor dispinterface div do downto else end except exports
+              finalization finally for function goto if implementation in
+              inherited initialization interface is label library mod not
+              object of operator or otherwise procedure program property raise
+              record repeat resourcestring set shl shr then threadvar to try
+              type unit until uses var while with xor'
+
+    # These are not reserved words in Free Pascal, but for consistency
+    # with other programming languages are highlighted as reserved words:
+    keywords='Break Continue Exit at on package'
+    # "at" is used in Delphi, e.g. 'raise object at address'
+
+    # https://www.freepascal.org/docs-html/ref/refsu3.html and
+    # https://wiki.freepascal.org/Reserved_words
+    # "name" and "alias" are not included beacuse they produce too many
+    # false positives. Some modifiers like "index" are only highlighted in
+    # certain places.
+    modifiers='absolute abstract assembler automated bitpacked cdecl contains
+               cppdecl cvar default deprecated dispid dynamic enumerator
+               experimental export external far far16 final forward generic
+               helper inline interrupt iocheck local near noreturn
+               nostackframe oldfpccall overload override packed pascal
+               platform private protected public published readonly register
+               reintroduce requires safecall saveregisters softfloat specialize
+               static stdcall strict syscall unaligned unimplemented varargs
+               virtual winapi writeonly'
+
+    # https://wiki.freepascal.org/Category:Data_types
+    # not highlighted for consistency with not built-in types
+    types='AnsiChar AnsiString Boolean Boolean16 Boolean32 Boolean64 Buffer
+           Byte ByteBool Cardinal Char Comp Currency Double DWord Extended
+           Int16 Int32 Int64 Int8 Integer IUnknown LongBool LongInt Longword
+           NativeInt NativeUInt OleVariant PAnsiChar PAnsiString PBoolean PByte
+           PByteArray PCardinal PChar PComp PCurrency PDate PDateTime PDouble
+           PDWord PExtended PHandle PInt64 PInteger PLongInt PLongWord Pointer
+           PPointer PQWord PShortInt PShortString PSingle PSmallInt PString
+           PUnicodeChar PUnicodeString PVariant PWideChar PWideString PWord
+           PWordArray PWordBool QWord QWordBool RawBytestring Real Real48
+           ShortInt ShortString Single SmallInt TClass TDate TDateTime Text
+           TextFile THandle TObject TTime UInt16 UInt32 UInt8 UnicodeChar
+           UnicodeString UTF16String UTF8String Variant WideChar WideString
+           Word WordBool file string'
+
+    constants='False True nil MaxInt Self'
+
+    # Add the language's grammar to the static completion list
+    echo declare-option str-list static_words $reserved $keywords $modifiers \
+        $types $constants name index result constref out read write implements \
+        nodefault stored message
+
+    # Replace spaces with a pipe
+    join() { eval set -- $1; IFS='|'; echo "$*"; }
+
+    cat <<EOF
+        add-highlighter shared/pascal/code/keywords  regex \
+            (?i)(?<!&)\b($(join "$reserved $keywords")|file\s+of)\b 0:keyword
+        add-highlighter shared/pascal/code/modifiers regex \
+            (?i)(?<!\.)\b($(join "$modifiers"))\b(?!\()|message\s+(?!:) 0:attribute
+        add-highlighter shared/pascal/code/index regex \
+            '\b(?i)(index)\s+\w+\s*;' 1:attribute
+    EOF
+
+    for r in code routine/parameters/default routine/default property/default simple_property; do
+        cat <<EOF
+            add-highlighter shared/pascal/$r/ regex '[.:=<>@^*/+-]' 0:operator
+            add-highlighter shared/pascal/$r/constants regex \
+                \b(?i)($(join "$constants"))\b 0:value
+
+            # numbers (https://www.freepascal.org/docs-html/ref/refse6.html)
+            add-highlighter shared/pascal/$r/decimal regex \b\d+([eE][+-]?\d+)?\b 0:value
+            add-highlighter shared/pascal/$r/hex     regex \\$[\da-fA-F]+\b 0:value
+            add-highlighter shared/pascal/$r/octal   regex &[0-7]+\b 0:value
+            add-highlighter shared/pascal/$r/binary  regex \%[01]+\b 0:value
+            add-highlighter shared/pascal/$r/char    regex '#\d+\b' 0:value
+        EOF
+    done
 ¶
 
 define-command -hidden pascal-indent-on-new-line %{
-	evaluate-commands -no-hooks -draft -itersel %{
-		# preserve previous line indent
-		try %{ execute-keys -draft <semicolon> K <a-&> }
-		# cleanup trailing whitespaces from previous line
-		try %{ execute-keys -draft k <a-x> s \h+$ <ret> d }
-		# indent after certain keywords
-		try %{ execute-keys -draft k<a-x><a-k>(?i)(asm|begin|const|else|except|exports|finalization|finally|label|of|otherwise|private|property|public|protected|published|record|repeat|resourcestring|threadvar|try|type|uses|var|:)\h*$<ret>j<a-gt> }
-	}
+    evaluate-commands -no-hooks -draft -itersel %{
+        # preserve previous line indent
+        try %{ execute-keys -draft <semicolon> K <a-&> }
+        # cleanup trailing whitespaces from previous line
+        try %{ execute-keys -draft k <a-x> s \h+$ <ret> d }
+        # indent after certain keywords
+        try %{ execute-keys -draft k<a-x><a-k>(?i)(asm|begin|const|else|except|exports|finalization|finally|label|of|otherwise|private|property|public|protected|published|record|repeat|resourcestring|threadvar|try|type|uses|var|:)\h*$<ret>j<a-gt> }
+    }
 }
 §