. This is intended to be
- used when the cursor is between and
in insert mode and you
- want to start a new paragraph without having to move the cursor.
- *i_;pr* *v_;pr* *n_;pr*
-;pr Preformatted text (
). (|n_;|)
- *i_;qu* *v_;qu* *n_;qu*
-;qu Quoted text (). (|n_;|)
- *i_;sk* *v_;sk* *n_;sk*
-;sk Strike-through (|
). (|n_;|)
- *i_;td* *v_;td* *n_;td*
-;td Table data (column element) ( | ). (|n_;|)
- *i_;th* *v_;th* *n_;th*
-;th Table column header ( | ). (|n_;|)
-
- *html-frames*
- *i_;fs* *v_;fs* *n_;fs*
-;fs Frame layout (). (|n_;|)
- *i_;fr* *v_;fr* *n_;fr*
-;fr Frame source (). (|n_;|)
- *i_;nf* *v_;nf* *n_;nf*
-;nf Text to display if for a browser that can not display frames
- (<![CDATA[<CR>]]>). (|n_;|)
- *i_;if* *v_;if* *n_;if*
-;if Inline frame (). (|n_;|)
-
- *html-forms*
- *i_;fm* *v_;fm* *n_;fm*
-;fm Form (). (|n_;|)
- *i_;bu* *v_;bu* *n_;bu*
-;bu Form button (). Visual mode puts
- the selected text VALUE="here". (|n_;|)
- *i_;ch* *v_;ch* *n_;ch*
-;ch Form check box (). Visual
- mode puts the selected text VALUE="here". (|n_;|)
- *i_;ra* *v_;ra* *n_;ra*
-;ra Form radio button (). Visual mode
- puts the selected text VALUE="here". (|n_;|)
- *i_;hi* *v_;hi* *n_;hi*
-;hi Hidden form data (). Visual mode
- puts the selected text VALUE="here". (|n_;|)
- *i_;pa* *v_;pa* *n_;pa*
-;pa Form password input field (). Visual mode puts the selected text VALUE="here". (|n_;|)
- *i_;te* *v_;te* *n_;te*
-;te Form text input field ().
- Visual mode puts the selected text VALUE="here". (|n_;|)
- *i_;fi* *v_;fi* *n_;fi*
-;fi Form file input field ().
- Visual mode puts the selected text VALUE="here". (|n_;|)
- *i_;se* *v_;se* *n_;se*
-;se Form selection box (). Visual mode puts
- the selected text . (|n_;|)
- *i_;ms* *v_;ms* *n_;ms*
-;ms Form multiple selection box ().
- Visual mode puts the selected text
- . (|n_;|)
- *i_;op* *v_;op* *n_;op*
-;op Form selection option (). (|n_;|)
- *i_;og* *v_;og* *n_;og*
-;og Form option group (). Visual mode
- puts the selected text .
- (|n_;|)
- *i_;tx* *v_;tx* *n_;tx*
-;tx Form text input area (). Visual mode puts the selected text
- . (|n_;|)
- *i_;su*
-;su Form submit button ().
- *i_;re*
-;re Form reset button ().
- *i_;la* *v_;la* *n_;la*
-;la Form element label (). Visual mode puts the
- visually selected text and positions the
- cursor on the second ". (|n_;|)
- *v_;lA* *n_;lA*
-;lA The same as |;la| but puts the cursor and
- places the cursor on the < of . (|n_;|)
-
-==============================================================================
-5. Mappings for &...; Codes *character-codes* *character-entities*
-
-A number of mappings have been defined to allow insertion of special
-characters into the HTML buffer. These are known as characters entities.
-
- *n_;&* *v_;&*
-;& This mapping converts the motion or visually selected characters to
- their &#...; entities, where "..." is equivalent to the ASCII decimal
- representation. For example, "foo bar" would become
- "foo bar". (See |i_;&|) (|n_;|)
-
- (Note that the "&" in this mapping is not translated to whatever
- |g:html_map_entity_leader| is set to.)
- *n_;%* *v_;%*
-;% This mapping converts the motion or visually selected characters to
- their %XX hexadecimal string for URIs. For example, "foo bar" would
- become "%66%6F%6F%20%62%61%72". (|n_;|)
-
-Note: Previously the ;& and ;% normal mode mappings didn't require a motion
-and operated on the character "under" the cursor. This was changed for
-multiple reasons. Use ;&l or ;%l to emulate the old behavior.
-
- *n_;^* *v_;^*
-;^ This mapping will decode the &#...; and %XX elements of the motion or
- visually selected characters their actual characters. (|n_;|)
-
-
-The following mappings work in insert mode only.
-
-Note that you can change the leader character for these mappings from '&' to
-another character of your preference. See |g:html_map_entity_leader|.
-
-Name: HTML: Macro:
---------------------------------------------------------------------
-Ampersand (&) & && *i_&&*
-Greater than (>) > &> *i_&>*
-Less than (<) < &< *i_&<*
- *i_&* *i_&space* *i_;*
-Space (non-breaking) &/; *i_;space*
-Quotation mark (") " &' *i_&'*
-Cent ¢ &c| *i_&cbar*
-Pound £ &# *i_&#*
-Yen ¥ &Y= *i_&Y=*
-Left Angle Quote « &2< *i_&2<*
-Right Angle Quote » &2> *i_&2>*
-Copyright © &cO *i_&cO*
-Registered ® &rO *i_&rO*
-Trademark ™ &tm *i_&tm*
-Multiply × &x *i_&x*
-Divide ÷ &/ *i_&/*
-Inverted Exclamation ¡ &! *i_&!*
-Inverted Question ¿ &? *i_&?*
-Degree ° &dg *i_&dg*
-Micro µ &mi *i_&mi*
-Paragraph ¶ &pa *i_&pa*
-Middle Dot · &. *i_&.*
-One Quarter ¼ &14 *i_&14*
-One Half ½ &12 *i_&12*
-Three Quarters ¾ &34 *i_&34*
-En dash – &n-/&2- *i_&n-* *i_&2-*
-Em dash — &m-/&--/&3- *i_&m-* *i_&--* *i_3-*
-Ellipsis … &3. *i_&3.*
-A-grave À &A` *i_&A`*
-a-grave à &a` *i_&a`*
-E-grave È &E` *i_&E`*
-e-grave è &e` *i_&e`*
-I-grave Ì &I` *i_&I`*
-i-grave ì &i` *i_&i`*
-O-grave Ò &O` *i_&O`*
-o-grave ò &o` *i_&o`*
-U-grave Ù &U` *i_&U`*
-u-grave ù &u` *i_&u`*
-A-acute Á &A' *i_&A'*
-a-acute á &a' *i_&a'*
-E-acute É &E' *i_&E'*
-e-acute é &e' *i_&e'*
-I-acute Í &I' *i_&I'*
-i-acute í &i' *i_&i'*
-O-acute Ó &O' *i_&O'*
-o-acute ó &o' *i_&o'*
-U-acute Ú &U' *i_&U'*
-u-acute ú &u' *i_&u'*
-Y-acute Ý &Y' *i_&Y'*
-y-acute ý &y' *i_&y'*
-A-tilde à &A~ *i_&A~*
-a-tilde ã &a~ *i_&a~*
-N-tilde Ñ &N~ *i_&N~*
-n-tilde ñ &n~ *i_&n~*
-O-tilde Õ &O~ *i_&O~*
-o-tilde õ &o~ *i_&o~*
-A-circumflex  &A^ *i_&A^*
-a-circumflex â &a^ *i_&a^*
-E-circumflex Ê &E^ *i_&E^*
-e-circumflex ê &e^ *i_&e^*
-I-circumflex Î &I^ *i_&I^*
-i-circumflex î &i^ *i_&i^*
-O-circumflex Ô &O^ *i_&O^*
-o-circumflex ô &o^ *i_&o^*
-U-circumflex Û &U^ *i_&U^*
-u-circumflex û &u^ *i_&u^*
-A-umlaut Ä &A" *i_&Aquote*
-a-umlaut ä &a" *i_&aquote*
-E-umlaut Ë &E" *i_&Equote*
-e-umlaut ë &e" *i_&equote*
-I-umlaut Ï &I" *i_&Iquote*
-i-umlaut ï &i" *i_&iquote*
-O-umlaut Ö &O" *i_&Oquote*
-o-umlaut ö &o" *i_&oquote*
-U-umlaut Ü &U" *i_&Uquote*
-u-umlaut ü &u" *i_&uquote*
-y-umlaut ÿ &y" *i_&yquote*
-Umlaut ¨ &" *i_"e*
-A-ring Å &Ao *i_&Ao*
-a-ring å &ao *i_&ao*
-AE-ligature Æ &AE *i_&AE*
-ae-ligature æ &ae *i_&ae*
-C-cedilla Ç &C, *i_&C,*
-c-cedilla ç &c, *i_&c,*
-O-slash Ø &O/ *i_&O/*
-o-slash ø &o/ *i_&o/*
-Szlig ß &sz *i_&sz*
-Left single arrow ← &la *i_&la*
-Right single arrow → &ra *i_&ra*
-Up single arrow ↑ &ua *i_&ua*
-Down single arrow ↓ &da *i_&da*
-Left-right single arrow ↔ &ha *i_&ha*
-Left double arrow ⇐ &lA *i_&lA*
-Right double arrow ⇒ &rA *i_&rA*
-Up double arrow ⇑ &uA *i_&uA*
-Down double arrow ⇓ &dA *i_&dA*
-Left-right double arrow ⇔ &hA *i_&hA*
-
-
-The greek alphabet:
-
-Name: HTML: Macro:
---------------------------------------------------------------------
-Upper Alpha Α &Al *i_&Al*
-Upper Beta Β &Be *i_&Be*
-Upper Gamma Γ &Ga *i_&Ga*
-Upper Delta Δ &De *i_&De*
-Upper Epsilon Ε &Ep *i_&Ep*
-Upper Zeta Ζ &Ze *i_&Ze*
-Upper Eta Η &Et *i_&Et*
-Upper Theta Θ &Th *i_&Th*
-Upper Iota Ι &Io *i_&Io*
-Upper Kappa Κ &Ka *i_&Ka*
-Upper Lambda Λ &Lm *i_&Lm*
-Upper Mu Μ &Mu *i_&Mu*
-Upper Nu Ν &Nu *i_&Nu*
-Upper Xi Ξ &Xi *i_&Xi*
-Upper Omicron Ο &Oc *i_&Oc*
-Upper Pi Π &Pi *i_&Pi*
-Upper Rho Ρ &Rh *i_&Rh*
-Upper Sigma Σ &Si *i_&Si*
-Upper Tau Τ &Ta *i_&Ta*
-Upper Upsilon Υ &Up *i_&Up*
-Upper Phi Φ &Ph *i_&Ph*
-Upper Chi Χ &Ch *i_&Ch*
-Upper Psi Ψ &Ps *i_&Ps*
-Lower alpha α &al *i_&al*
-Lower beta β &be *i_&be*
-Lower gamma γ &ga *i_&ga*
-Lower delta δ &de *i_&de*
-Lower epsilon ε &ep *i_&ep*
-Lower zeta ζ &ze *i_&ze*
-Lower eta η &et *i_&et*
-Lower theta θ &th *i_&th*
-Lower iota ι &io *i_&io*
-Lower kappa κ &ka *i_&ka*
-Lower lambda λ &lm *i_&lm*
-Lower mu μ &mu *i_&mu*
-Lower nu ν &nu *i_&nu*
-Lower xi ξ &xi *i_&xi*
-Lower omicron ο &oc *i_&oc*
-Lower pi π &pi *i_&pi*
-Lower rho ρ &rh *i_&rh*
-Lower sigma σ &si *i_&si*
-Lower sigmaf ς &sf *i_&sf*
-Lower tau τ &ta *i_&ta*
-Lower upsilon υ &up *i_&up*
-Lower phi φ &ph *i_&ph*
-Lower chi χ &ch *i_&ch*
-Lower psi ψ &ps *i_&ps*
-Lower omega ω &og *i_&og*
-Lower thetasym ϑ &ts *i_&ts*
-Lower upsih ϒ &uh *i_&uh*
-Lower piv ϖ &pv *i_&pv*
-
-==============================================================================
-6. How to Use Browser Mappings *browser-control*
-
-You can use a browser to preview your current HTML document. (See
-|html-author-notes|)
-
-
-
-For Windows: *browser-control-windows*
- *n_;db*
-;db Call the default browser on the current file.
- *n_;ie*
-;ie Call Explorer on the current file.
-
-
-For Mac OS X: *browser-control-macos*
-
-The following mappings are only defined if you have properly installed the
-browser_launcher.vim script, available with installation instructions here:
-http://www.infynity.spodzone.com/vim/HTML/
-
-Opening new tabs and windows depends on the built-in Graphic User Interface
-Scripting architecture of Mac OS X which comes disabled by default. You can
-activate GUI Scripting by selecting the checkbox "Enable access for assistive
-devices" in the Universal Access preference pane.
- *n_;db*
-;db Call the default browser on the current file.
- *n_;ff*
-;ff Make Firefox view the current file, starting Firefox if it is not
- running.
- *n_;nff*
-;nff Same as |;ff|, but start a new browser window.
- *n_;tff*
-;tff Same as |;nff|, but open a new tab.
- *n_;oa*
-;oa Make Opera view the current file, starting Opera if it is not running.
- *n_;noa*
-;noa Same as |;oa|, but start a new browser window.
- *n_;toa*
-;toa Same as |;noa|, but open a new tab.
- *n_;sf*
-;sf Make Safari view the current file, starting Safari if it is not running.
- *n_;nsf*
-;nsf Same as |;sf|, but start a new browser window.
- *n_;tsf*
-;tsf Same as |;nsf|, but open a new tab.
-
-
-For Unix: *browser-control-unix*
-
-The following mappings are only defined if you have properly installed the
-browser_launcher.vim script, available with installation instructions here:
-http://www.infynity.spodzone.com/vim/HTML/
- *n_;ff*
-;ff Make Firefox view the current file, starting Firefox if it is not
- running.
- *n_;nff*
-;nff Same as |;ff|, but start a new browser window.
- *n_;tff*
-;tff Same as |;nff|, but open a new tab.
- *n_;mo*
-;mo Make Mozilla view the current file, starting Mozilla if it is not
- running.
- *n_;nmo*
-;nmo Same as |;mo|, but start a new browser window.
- *n_;tmo*
-;tmo Same as |;nmo|, but open a new tab.
- *n_;ne*
-;ne Make Netscape view the current file, starting Netscape if it is not
- running.
- *n_;nne*
-;nne Same as |;ne|, but start a new browser window.
-
-Note: If Firefox and/or Mozilla and/or Netscape are running, these mappings
-may behave somewhat unexpectedly, due to the fact that Firefox, Mozilla and
-Netscape use the same remote protocol IDs.
- *n_;oa*
-;oa Make Opera view the current file, starting Opera if it is not running.
- *n_;noa*
-;noa Same as |;oa|, but start a new browser window.
- *n_;toa*
-;toa Same as |;noa|, but open a new tab.
- *n_;ly*
-;ly Use lynx to view the current file. This behaves like |;nly| if the Vim
- GUI is running.
- *n_;nly*
-;nly Same as |;ly|, but in a new xterm. This behaves like |;ly| if there
- is no DISPLAY environmental variable.
- *n_;w3*
-;w3 Use w3m to view the current file. This behaves like |;nw3| if the Vim
- GUI is running.
- *n_;nw3*
-;nw3 Same as |;w3|, but in a new xterm. This behaves like |;w3| if there
- is no DISPLAY environmental variable.
-
-==============================================================================
-7. Miscellaneous Extras *html-misc*
-
-
-:SetIfUnset {variable} {value} *:SetIfUnset*
-This calls |SetIfUnset()|.
-
-
-Functions used by the HTML mappings: *html-functions*
-------------------------------------
-
-HTMLencodeString({string} [, {...}]) *HTMLencodeString()*
- Returns {string} encoded into HTML entities.
-
- If the second argument is "%" the string is encoded into %XX
- hexadecimal string instead.
-
- If the second argument is "d" or "decode" the &#...; and %XX elements
- of the provided string will be decoded into their actual characters.
-
- See |n_;&| and |n_;%| for examples.
-
- Note that Unicode characters can not be safely converted to %XX hex
- strings for URIs do to a limit in the specification.
-
-HTMLgenerateTable() *HTMLgenerateTable()*
- This is normally called by the normal mapping |;ta|, but it works the
- same if called any other way.
-
-HTMLmap({maptype}, {lhs}, {rhs} [, {re-indent}]) *HTMLmap()*
- This function defines a mapping, local to the buffer and silent.
- {maptype} is any map command. {lhs} and {rhs} are equivalent to :map
- arguments, see |map.txt|. This is useful for autocommands and HTML
- filetype plugins.
-
- If {lhs} starts with "" that string will replaced with the
- contents of |g:html_map_leader|.
-
- If {lhs} starts with "" that string will replaced with the
- contents of |g:html_map_entity_leader|.
-
- Any text in {rhs} that is enclosed by [{}] will be converted to
- uppercase/lowercase according to the |g:html_tag_case| variable, and
- the [{}] markers will be removed.
-
- {re-indent} is optional, applies only to visual maps when filetype
- indenting is enabled, and should not be used for maps that enter
- insert mode. If the value is 1, the visually selected area is
- re-selected, plus one line below, and re-indented. A value of 2 does
- the same without moving down a line.
-
- The special cases of 0 means the visual mapping enters visual mode,
- and -1 tells the function not to add any special extra code to the
- visual mapping.
-
- Note that more "magic" than what's documented here gets applied to the
- mappings depending on their mode, the value of {re-indent} and so on.
-
-HTMLmapo({map}, {insert}) *HTMLmapo()*
- Creates an operator-pending mapping wrapper for {map} that calls the
- visual mapping by the same name. {insert} is a boolean value (0 or 1)
- that indicates whether to end in insert mode.
-
-HTMLnextInsertPoint([{mode}]) *HTMLnextInsertPoint()*
- This is normally called by the |;| mapping, but it works the same
- if called any other way. The {mode} argument is either 'i' or 'n'
- (default) which means |Insert| or |Normal|. In insert mode, if the
- cursor is on the start of a closing tag it places the cursor after the
- tag.
-
-HTMLtemplate() *HTMLtemplate()*
- This is normally called by the normal mapping |;html|, but it works
- the same if called any other way.
-
-SetIfUnset({variable}, {value}) *SetIfUnset()*
- This function sets {variable} to {value} if the variable is not
- already set. A {value} of "-" makes sure the variable is set with an
- empty string. This function will not work for function-local
- variables. (|l:var|)
-
-
-Author's notes: *html-author-notes*
----------------
-The Content-Type charset automatic detection value based on the 'fileencoding'
-/ 'encoding' option has a very incomplete translation table from the possible
-values that Vim uses--I could use help with this.
-
-I want to finally release a 1.0 version, but I am not willing to until I have
-browser control mappings for operating systems other than *nix. Unfortunately
-I need substantial help to create them for Windows and MacOS since I do not
-have access to either OS.
-
-I will never include mappings for certain tags, such as and
-. As far as I am concerned these tags should never have
-existed. (I disable these "features" completely in my browser.)
-
- vim:tw=78:ts=8:sw=8:ft=help:fo=tcq2:ai:
diff --git a/.vim/ftplugin/html/HTML.vim b/.vim/ftplugin/html/HTML.vim
deleted file mode 100644
index 785192c..0000000
--- a/.vim/ftplugin/html/HTML.vim
+++ /dev/null
@@ -1,3276 +0,0 @@
-" ---- Author & Copyright: ---------------------------------------------- {{{1
-"
-" Author: Christian J. Robinson
-" URL: http://www.infynity.spodzone.com/vim/HTML/
-" Last Change: September 19, 2009
-" Version: 0.36.1
-" Original Concept: Doug Renze
-"
-"
-" The original Copyright goes to Doug Renze, although nearly all of his
-" efforts have been modified in this implementation. My changes and additions
-" are Copyrighted by me, on the dates marked in the ChangeLog.
-"
-" (Doug Renze has authorized me to place the original "code" under the GPL.)
-"
-" ----------------------------------------------------------------------------
-"
-" This program is free software; you can redistribute it and/or modify it
-" under the terms of the GNU General Public License as published by the Free
-" Software Foundation; either version 2 of the License, or (at your option)
-" any later version.
-"
-" This program is distributed in the hope that it will be useful, but WITHOUT
-" ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-" FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
-" more details.
-"
-" ---- Original Author's Notes: ----------------------------------------------
-"
-" HTML Macros
-" I wrote these HTML macros for my personal use. They're
-" freely-distributable and freely-modifiable.
-"
-" If you do make any major additions or changes, or even just
-" have a suggestion for improvement, feel free to let me
-" know. I'd appreciate any suggestions.
-"
-" Credit must go to Eric Tilton, Carl Steadman and Tyler
-" Jones for their excellent book "Web Weaving" which was
-" my primary source.
-"
-" Doug Renze
-"
-" ---- TODO: ------------------------------------------------------------ {{{1
-"
-" - Specific browser mappings for Win32 with "start ..." ?
-" - Find a way to make "gv" after executing a visual mapping re-select the
-" right text. (Currently my extra code that wraps around the visual
-" mappings can tweak the selected area significantly.)
-" + This should probably exclude the newly created tags, so things like
-" visual selection ;ta, then gv and ;tr, then gv and ;td work.
-" - Add :HTMLmappingsreload/html/xhtml to the HTML menu?
-"
-" ---- RCS Information: ------------------------------------------------- {{{1
-" $Id: HTML.vim,v 1.210 2009/09/19 19:43:45 infynity Exp $
-" ----------------------------------------------------------------------- }}}1
-
-" ---- Initialization: -------------------------------------------------- {{{1
-
-if v:version < 700
- echoerr "HTML.vim no longer supports Vim versions prior to 7."
- sleep 2
- finish
-"elseif v:version < 700
-" let s:tmp =
-" \ "The HTML macros support for Vim versions prior to 7\n" .
-" \ "will be abandoned in future versions.\n\n" .
-" \ "You should seriously consider upgrading your version of Vim."
-" call confirm(s:tmp, "&Dismiss", 1, 'Warning')
-" unlet s:tmp
-endif
-
-" Save cpoptions and remove some junk that will throw us off (reset at the end
-" of the script):
-let s:savecpo = &cpoptions
-set cpoptions&vim
-
-let s:doing_internal_html_mappings = 1
-
-if ! exists("b:did_html_mappings_init")
-let b:did_html_mappings_init = 1
-
-setlocal matchpairs+=<:>
-
-" ---- Init Functions: -------------------------------------------------- {{{2
-
-" s:BoolVar() {{{3
-"
-" Given a string, test to see if a variable by that string name exists, and if
-" so, whether it's set to 1|true|yes / 0|false|no (Actually, anything not
-" listed here also returns as 1.)
-"
-" Arguments:
-" 1 - String: The name of the variable to test (not its value!)
-" Return Value:
-" 1/0
-"
-" Limitations:
-" This /will not/ work on function-local variable names.
-function! s:BoolVar(var)
- if a:var =~ '^[bgstvw]:'
- let var = a:var
- else
- let var = 'g:' . a:var
- endif
-
- if s:IsSet(var)
- execute "let varval = " . var
- return s:Bool(varval)
- else
- return 0
- endif
-endfunction
-
-" s:Bool() {{{3
-"
-" Helper to s:BoolVar() -- Test the string passed to it and return true/false
-" based on that string.
-"
-" Arguments:
-" 1 - String: 1|true|yes / 0|false|no
-" Return Value:
-" 1/0
-function! s:Bool(str)
- return a:str !~? '^no$\|^false$\|^0$\|^$'
-endfunction
-
-" SetIfUnset() {{{3
-"
-" Set a variable if it's not already set.
-"
-" Arguments:
-" 1 - String: The variable name
-" 2 ... N - String: The default value to use, "-" for the null string
-" Return Value:
-" 0 - The variable already existed
-" 1 - The variable didn't exist and was set
-" -1 - An error occurred
-function! SetIfUnset(var, ...)
- if a:var =~ '^[bgstvw]:'
- let var = a:var
- else
- let var = 'g:' . a:var
- endif
-
- if a:0 == 0
- echohl ErrorMsg
- echomsg "E119: Not enough arguments for function: SetIfUnset"
- echohl None
- return -1
- else
- let val = join(a:000, ' ')
- endif
-
- if ! s:IsSet(var)
- if val == "-"
- execute "let " . var . "= \"\""
- else
- execute "let " . var . "= val"
- endif
- return 1
- endif
- return 0
-endfunction
-
-" s:IsSet() {{{3
-"
-" Given a string, test to see if a variable by that string name exists.
-"
-" Arguments:
-" 1 - String: The variable name
-" Return Value:
-" 1/0
-function! s:IsSet(str)
- execute "let varisset = exists(\"" . a:str . "\")"
- return varisset
-endfunction "}}}3
-
-" ----------------------------------------------------------------------- }}}2
-
-command! -nargs=+ SetIfUnset call SetIfUnset()
-
-SetIfUnset g:html_bgcolor #FFFFFF
-SetIfUnset g:html_textcolor #000000
-SetIfUnset g:html_linkcolor #0000EE
-SetIfUnset g:html_alinkcolor #FF0000
-SetIfUnset g:html_vlinkcolor #990066
-SetIfUnset g:html_tag_case uppercase
-SetIfUnset g:html_map_leader ;
-SetIfUnset g:html_map_entity_leader &
-SetIfUnset g:html_default_charset iso-8859-1
-" No way to know sensible defaults here so just make sure the
-" variables are set:
-SetIfUnset g:html_authorname -
-SetIfUnset g:html_authoremail -
-
-if g:html_map_entity_leader ==# g:html_map_leader
- echohl ErrorMsg
- echomsg 'ERROR! "g:html_map_entity_leader" and "g:html_map_leader" have the same value!'
- echomsg ' Resetting "g:html_map_entity_leader" to "&".'
- echohl None
- sleep 2
- let g:html_map_entity_leader = '&'
-endif
-
-if exists('b:html_tag_case')
- let b:html_tag_case_save = b:html_tag_case
-endif
-
-" Detect whether to force uppper or lower case: {{{2
-if &filetype ==? "xhtml"
- \ || s:BoolVar('g:do_xhtml_mappings')
- \ || s:BoolVar('b:do_xhtml_mappings')
- let b:do_xhtml_mappings = 1
-else
- let b:do_xhtml_mappings = 0
-
- if s:BoolVar('g:html_tag_case_autodetect')
- \ && (line('$') != 1 || getline(1) != '')
-
- let s:found_upper = search('\C<\(\s*/\)\?\s*\u\+\_[^<>]*>', 'wn')
- let s:found_lower = search('\C<\(\s*/\)\?\s*\l\+\_[^<>]*>', 'wn')
-
- if s:found_upper && ! s:found_lower
- let b:html_tag_case = 'uppercase'
- elseif ! s:found_upper && s:found_lower
- let b:html_tag_case = 'lowercase'
- endif
-
- unlet s:found_upper s:found_lower
- endif
-endif
-
-if s:BoolVar('b:do_xhtml_mappings')
- let b:html_tag_case = 'lowercase'
-endif
-" }}}2
-
-call SetIfUnset('b:html_tag_case', g:html_tag_case)
-
-let s:thisfile = expand(":p")
-" ----------------------------------------------------------------------------
-
-
-" ---- Functions: ------------------------------------------------------- {{{1
-
-if ! exists("g:did_html_functions")
-let g:did_html_functions = 1
-
-" HTMLencodeString() {{{2
-"
-" Encode the characters in a string into their HTML &#...; representations.
-"
-" Arguments:
-" 1 - String: The string to encode.
-" 2 - String: Optional, whether to decode rather than encode the string:
-" d/decode: Decode the &#...; elements of the provided string
-" anything else: Encode the string (default)
-" Return Value:
-" String: The encoded string.
-function! HTMLencodeString(string, ...)
- let out = ''
-
- if a:0 > 0
- if a:1 =~? '^d\(ecode\)\=$'
- let out = substitute(a:string, '&#\(\d\+\);', '\=nr2char(submatch(1))', 'g')
- let out = substitute(out, '%\(\x\{2}\)', '\=nr2char("0x".submatch(1))', 'g')
- return out
- elseif a:1 == '%'
- let out = substitute(a:string, '\(.\)', '\=printf("%%%02X", char2nr(submatch(1)))', 'g')
- return out
- endif
- endif
-
- let string = split(a:string, '\zs')
- for c in string
- let out = out . '&#' . char2nr(c) . ';'
- endfor
-
- return out
-endfunction
-
-" HTMLmap() {{{2
-"
-" Define the HTML mappings with the appropriate case, plus some extra stuff.
-"
-" Arguments:
-" 1 - String: Which map command to run.
-" 2 - String: LHS of the map.
-" 3 - String: RHS of the map.
-" 4 - Integer: Optional, applies only to visual maps:
-" -1: Don't add any extra special code to the mapping.
-" 0: Mapping enters insert mode.
-" Applies only when filetype indenting is on:
-" 1: re-selects the region, moves down a line, and re-indents.
-" 2: re-selects the region and re-indents.
-" (Don't use these two arguments for maps that enter insert
-" mode!)
-let s:modes = {
- \ 'n': 'normal',
- \ 'v': 'visual',
- \ 'o': 'operator-pending',
- \ 'i': 'insert',
- \ 'c': 'command-line',
- \ 'l': 'langmap',
- \}
-function! HTMLmap(cmd, map, arg, ...)
- let mode = strpart(a:cmd, 0, 1)
- let map = substitute(a:map, '^\c', escape(g:html_map_leader, '&~\'), '')
- let map = substitute(map, '^\c', escape(g:html_map_entity_leader, '&~\'), '')
-
- if exists('s:modes[mode]') && s:MapCheck(map, mode) >= 2
- return
- endif
-
- let arg = s:ConvertCase(a:arg)
- if ! s:BoolVar('b:do_xhtml_mappings')
- let arg = substitute(arg, ' \?/>', '>', 'g')
- endif
-
- if mode == 'v'
- " If 'selection' is "exclusive" all the visual mode mappings need to
- " behave slightly differently:
- let arg = substitute(arg, "`>a\\C", "`>i=VI()", 'g')
-
- if a:0 >= 1 && a:1 < 0
- execute a:cmd . " " . map . " " . arg
- elseif a:0 >= 1 && a:1 >= 1
- execute a:cmd . " " . map . " :call TO(0)gv" . arg
- \ . ":call TO(1)m':call ReIndent(line(\"'<\"), line(\"'>\"), " . a:1 . ")``"
- elseif a:0 >= 1
- execute a:cmd . " " . map . " :call TO(0)gv" . arg
- \ . ":call TO(1)"
- else
- execute a:cmd . " " . map . " :call TO(0)gv" . arg
- \ . ":call TO(1)"
- endif
- else
- execute a:cmd . " " . map . " " . arg
- endif
-
- if exists('s:modes[mode]')
- let b:HTMLclearMappings = b:HTMLclearMappings . ':' . mode . "unmap " . map . "\"
- else
- let b:HTMLclearMappings = b:HTMLclearMappings . ":unmap " . map . "\"
- endif
-
- call s:ExtraMappingsAdd(':call HTMLmap("' . a:cmd . '", "' . escape(a:map, '"\')
- \ . '", "' . escape(a:arg, '"\') . (a:0 >= 1 ? ('", ' . a:1) : '"' ) . ')')
-endfunction
-
-" HTMLmapo() {{{2
-"
-" Define a map that takes an operator to its corresponding visual mode
-" mapping.
-"
-" Arguments:
-" 1 - String: The mapping.
-" 2 - Boolean: Whether to enter insert mode after the mapping has executed.
-" (A value greater than 1 tells the mapping not to move right one
-" character.)
-function! HTMLmapo(map, insert)
- let map = substitute(a:map, "^", g:html_map_leader, '')
-
- if s:MapCheck(map, 'o') >= 2
- return
- endif
-
- execute 'nnoremap ' . map
- \ . " :let b:htmltagaction='" . map . "'"
- \ . ":let b:htmltaginsert=" . a:insert . ""
- \ . ':set operatorfunc=WRg@'
-
- let b:HTMLclearMappings = b:HTMLclearMappings . ":nunmap " . map . "\"
- call s:ExtraMappingsAdd(':call HTMLmapo("' . escape(a:map, '"\') . '", ' . a:insert . ')')
-endfunction
-
-" s:MapCheck() {{{2
-"
-" Check to see if a mapping for a mode already exists. If there is, and
-" overriding hasn't been suppressed, print an error.
-"
-" Arguments:
-" 1 - String: The map sequence (LHS).
-" 2 - Character: The mode for the mapping.
-" Return Value:
-" 0 - No mapping was found.
-" 1 - A mapping was found, but overriding has /not/ been suppressed.
-" 2 - A mapping was found and overriding has been suppressed.
-" 3 - The mapping to be defined was suppressed by g:no_html_maps.
-"
-" (Note that suppression only works for the internal mappings.)
-function! s:MapCheck(map, mode)
- if exists('s:doing_internal_html_mappings') &&
- \ ( (exists('g:no_html_maps') && a:map =~# g:no_html_maps) ||
- \ (exists('b:no_html_maps') && a:map =~# b:no_html_maps) )
- return 3
- elseif exists('s:modes[a:mode]') && maparg(a:map, a:mode) != ''
- if s:BoolVar('g:no_html_map_override') && exists('s:doing_internal_html_mappings')
- return 2
- else
- echohl WarningMsg
- echomsg "WARNING: A mapping to \"" . a:map . "\" for " . s:modes[a:mode] . " mode has been overridden for this buffer."
- echohl None
-
- return 1
- endif
- endif
-
- return 0
-endfunction
-
-" s:WR() {{{2
-" Function set in 'operatorfunc' for mappings that take an operator:
-function! s:WR(type)
- let sel_save = &selection
- let &selection = "inclusive"
-
- if a:type == 'line'
- execute "normal `[V`]" . b:htmltagaction
- elseif a:type == 'block'
- execute "normal `[\`]" . b:htmltagaction
- else
- execute "normal `[v`]" . b:htmltagaction
- endif
-
- let &selection = sel_save
-
- if b:htmltaginsert
- if b:htmltaginsert < 2
- execute "normal \"
- endif
- startinsert
- endif
-
- " Leave these set so .-repeating of operator mappings works:
- "unlet b:htmltagaction b:htmltaginsert
-endfunction
-
-" s:ExtraMappingsAdd() {{{2
-"
-" Add to the b:HTMLextraMappings variable if necessary.
-"
-" Arguments:
-" 1 - String: The command necessary to re-define the mapping.
-function! s:ExtraMappingsAdd(arg)
- if ! exists('s:doing_internal_html_mappings') && ! exists('s:doing_extra_html_mappings')
- if ! exists('b:HTMLextraMappings')
- let b:HTMLextraMappings = ''
- endif
- let b:HTMLextraMappings = b:HTMLextraMappings . a:arg . ' |'
- endif
-endfunction
-
-" s:TO() {{{2
-"
-" Used to make sure the 'showmatch', 'indentexpr', and 'formatoptions' options
-" are off temporarily to prevent the visual mappings from causing a
-" (visual)bell or inserting improperly.
-"
-" Arguments:
-" 1 - Integer: 0 - Turn options off.
-" 1 - Turn options back on, if they were on before.
-function! s:TO(s)
- if a:s == 0
- let s:savesm=&l:sm | let &l:sm=0
- let s:saveinde=&l:inde | let &l:inde=''
- let s:savefo=&l:fo | let &l:fo=''
-
- " A trick to make leading indent on the first line of visual-line
- " selections is handled properly (turn it into a character-wise
- " selection and exclude the leading indent):
- if visualmode() ==# 'V'
- let s:visualmode_save = visualmode()
- exe "normal `<^v`>\"
- endif
- else
- let &l:sm=s:savesm | unlet s:savesm
- let &l:inde=s:saveinde | unlet s:saveinde
- let &l:fo=s:savefo | unlet s:savefo
-
- " Restore the last visual mode if it was changed:
- if exists('s:visualmode_save')
- exe "normal gv" . s:visualmode_save . "\"
- unlet s:visualmode_save
- endif
- endif
-endfunction
-
-" s:TC() {{{2
-"
-" Used to make sure the 'comments' option is off temporarily to prevent
-" certain mappings from inserting unwanted comment leaders.
-"
-" Arguments:
-" 1 - Integer: 0 - Turn options off.
-" 1 - Turn options back on, if they were on before.
-function! s:TC(s)
- if a:s == 0
- let s:savecom=&l:com | let &l:com=''
- else
- let &l:com=s:savecom | unlet s:savecom
- endif
-endfunction
-
-" s:VI() {{{2
-"
-" Used by HTMLmap() to enter insert mode in Visual mappings in the right
-" place, depending on what 'selection' is set to.
-"
-" Arguments:
-" None
-" Return Value:
-" The proper movement command based on the value of 'selection'.
-function! s:VI()
- if &selection == 'inclusive'
- return "\"
- else
- return "\`>"
- endif
-endfunction
-
-" s:ConvertCase() {{{2
-"
-" Convert special regions in a string to the appropriate case determined by
-" b:html_tag_case.
-"
-" Arguments:
-" 1 - String: The string with the regions to convert surrounded by [{...}].
-" Return Value:
-" The converted string.
-function! s:ConvertCase(str)
- if (! exists('b:html_tag_case')) || b:html_tag_case =~? 'u\(pper\(case\)\?\)\?' || b:html_tag_case == ''
- let str = substitute(a:str, '\[{\(.\{-}\)}\]', '\U\1', 'g')
- elseif b:html_tag_case =~? 'l\(ower\(case\)\?\)\?'
- let str = substitute(a:str, '\[{\(.\{-}\)}\]', '\L\1', 'g')
- else
- echohl WarningMsg
- echomsg "WARNING: b:html_tag_case = '" . b:html_tag_case . "' invalid, overriding to 'upppercase'."
- echohl None
- let b:html_tag_case = 'uppercase'
- let str = s:ConvertCase(a:str)
- endif
- return str
-endfunction
-
-" s:ReIndent() {{{2
-"
-" Re-indent a region. (Usually called by HTMLmap.)
-" Nothing happens if filetype indenting isn't enabled or 'indentexpr' is
-" unset.
-"
-" Arguments:
-" 1 - Integer: Start of region.
-" 2 - Integer: End of region.
-" 3 - Integer: 1: Add an extra line below the region to re-indent.
-" *: Don't add an extra line.
-function! s:ReIndent(first, last, extraline)
- " To find out if filetype indenting is enabled:
- let save_register = @x
- redir @x | silent! filetype | redir END
- let filetype_output = @x
- let @x = save_register
-
- if filetype_output =~ "indent:OFF" && &indentexpr == ''
- return
- endif
-
- " Make sure the range is in the proper order:
- if a:last >= a:first
- let firstline = a:first
- let lastline = a:last
- else
- let lastline = a:first
- let firstline = a:last
- endif
-
- " Make sure the full region to be re-indendted is included:
- if a:extraline == 1
- if firstline == lastline
- let lastline = lastline + 2
- else
- let lastline = lastline + 1
- endif
- endif
-
- execute firstline . ',' . lastline . 'norm =='
-endfunction
-
-" s:ByteOffset() {{{2
-"
-" Return the byte number of the current position.
-"
-" Arguments:
-" None
-" Return Value:
-" The byte offset
-function! s:ByteOffset()
- return line2byte(line('.')) + col('.') - 1
-endfunction
-
-" HTMLnextInsertPoint() {{{2
-"
-" Position the cursor at the next point in the file that needs data.
-"
-" Arguments:
-" 1 - Character: Optional, the mode the function is being called from. 'n'
-" for normal, 'i' for insert. If 'i' is used the function
-" enables an extra feature where if the cursor is on the start
-" of a closing tag it places the cursor after the tag.
-" Default is 'n'.
-" Return Value:
-" None.
-" Known problems:
-" Due to the necessity of running the search twice (why doesn't Vim support
-" cursor offset positioning in search()?) this function
-" a) won't ever position the cursor on an "empty" tag that starts on the
-" first character of the first line of the buffer
-" b) won't let the cursor "escape" from an "empty" tag that it can match on
-" the first line of the buffer when the cursor is on the first line and
-" tab is successively pressed
-function! HTMLnextInsertPoint(...)
- let saveerrmsg = v:errmsg
- let v:errmsg = ''
- let saveruler = &ruler | let &ruler=0
- let saveshowcmd = &showcmd | let &showcmd=0
- let byteoffset = s:ByteOffset()
-
- " Tab in insert mode on the beginning of a closing tag jumps us to
- " after the tag:
- if a:0 >= 1 && a:1 == 'i'
- if strpart(getline(line('.')), col('.') - 1, 2) == ''
- normal f>
- let done = 1
- else
- let done = 0
- endif
-
- if done == 1
- if col('.') == col('$') - 1
- startinsert!
- else
- normal l
- endif
-
- return
- endif
- endif
-
-
- normal 0
-
- " Running the search twice is inefficient, but it squelches error
- " messages and the second search puts my cursor where it's needed...
-
- if search('<\([^ <>]\+\)\_[^<>]*>\_s*<\/\1>\|<\_[^<>]*""\_[^<>]*>\|', 'w') == 0
- if byteoffset == -1
- go 1
- else
- execute ':go ' . byteoffset
- if a:0 >= 1 && a:1 == 'i' && col('.') == col('$') - 1
- startinsert!
- endif
- endif
- else
- normal 0
- silent! execute ':go ' . (s:ByteOffset() - 1)
- execute 'silent! normal! /<\([^ <>]\+\)\_[^<>]*>\_s*<\/\1>\|<\_[^<>]*""\_[^<>]*>\|/;/>\_s*<\|""\|/e' . "\"
-
- " Handle cursor positioning for comments and/or open+close tags spanning
- " multiple lines:
- if getline('.') =~ ''
- execute "normal F\"
- elseif getline('.') =~ '^ *-->' && getline(line('.')-1) =~ '' && getline(line('.')-1) =~ '^ *$'
- normal k$
- elseif getline('.') =~ '^ *<\/[^<>]\+>' && getline(line('.')-1) =~ '^ *$'
- normal k$
- endif
-
- call histdel('search', -1)
- let @/ = histget('search', -1)
- endif
-
- let v:errmsg = saveerrmsg
- let &ruler = saveruler
- let &showcmd = saveshowcmd
-endfunction
-
-" s:tag() {{{2
-"
-" Causes certain tags (such as bold, italic, underline) to be closed then
-" opened rather than opened then closed where appropriate, if syntax
-" highlighting is on.
-"
-" Arguments:
-" 1 - String: The tag name.
-" 2 - Character: The mode:
-" 'i' - Insert mode
-" 'v' - Visual mode
-" Return Value:
-" The string to be executed to insert the tag.
-
-" s:smarttags[tag][mode][open/close] = keystrokes {{{
-" tag - The literal tag, without the <>'s
-" mode - i = insert, v = visual
-" (no "o", because o-mappings invoke visual mode)
-" open/close - c = When inside an equivalent tag, close then open it
-" o = When not inside an equivalent tag
-" keystrokes - The mapping keystrokes to execute
-let s:smarttags = {}
-let s:smarttags['i'] = {
- \ 'i': {
- \ 'o': "<[{I>\F<",
- \ 'c': "<[{/I>\F<",
- \ },
- \ 'v': {
- \ 'o': "`>a\`<<[{I}]>",
- \ 'c': "`>a<[{I}]>\`<",
- \ }
- \ }
-
-let s:smarttags['em'] = {
- \ 'i': {
- \ 'o': "<[{EM>\F<",
- \ 'c': "<[{/EM>\F<",
- \ },
- \ 'v': {
- \ 'o': "`>a\`<<[{EM}]>",
- \ 'c': "`>a<[{EM}]>\`<",
- \ }
- \ }
-
-let s:smarttags['b'] = {
- \ 'i': {
- \ 'o': "<[{B>\F<",
- \ 'c': "<[{/B>\F<",
- \},
- \ 'v': {
- \ 'o': "`>a\`<<[{B}]>",
- \ 'c': "`>a<[{B}]>\`<",
- \ }
- \ }
-
-let s:smarttags['strong'] = {
- \ 'i': {
- \ 'o': "<[{STRONG>\F<",
- \ 'c': "<[{/STRONG>\F<",
- \},
- \ 'v': {
- \ 'o': "`>a\`<<[{STRONG}]>",
- \ 'c': "`>a<[{STRONG}]>\`<",
- \ }
- \ }
-
-let s:smarttags['u'] = {
- \ 'i': {
- \ 'o': "<[{U>\F<",
- \ 'c': "<[{/U>\F<",
- \},
- \ 'v': {
- \ 'o': "`>a\`<<[{U}]>",
- \ 'c': "`>a<[{U}]>\`<",
- \ }
- \ }
-
-let s:smarttags['comment'] = {
- \ 'i': {
- \ 'o': "\F ",
- \ 'c': " -->\`<",
- \ }
- \ }
-" }}}
-
-function! s:tag(tag, mode)
- let attr=synIDattr(synID(line('.'), col('.') - 1, 1), "name")
- if ( a:tag == 'i' && attr =~? 'italic' )
- \ || ( a:tag == 'em' && attr =~? 'italic' )
- \ || ( a:tag == 'b' && attr =~? 'bold' )
- \ || ( a:tag == 'strong' && attr =~? 'bold' )
- \ || ( a:tag == 'u' && attr =~? 'underline' )
- \ || ( a:tag == 'comment' && attr =~? 'comment' )
- let ret=s:ConvertCase(s:smarttags[a:tag][a:mode]['c'])
- else
- let ret=s:ConvertCase(s:smarttags[a:tag][a:mode]['o'])
- endif
- if a:mode == 'v'
- " If 'selection' is "exclusive" all the visual mode mappings need to
- " behave slightly differently:
- let ret = substitute(ret, "`>a\\C", "`>i" . s:VI(), 'g')
- endif
- return ret
-endfunction
-
-" s:DetectCharset() {{{2
-"
-" Detects the HTTP-EQUIV Content-Type charset based on Vim's current
-" encoding/fileencoding.
-"
-" Arguments:
-" None
-" Return Value:
-" The value for the Content-Type charset based on 'fileencoding' or
-" 'encoding'.
-
-" TODO: This table needs to be expanded:
-let s:charsets = {}
-let s:charsets['latin1'] = 'iso-8859-1'
-let s:charsets['utf_8'] = 'UTF-8'
-let s:charsets['utf_16'] = 'UTF-16'
-let s:charsets['shift_jis'] = 'Shift_JIS'
-let s:charsets['euc_jp'] = 'EUC-JP'
-let s:charsets['cp950'] = 'Big5'
-let s:charsets['big5'] = 'Big5'
-
-function! s:DetectCharset()
-
- if exists("g:html_charset")
- return g:html_charset
- endif
-
- if &fileencoding != ''
- let enc=tolower(&fileencoding)
- else
- let enc=tolower(&encoding)
- endif
-
- " The iso-8859-* encodings are valid for the Content-Type charset header:
- if enc =~? '^iso-8859-'
- return enc
- endif
-
- let enc=substitute(enc, '\W', '_', 'g')
-
- if s:charsets[enc] != ''
- return s:charsets[enc]
- endif
-
- return g:html_default_charset
-endfunction
-
-" HTMLgenerateTable() {{{2
-"
-" Interactively creates a table.
-"
-" Arguments:
-" None
-" Return Value:
-" None
-function! HTMLgenerateTable()
- let byteoffset = s:ByteOffset()
-
- let rows = inputdialog("Number of rows: ") + 0
- let columns = inputdialog("Number of columns: ") + 0
-
- if ! (rows > 0 && columns > 0)
- echo "Rows and columns must be integers."
- return
- endif
-
- let border = inputdialog("Border width of table [none]: ") + 0
-
- if border
- execute s:ConvertCase("normal o<[{TABLE BORDER}]=" . border . ">\")
- else
- execute s:ConvertCase("normal o<[{TABLE}]>\")
- endif
-
- for r in range(rows)
- execute s:ConvertCase("normal o<[{TR}]>\")
-
- for c in range(columns)
- execute s:ConvertCase("normal o<[{TD}]>\\")
- endfor
-
- execute s:ConvertCase("normal o\")
- endfor
-
- execute s:ConvertCase("normal o\")
-
- execute ":go " . (byteoffset <= 0 ? 1 : byteoffset)
-
- normal jjj^
-
-endfunction
-
-" s:MappingsControl() {{{2
-"
-" Disable/enable all the mappings defined by HTMLmap()/HTMLmapo().
-"
-" Arguments:
-" 1 - String: Whether to disable or enable the mappings:
-" d/disable: Clear the mappings
-" e/enable: Redefine the mappings
-" r/reload: Completely reload the script
-" h/html: Reload the mapppings in HTML mode
-" x/xhtml: Reload the mapppings in XHTML mode
-" Return Value:
-" None
-silent! function! s:MappingsControl(dowhat)
- if ! exists('b:did_html_mappings_init')
- echohl ErrorMsg
- echomsg "The HTML mappings were not sourced for this buffer."
- echohl None
- return
- endif
-
- if b:did_html_mappings_init < 0
- unlet b:did_html_mappings_init
- endif
-
- if a:dowhat =~? '^d\(isable\)\=\|off$'
- if exists('b:did_html_mappings')
- silent execute b:HTMLclearMappings
- unlet b:did_html_mappings
- if exists("g:did_html_menus")
- call s:MenuControl('disable')
- endif
- elseif ! exists('s:quiet_errors')
- echohl ErrorMsg
- echomsg "The HTML mappings are already disabled."
- echohl None
- endif
- elseif a:dowhat =~? '^e\(nable\)\=\|on$'
- if exists('b:did_html_mappings')
- echohl ErrorMsg
- echomsg "The HTML mappings are already enabled."
- echohl None
- else
- execute "source " . s:thisfile
- if exists('b:HTMLextraMappings')
- let s:doing_extra_html_mappings = 1
- silent execute b:HTMLextraMappings
- unlet s:doing_extra_html_mappings
- endif
- endif
- elseif a:dowhat =~? '^r\(eload\|einit\)\=$'
- let s:quiet_errors = 1
- HTMLmappings off
- let b:did_html_mappings_init=-1
- silent! unlet g:did_html_menus g:did_html_toolbar g:did_html_functions
- silent! unmenu HTML
- silent! unmenu! HTML
- HTMLmappings on
- unlet s:quiet_errors
- elseif a:dowhat =~? '^h\(tml\)\=$'
- if exists('b:html_tag_case_save')
- let b:html_tag_case = b:html_tag_case_save
- endif
- let b:do_xhtml_mappings=0
- HTMLmappings off
- let b:did_html_mappings_init=-1
- HTMLmappings on
- elseif a:dowhat =~? '^x\(html\)\=$'
- let b:do_xhtml_mappings=1
- HTMLmappings off
- let b:did_html_mappings_init=-1
- HTMLmappings on
- else
- echohl ErrorMsg
- echomsg "Invalid argument: " . a:dowhat
- echohl None
- endif
-endfunction
-
-command! -nargs=1 HTMLmappings call MappingsControl()
-
-
-" s:MenuControl() {{{2
-"
-" Disable/enable the HTML menu and toolbar.
-"
-" Arguments:
-" 1 - String: Optional, Whether to disable or enable the mappings:
-" empty: Detect which to do
-" "disable": Disable the menu and toolbar
-" "enable": Enable the menu and toolbar
-" Return Value:
-" None
-function! s:MenuControl(...)
- if a:0 > 0
- if a:1 !~? '^\(dis\|en\)able$'
- echoerr "Invalid argument: " . a:1
- return
- else
- let bool = a:1
- endif
- else
- let bool = ''
- endif
-
- if bool == 'disable' || ! exists("b:did_html_mappings")
- amenu disable HTML
- amenu disable HTML.*
- if exists('g:did_html_toolbar')
- amenu disable ToolBar.*
- amenu enable ToolBar.Open
- amenu enable ToolBar.Save
- amenu enable ToolBar.SaveAll
- amenu enable ToolBar.Cut
- amenu enable ToolBar.Copy
- amenu enable ToolBar.Paste
- amenu enable ToolBar.Find
- amenu enable ToolBar.Replace
- endif
- if exists('b:did_html_mappings_init') && ! exists('b:did_html_mappings')
- amenu enable HTML
- amenu disable HTML.Control.*
- amenu enable HTML.Control
- amenu enable HTML.Control.Enable\ Mappings
- amenu enable HTML.Control.Reload\ Mappings
- endif
- elseif bool == 'enable' || exists("b:did_html_mappings_init")
- amenu enable HTML
- if exists("b:did_html_mappings")
- amenu enable HTML.*
- amenu enable HTML.Control.*
- amenu disable HTML.Control.Enable\ Mappings
-
- if s:BoolVar('b:do_xhtml_mappings')
- amenu disable HTML.Control.Switch\ to\ XHTML\ mode
- amenu enable HTML.Control.Switch\ to\ HTML\ mode
- else
- amenu enable HTML.Control.Switch\ to\ XHTML\ mode
- amenu disable HTML.Control.Switch\ to\ HTML\ mode
- endif
-
- if exists('g:did_html_toolbar')
- amenu enable ToolBar.*
- endif
- else
- amenu enable HTML.Control.Enable\ Mappings
- endif
- endif
-endfunction
-
-" s:ShowColors() {{{2
-"
-" Create a window to display the HTML colors, highlighted
-"
-" Arguments:
-" None
-" Return Value:
-" None
-function! s:ShowColors(...)
- if ! exists('g:did_html_menus')
- echohl ErrorMsg
- echomsg "The HTML menu was not created."
- echohl None
- return
- endif
-
- if ! exists('b:did_html_mappings_init')
- echohl ErrorMsg
- echomsg "Not in an html buffer."
- echohl None
- return
- endif
-
- let curbuf = bufnr('%')
- let maxw = 0
-
- silent new [HTML\ Colors\ Display]
- setlocal buftype=nofile noswapfile bufhidden=wipe
-
- for key in keys(s:color_list)
- if strlen(key) > maxw
- let maxw = strlen(key)
- endif
- endfor
-
- let col = 0
- let line = ''
- for key in sort(keys(s:color_list))
- let col+=1
-
- let line.=repeat(' ', maxw - strlen(key)) . key . ' = ' . s:color_list[key]
-
- if col >= 2
- call append('$', line)
- let line = ''
- let col = 0
- else
- let line .= ' '
- endif
-
- let key2 = substitute(key, ' ', '', 'g')
-
- execute 'syntax match hc_' . key2 . ' /' . s:color_list[key] . '/'
- execute 'highlight hc_' . key2 . ' guibg=' . s:color_list[key]
- endfor
-
- if line != ''
- call append('$', line)
- endif
-
- call append(0, [
- \'+++ q = quit = page down b = page up +++',
- \'+++ = Go to next color +++',
- \'+++ or = Select color under cursor +++',
- \])
- exe 0
- exe '1,3center ' . ((maxw + 13) * 2)
-
- setlocal nomodifiable
-
- syntax match hc_colorsKeys =^\%<4l\s*+++ .\+ +++$=
- highlight link hc_colorsKeys Comment
-
- wincmd _
-
- noremap q c
- inoremap q c
- noremap
- inoremap
- noremap b
- inoremap b
- noremap :call search('[A-Za-z][A-Za-z ]\+ = #\x\{6\}')
- inoremap :call search('[A-Za-z][A-Za-z ]\+ = #\x\{6\}')
-
- if a:0 >= 1
- let ext = ', "' . escape(a:1, '"') . '"'
- else
- let ext = ''
- endif
-
- execute 'noremap :call ColorSelect(' . curbuf . ext . ')'
- execute 'inoremap :call ColorSelect(' . curbuf . ext . ')'
- execute 'noremap <2-leftmouse> :call ColorSelect(' . curbuf . ext . ')'
- execute 'inoremap <2-leftmouse> :call ColorSelect(' . curbuf . ext . ')'
-endfunction
-
-function! s:ColorSelect(bufnr, ...)
- let line = getline('.')
- let col = col('.')
- let color = substitute(line, '.\{-\}\%<' . (col + 1) . 'c\([A-Za-z][A-Za-z ]\+ = #\x\{6\}\)\%>' . col . 'c.*', '\1', '')
-
- if color == line
- return ''
- endif
-
- let colora = split(color, ' = ')
-
- close
- if bufwinnr(a:bufnr) == -1
- exe 'buffer ' . a:bufnr
- else
- exe a:bufnr . 'wincmd w'
- endif
-
- if a:0 >= 1
- let which = a:1
- else
- let which = 'i'
- endif
-
- exe 'normal ' . which . colora[1]
- stopinsert
- echo color
-endfunction
-
-function! s:ShellEscape(str) " {{{2
- if exists('*shellescape')
- return shellescape(a:str)
- else
- if has('unix')
- return "'" . substitute(a:str, "'", "'\\\\''", 'g') . "'"
- else
- " Don't know how to properly escape for 'doze, so don't bother:
- return a:str
- endif
- endif
-endfunction
-
-" ---- Template Creation Stuff: {{{2
-
-" HTMLtemplate() {{{3
-"
-" Determine whether to insert the HTML template.
-"
-" Arguments:
-" None
-" Return Value:
-" 0 - The cursor is not on an insert point.
-" 1 - The cursor is on an insert point.
-function! HTMLtemplate()
- let ret = 0
- let save_ruler = &ruler
- let save_showcmd = &showcmd
- set noruler noshowcmd
- if line('$') == 1 && getline(1) == ''
- let ret = s:HTMLtemplate2()
- else
- let YesNoOverwrite = confirm("Non-empty file.\nInsert template anyway?", "&Yes\n&No\n&Overwrite", 2, "W")
- if YesNoOverwrite == 1
- let ret = s:HTMLtemplate2()
- elseif YesNoOverwrite == 3
- execute "1,$delete"
- let ret = s:HTMLtemplate2()
- endif
- endif
- let &ruler = save_ruler
- let &showcmd = save_showcmd
- return ret
-endfunction " }}}3
-
-" s:HTMLtemplate2() {{{3
-"
-" Actually insert the HTML template.
-"
-" Arguments:
-" None
-" Return Value:
-" 0 - The cursor is not on an insert point.
-" 1 - The cursor is on an insert point.
-function! s:HTMLtemplate2()
-
- if g:html_authoremail != ''
- let g:html_authoremail_encoded = HTMLencodeString(g:html_authoremail)
- else
- let g:html_authoremail_encoded = ''
- endif
-
- let template = ''
-
- if exists('b:html_template') && b:html_template != ''
- let template = b:html_template
- elseif exists('g:html_template') && g:html_template != ''
- let template = g:html_template
- endif
-
- if template != ''
- if filereadable(expand(template))
- silent execute "0read " . template
- else
- echohl ErrorMsg
- echomsg "Unable to insert template file: " . template
- echomsg "Either it doesn't exist or it isn't readable."
- echohl None
- return 0
- endif
- else
- 0put =b:internal_html_template
- endif
-
- if getline('$') =~ '^\s*$'
- $delete
- endif
-
- " Replace the various tokens with appropriate values:
- silent! %s/\C%authorname%/\=g:html_authorname/g
- silent! %s/\C%authoremail%/\=g:html_authoremail_encoded/g
- silent! %s/\C%bgcolor%/\=g:html_bgcolor/g
- silent! %s/\C%textcolor%/\=g:html_textcolor/g
- silent! %s/\C%linkcolor%/\=g:html_linkcolor/g
- silent! %s/\C%alinkcolor%/\=g:html_alinkcolor/g
- silent! %s/\C%vlinkcolor%/\=g:html_vlinkcolor/g
- silent! %s/\C%date%/\=strftime('%B %d, %Y')/g
- "silent! %s/\C%date\s*\([^%]\{-}\)\s*%/\=strftime(substitute(submatch(1),'\\\@DetectCharset()/g
- silent! %s/\C%vimversion%/\=strpart(v:version, 0, 1) . '.' . (strpart(v:version, 1, 2) + 0)/g
-
- go 1
-
- call HTMLnextInsertPoint('n')
- if getline('.')[col('.') - 2] . getline('.')[col('.') - 1] == '><'
- \ || (getline('.') =~ '^\s*$' && line('.') != 1)
- return 1
- else
- return 0
- endif
-
-endfunction " }}}3
-
-endif " ! exists("g:did_html_functions")
-
-let s:internal_html_template=
- \" <[{HEAD}]>\n\n" .
- \" <[{TITLE>\n\n" .
- \" <[{META NAME}]=\"Generator\" [{CONTENT}]=\"Vim %vimversion% (Vi IMproved editor; http://www.vim.org/)\" />\n" .
- \" <[{META NAME}]=\"Author\" [{CONTENT}]=\"%authorname%\" />\n" .
- \" <[{META NAME}]=\"Copyright\" [{CONTENT}]=\"Copyright (C) %date% %authorname%\" />\n" .
- \" <[{LINK REV}]=\"made\" [{HREF}]=\"mailto:%authoremail%\" />\n\n" .
- \" <[{STYLE TYPE}]=\"text/css\">\n" .
- \" \n" .
- \" \n\n" .
- \" \n" .
- \" <[{BODY BGCOLOR}]=\"%bgcolor%\"" .
- \" [{TEXT}]=\"%textcolor%\"" .
- \" [{LINK}]=\"%linkcolor%\"" .
- \" [{ALINK}]=\"%alinkcolor%\"" .
- \" [{VLINK}]=\"%vlinkcolor%\">\n\n" .
- \" <[{H1 ALIGN=\"CENTER\">\n\n" .
- \" <[{P}]>\n" .
- \" \n\n" .
- \" <[{HR WIDTH}]=\"75%\" />\n\n" .
- \" <[{P}]>\n" .
- \" Last Modified: <[{I}]>%date%\n" .
- \" \n\n" .
- \" <[{ADDRESS}]>\n" .
- \" <[{A HREF}]=\"mailto:%authoremail%\">%authorname% <%authoremail%>\n" .
- \" \n" .
- \" \n" .
- \""
-
-if s:BoolVar('b:do_xhtml_mappings')
- let b:internal_html_template = "\n" .
- \ "\n" .
- \ s:internal_html_template
-else
- let b:internal_html_template = "\n" .
- \ "<[{HTML}]>\n" .
- \ s:internal_html_template
- let b:internal_html_template = substitute(b:internal_html_template, ' />', '>', 'g')
-endif
-
-let b:internal_html_template = s:ConvertCase(b:internal_html_template)
-
-" ----------------------------------------------------------------------------
-
-endif " ! exists("b:did_html_mappings_init")
-
-
-" ---- Misc. Mappings: -------------------------------------------------- {{{1
-
-if ! exists("b:did_html_mappings")
-let b:did_html_mappings = 1
-
-let b:HTMLclearMappings = 'normal '
-
-" Make it easy to use a ; (or whatever the map leader is) as normal:
-call HTMLmap("inoremap", '' . g:html_map_leader, g:html_map_leader)
-call HTMLmap("vnoremap", '' . g:html_map_leader, g:html_map_leader, -1)
-call HTMLmap("nnoremap", '' . g:html_map_leader, g:html_map_leader)
-" Make it easy to insert a & (or whatever the entity leader is):
-call HTMLmap("inoremap", "" . g:html_map_entity_leader, g:html_map_entity_leader)
-
-if ! s:BoolVar('g:no_html_tab_mapping')
- " Allow hard tabs to be inserted:
- call HTMLmap("inoremap", "", "")
- call HTMLmap("nnoremap", "", "")
-
- " Tab takes us to a (hopefully) reasonable next insert point:
- call HTMLmap("inoremap", "", ":call HTMLnextInsertPoint('i')")
- call HTMLmap("nnoremap", "", ":call HTMLnextInsertPoint('n')")
- call HTMLmap("vnoremap", "", ":call HTMLnextInsertPoint('n')", -1)
-else
- call HTMLmap("inoremap", "", ":call HTMLnextInsertPoint('i')")
- call HTMLmap("nnoremap", "", ":call HTMLnextInsertPoint('n')")
- call HTMLmap("vnoremap", "", ":call HTMLnextInsertPoint('n')", -1)
-endif
-
-" Update an image tag's WIDTH & HEIGHT attributes (experimental!):
-runtime! MangleImageTag.vim
-if exists("*MangleImageTag")
- call HTMLmap("nnoremap", "mi", ":call MangleImageTag()")
- call HTMLmap("inoremap", "mi", ":call MangleImageTag()")
-endif
-
-call HTMLmap("nnoremap", "html", ":if HTMLtemplate() \\| startinsert \\| endif")
-
-" ----------------------------------------------------------------------------
-
-
-" ---- General Markup Tag Mappings: ------------------------------------- {{{1
-
-" SGML Doctype Command
-"call HTMLmap("nnoremap", "4", "1GO``")
-
-" SGML Doctype Command
-if ! s:BoolVar('b:do_xhtml_mappings')
- " Transitional HTML (Looser):
- call HTMLmap("nnoremap", "4", ":call append(0, '')")
- " Strict HTML:
- call HTMLmap("nnoremap", "s4", ":call append(0, '')")
-else
- " Transitional XHTML (Looser):
- call HTMLmap("nnoremap", "4", ":call append(0, '')")
- " Strict XHTML:
- call HTMLmap("nnoremap", "s4", ":call append(0, '')")
-endif
-call HTMLmap("imap", "4", "" . g:html_map_leader . "4")
-call HTMLmap("imap", "s4", "" . g:html_map_leader . "s4")
-
-" Content-Type META tag
-call HTMLmap("inoremap", "ct", "<[{META HTTP-EQUIV}]=\"Content-Type\" [{CONTENT}]=\"text/html; charset==DetectCharset()\" />")
-
-" Comment Tag
-call HTMLmap("inoremap", "cm", "