;html-ins.el     V01-10		2012 Nov 4
;
;HTML Insert functions for emacs
;
;W. Robert J. Funnell, Dept. BioMedical Engineering, McGill University
;     robert.funnell@mcgill.ca
;
;WRJF 95 Jun 11 New
;     96 Apr 21 Added functions and keystrokes for &, <, > and "
;     2001 Jun  8 Changed -quot to -dquote, added -lsquote and -rsquote
;     2001 Dec 11 Added versions of quote key sequences with q 2nd
;                 Added OElig and oelig
;                 Regrouped
;		  Added Greek characters 
;     2001 Dec 20 Added para, pound and plusmn
;     2008 Oct 31 Added left, right, up and down triangles, minus sign, en dash
;     2008 Nov  2 Added c and C with caron
;     2009 Jul 18 Changed endash to ndash
;     2011 Jan  2 Added html-ins-nbsp
;     2011 Jan 26 Added --em/strong/code/kbd/menu/sub/sup
;     2012 Apr 28 Added commands for changing modes
;     2012 Nov  4 Added scaron, Scaron, Yuml
;     2013 Sep  8 Added left/right pointers, left/right/up/down small triangles
;
(global-unset-key "\C-v")   ;free up for use as prefix
;
;Tags for styles (\C-cs commands)
;
(defun html-ins-em ()
  "Insert HTML tag <em>."
  (interactive) (insert "<em></em>")
  (backward-word)(backward-char)(backward-char))
  (global-set-key "\C-cse" 'html-ins-em)
(defun html-ins-strong ()
  "Insert HTML tag <strong>."
  (interactive) (insert "<strong></strong>")
  (backward-word)(backward-char)(backward-char))
  (global-set-key "\C-css" 'html-ins-strong)
(defun html-ins-code ()
  "Insert HTML tag <code>."
  (interactive) (insert "<code></code>")
  (backward-word)(backward-char)(backward-char))
  (global-set-key "\C-csc" 'html-ins-code)
(defun html-ins-kbd ()
  "Insert HTML tag <kbd>."
  (interactive) (insert "<kbd></kbd>")
  (backward-word)(backward-char)(backward-char))
  (global-set-key "\C-csk" 'html-ins-kbd)
(defun html-ins-menu ()
  "Insert HTML tag <span class=menu>."
  (interactive) (insert "<span class=menu></span>")
  (backward-word)(backward-char)(backward-char))
  (global-set-key "\C-csm" 'html-ins-menu)
(defun html-ins-sub ()
  "Insert HTML tag <sub>."
  (interactive) (insert "<sub></sub>")
  (backward-word)(backward-char)(backward-char))
  (global-set-key "\C-csb" 'html-ins-sub)
(defun html-ins-sup ()
  "Insert HTML tag <sup>."
  (interactive) (insert "<sup></sup>")
  (backward-word)(backward-char)(backward-char))
  (global-set-key "\C-csp" 'html-ins-sup)
;
;Modes (\C-vm commands)
;
;These are here because they use \C-v, otherwise they'd be better off in fun.el
;
  (global-set-key "\C-vm*" 'normal-mode) ;determine mode automatically
  (global-set-key "\C-vmcc" 'c-mode)
  (global-set-key "\C-vmcs" 'css-mode)
  (global-set-key "\C-vmf" 'fortran-mode)
  (global-set-key "\C-vmj" 'javascript-mode)
  (global-set-key "\C-vmh" 'html-mode)
  (global-set-key "\C-vmp" 'php-mode)
;
;Non-alphabetic symbols
;
(defun html-ins-amp ()
  "Insert HTML entity for ampersand."
  (interactive) (insert "&amp;"))
  (global-set-key "\C-v&" 'html-ins-amp)
(defun html-ins-lt ()
  "Insert HTML entity for left angle bracket."
  (interactive) (insert "&lt;"))
  (global-set-key "\C-v<" 'html-ins-lt)
(defun html-ins-gt ()
  "Insert HTML entity for right angle bracket."
  (interactive) (insert "&gt;"))
  (global-set-key "\C-v>" 'html-ins-gt)
(defun html-ins-nbsp ()
  "Insert HTML entity for nonbreaking space."
  (interactive) (insert "&nbsp;"))
  (global-set-key "\C-v " 'html-ins-nbsp)
(defun html-ins-dquote ()
  "Insert HTML entity for double quotation mark."
  (interactive) (insert "&quot;"))
  (global-set-key "\C-vq\"" 'html-ins-dquote)
  (global-set-key "\C-v\"q" 'html-ins-dquote)
(defun html-ins-lsquote ()
  "Insert HTML entity for left single quotation mark."
  (interactive) (insert "&#8216;"))
  (global-set-key "\C-vq\`" 'html-ins-lsquote)
  (global-set-key "\C-v\`q" 'html-ins-lsquote)
(defun html-ins-rsquote ()
  "Insert HTML entity for right single quotation mark."
  (interactive) (insert "&#8217;"))
  (global-set-key "\C-vq\'" 'html-ins-rsquote)
  (global-set-key "\C-v\'q" 'html-ins-rsquote)
(defun html-ins-para ()
  "Insert HTML entity for paragraph symbol."
  (interactive) (insert "&para;"))
  (global-set-key "\C-vpa" 'html-ins-para)
(defun html-ins-pound ()
  "Insert HTML entity for British pound symbol."
  (interactive) (insert "&pound;"))
  (global-set-key "\C-vpo" 'html-ins-pound)
(defun html-ins-plusminus ()
  "Insert HTML entity for plus-minus symbol."
  (interactive) (insert "&plusmn;"))
  (global-set-key "\C-vpm" 'html-ins-plusminus)
(defun html-ins-minus ()
  "Insert HTML entity for minus symbol."
  (interactive) (insert "&minus;"))
  (global-set-key "\C-v-" 'html-ins-minus)
(defun html-ins-endash ()
  "Insert HTML entity for en dash."
  (interactive) (insert "&ndash;"))
  (global-set-key "\C-v_" 'html-ins-endash)
(defun html-ins-pointer-left ()
  "Insert HTML entity for leftward-pointing pointer."
  (interactive) (insert "&#x25c4;"))
  (global-set-key "\C-vpl" 'html-ins-pointer-left)
(defun html-ins-pointer-right ()
  "Insert HTML entity for rightward-pointing pointer."
  (interactive) (insert "&#x25ba;"))
  (global-set-key "\C-vpr" 'html-ins-pointer-right)
(defun html-ins-triangle-left ()
  "Insert HTML entity for leftward-pointing triangle."
  (interactive) (insert "&#x25c0;"))
  (global-set-key "\C-vtl" 'html-ins-triangle-left)
(defun html-ins-triangle-right ()
  "Insert HTML entity for rightward-pointing triangle."
  (interactive) (insert "&#x25b6;"))
  (global-set-key "\C-vtr" 'html-ins-triangle-right)
(defun html-ins-triangle-up ()
  "Insert HTML entity for upward-pointing triangle."
  (interactive) (insert "&#x25b2;"))
  (global-set-key "\C-vtu" 'html-ins-triangle-up)
(defun html-ins-triangle-down ()
  "Insert HTML entity for downward-pointing triangle."
  (interactive) (insert "&#x25bc;"))
  (global-set-key "\C-vtd" 'html-ins-triangle-down)
(defun html-ins-smalltriangle-left ()
  "Insert HTML entity for leftward-pointing small triangle."
  (interactive) (insert "&#x25c2;"))
  (global-set-key "\C-vsl" 'html-ins-smalltriangle-left)
(defun html-ins-smalltriangle-right ()
  "Insert HTML entity for rightward-pointing small triangle."
  (interactive) (insert "&#x25b8;"))
  (global-set-key "\C-vsr" 'html-ins-smalltriangle-right)
(defun html-ins-smalltriangle-up ()
  "Insert HTML entity for upward-pointing small triangle."
  (interactive) (insert "&#x25b4;"))
  (global-set-key "\C-vsu" 'html-ins-smalltriangle-up)
(defun html-ins-smalltriangle-down ()
  "Insert HTML entity for downward-pointing small triangle."
  (interactive) (insert "&#x25be;"))
  (global-set-key "\C-vsd" 'html-ins-smalltriangle-down)
;
;Ligatures
;
(defun html-ins-AElig ()
  "Insert HTML entity AElig."
  (interactive) (insert "&AElig;"))
  (global-set-key "\C-vAE" 'html-ins-AElig)
(defun html-ins-OElig ()
  "Insert HTML entity OElig."
  (interactive) (insert "&OElig;"))
  (global-set-key "\C-vOE" 'html-ins-OElig)
(defun html-ins-aelig ()
  "Insert HTML entity aelig."
  (interactive) (insert "&aelig;"))
  (global-set-key "\C-vae" 'html-ins-aelig)
(defun html-ins-oelig ()
  "Insert HTML entity oelig."
  (interactive) (insert "&oelig;"))
  (global-set-key "\C-voe" 'html-ins-oelig)
(defun html-ins-szlig ()
  "Insert HTML entity szlig."
  (interactive) (insert "&szlig;"))
  (global-set-key "\C-vsz" 'html-ins-szlig)
  (global-set-key "\C-vss" 'html-ins-szlig)
;
;Non-Latin characters
;
(defun html-ins-ETH ()
  "Insert HTML entity ETH."
  (interactive) (insert "&ETH;"))
  (global-set-key "\C-vETH" 'html-ins-ETH)
(defun html-ins-THORN ()
  "Insert HTML entity THORN."
  (interactive) (insert "&THORN;"))
  (global-set-key "\C-vTH" 'html-ins-THORN)
(defun html-ins-eth ()
  "Insert HTML entity eth."
  (interactive) (insert "&eth;"))
  (global-set-key "\C-veth" 'html-ins-eth)
(defun html-ins-thorn ()
  "Insert HTML entity thorn."
  (interactive) (insert "&thorn;"))
  (global-set-key "\C-vth" 'html-ins-thorn)
;
;Decorated Latin characters - upper case
;
(defun html-ins-Aacute ()
  "Insert HTML entity Aacute."
  (interactive) (insert "&Aacute;"))
  (global-set-key "\C-vA'" 'html-ins-Aacute)
  (global-set-key "\C-v'A" 'html-ins-Aacute)
(defun html-ins-Acirc ()
  "Insert HTML entity Acirc."
  (interactive) (insert "&Acirc;"))
  (global-set-key "\C-vA^" 'html-ins-Acirc)
  (global-set-key "\C-v^A" 'html-ins-Acirc)
(defun html-ins-Agrave ()
  "Insert HTML entity Agrave."
  (interactive) (insert "&Agrave;"))
  (global-set-key "\C-vA`" 'html-ins-Agrave)
  (global-set-key "\C-v`A" 'html-ins-Agrave)
(defun html-ins-Aring ()
  "Insert HTML entity Aring."
  (interactive) (insert "&Aring;"))
  (global-set-key "\C-vAo" 'html-ins-Aring)
  (global-set-key "\C-voA" 'html-ins-Aring)
(defun html-ins-Atilde ()
  "Insert HTML entity Atilde."
  (interactive) (insert "&Atilde;"))
  (global-set-key "\C-vA~" 'html-ins-Atilde)
  (global-set-key "\C-v~A" 'html-ins-Atilde)
(defun html-ins-Auml ()
  "Insert HTML entity Auml."
  (interactive) (insert "&Auml;"))
  (global-set-key "\C-vA\"" 'html-ins-Auml)
  (global-set-key "\C-v\"A" 'html-ins-Auml)
(defun html-ins-Ccedil ()
  "Insert HTML entity Ccedil."
  (interactive) (insert "&Ccedil;"))
  (global-set-key "\C-vC," 'html-ins-Ccedil)
  (global-set-key "\C-v,C" 'html-ins-Ccedil)
(defun html-ins-Ccaron ()
  "Insert HTML entity Ccaron."
  (interactive) (insert "&#x010c;"))
  (global-set-key "\C-vCv" 'html-ins-Ccaron)
  (global-set-key "\C-vvC" 'html-ins-Ccaron)
(defun html-ins-Eacute ()
  "Insert HTML entity Eacute."
  (interactive) (insert "&Eacute;"))
  (global-set-key "\C-vE'" 'html-ins-Eacute)
  (global-set-key "\C-v'E" 'html-ins-Eacute)
(defun html-ins-Ecirc ()
  "Insert HTML entity Ecirc."
  (interactive) (insert "&Ecirc;"))
  (global-set-key "\C-vE^" 'html-ins-Ecirc)
  (global-set-key "\C-v^E" 'html-ins-Ecirc)
(defun html-ins-Egrave ()
  "Insert HTML entity Egrave."
  (interactive) (insert "&Egrave;"))
  (global-set-key "\C-vE`" 'html-ins-Egrave)
  (global-set-key "\C-v`E" 'html-ins-Egrave)
(defun html-ins-Euml ()
  "Insert HTML entity Euml."
  (interactive) (insert "&Euml;"))
  (global-set-key "\C-vE\"" 'html-ins-Euml)
  (global-set-key "\C-v\"E" 'html-ins-Euml)
(defun html-ins-Iacute ()
  "Insert HTML entity Iacute."
  (interactive) (insert "&Iacute;"))
  (global-set-key "\C-vI'" 'html-ins-Iacute)
  (global-set-key "\C-v'I" 'html-ins-Iacute)
(defun html-ins-Icirc ()
  "Insert HTML entity Icirc."
  (interactive) (insert "&Icirc;"))
  (global-set-key "\C-vI^" 'html-ins-Icirc)
  (global-set-key "\C-v^I" 'html-ins-Icirc)
(defun html-ins-Igrave ()
  "Insert HTML entity Igrave."
  (interactive) (insert "&Igrave;"))
  (global-set-key "\C-vI`" 'html-ins-Igrave)
  (global-set-key "\C-v`I" 'html-ins-Igrave)
(defun html-ins-Iuml ()
  "Insert HTML entity Iuml."
  (interactive) (insert "&Iuml;"))
  (global-set-key "\C-vI\"" 'html-ins-Iuml)
  (global-set-key "\C-v\"I" 'html-ins-Iuml)
(defun html-ins-Ntilde ()
  "Insert HTML entity Ntilde."
  (interactive) (insert "&Ntilde;"))
  (global-set-key "\C-vN~" 'html-ins-Ntilde)
  (global-set-key "\C-v~N" 'html-ins-Ntilde)
(defun html-ins-Oacute ()
  "Insert HTML entity Oacute."
  (interactive) (insert "&Oacute;"))
  (global-set-key "\C-vO'" 'html-ins-Oacute)
  (global-set-key "\C-v'O" 'html-ins-Oacute)
(defun html-ins-Ocirc ()
  "Insert HTML entity Ocirc."
  (interactive) (insert "&Ocirc;"))
  (global-set-key "\C-vO^" 'html-ins-Ocirc)
  (global-set-key "\C-v^O" 'html-ins-Ocirc)
(defun html-ins-Ograve ()
  "Insert HTML entity Ograve."
  (interactive) (insert "&Ograve;"))
  (global-set-key "\C-vO`" 'html-ins-Ograve)
  (global-set-key "\C-v`O" 'html-ins-Ograve)
(defun html-ins-Oslash ()
  "Insert HTML entity Oslash."
  (interactive) (insert "&Oslash;"))
  (global-set-key "\C-vO/" 'html-ins-Oslash)
  (global-set-key "\C-v/O" 'html-ins-Oslash)
(defun html-ins-Otilde ()
  "Insert HTML entity Otilde."
  (interactive) (insert "&Otilde;"))
  (global-set-key "\C-vO~" 'html-ins-Otilde)
  (global-set-key "\C-v~O" 'html-ins-Otilde)
(defun html-ins-Ouml ()
  "Insert HTML entity Ouml."
  (interactive) (insert "&Ouml;"))
  (global-set-key "\C-vO\"" 'html-ins-Ouml)
  (global-set-key "\C-v\"O" 'html-ins-Ouml)
(defun html-ins-Scaron ()
  "Insert HTML entity Scaron."
  (interactive) (insert "&Scaron;"))
  (global-set-key "\C-vSv" 'html-ins-Scaron)
  (global-set-key "\C-vvS" 'html-ins-Scaron)
(defun html-ins-Uacute ()
  "Insert HTML entity Uacute."
  (interactive) (insert "&Uacute;"))
  (global-set-key "\C-vU'" 'html-ins-Uacute)
  (global-set-key "\C-v'U" 'html-ins-Uacute)
(defun html-ins-Ucirc ()
  "Insert HTML entity Ucirc."
  (interactive) (insert "&Ucirc;"))
  (global-set-key "\C-vU^" 'html-ins-Ucirc)
  (global-set-key "\C-v^U" 'html-ins-Ucirc)
(defun html-ins-Ugrave ()
  "Insert HTML entity Ugrave."
  (interactive) (insert "&Ugrave;"))
  (global-set-key "\C-vU`" 'html-ins-Ugrave)
  (global-set-key "\C-v`U" 'html-ins-Ugrave)
(defun html-ins-Uuml ()
  "Insert HTML entity Uuml."
  (interactive) (insert "&Uuml;"))
  (global-set-key "\C-vU\"" 'html-ins-Uuml)
  (global-set-key "\C-v\"U" 'html-ins-Uuml)
(defun html-ins-Yacute ()
  "Insert HTML entity Yacute."
  (interactive) (insert "&Yacute;"))
  (global-set-key "\C-vY'" 'html-ins-Yacute)
  (global-set-key "\C-v'Y" 'html-ins-Yacute)
(defun html-ins-Yuml ()
  "Insert HTML entity Yuml."
  (interactive) (insert "&Yuml;"))
  (global-set-key "\C-vY\"" 'html-ins-Yuml)
  (global-set-key "\C-v\"Y" 'html-ins-Yuml)
;
;Decorated Latin characters - lower case
;
(defun html-ins-aacute ()
  "Insert HTML entity aacute."
  (interactive) (insert "&aacute;"))
  (global-set-key "\C-va'" 'html-ins-aacute)
  (global-set-key "\C-v'a" 'html-ins-aacute)
(defun html-ins-acirc ()
  "Insert HTML entity acirc."
  (interactive) (insert "&acirc;"))
  (global-set-key "\C-va^" 'html-ins-acirc)
  (global-set-key "\C-v^a" 'html-ins-acirc)
(defun html-ins-agrave ()
  "Insert HTML entity agrave."
  (interactive) (insert "&agrave;"))
  (global-set-key "\C-va`" 'html-ins-agrave)
  (global-set-key "\C-v`a" 'html-ins-agrave)
(defun html-ins-aring ()
  "Insert HTML entity aring."
  (interactive) (insert "&aring;"))
  (global-set-key "\C-vao" 'html-ins-aring)
  (global-set-key "\C-voa" 'html-ins-aring)
(defun html-ins-atilde ()
  "Insert HTML entity atilde."
  (interactive) (insert "&atilde;"))
  (global-set-key "\C-va~" 'html-ins-atilde)
  (global-set-key "\C-v~a" 'html-ins-atilde)
(defun html-ins-auml ()
  "Insert HTML entity auml."
  (interactive) (insert "&auml;"))
  (global-set-key "\C-va\"" 'html-ins-auml)
  (global-set-key "\C-v\"a" 'html-ins-auml)
(defun html-ins-ccedil ()
  "Insert HTML entity ccedil."
  (interactive) (insert "&ccedil;"))
  (global-set-key "\C-vc," 'html-ins-ccedil)
  (global-set-key "\C-v,c" 'html-ins-ccedil)
(defun html-ins-ccaron ()
  "Insert HTML entity ccaron."
  (interactive) (insert "&#x010d;"))
  (global-set-key "\C-vcv" 'html-ins-ccaron)
  (global-set-key "\C-vvc" 'html-ins-ccaron)
(defun html-ins-eacute ()
  "Insert HTML entity eacute."
  (interactive) (insert "&eacute;"))
  (global-set-key "\C-ve'" 'html-ins-eacute)
  (global-set-key "\C-v'e" 'html-ins-eacute)
(defun html-ins-ecirc ()
  "Insert HTML entity ecirc."
  (interactive) (insert "&ecirc;"))
  (global-set-key "\C-ve^" 'html-ins-ecirc)
  (global-set-key "\C-v^e" 'html-ins-ecirc)
(defun html-ins-egrave ()
  "Insert HTML entity egrave."
  (interactive) (insert "&egrave;"))
  (global-set-key "\C-ve`" 'html-ins-egrave)
  (global-set-key "\C-v`e" 'html-ins-egrave)
(defun html-ins-euml ()
  "Insert HTML entity euml."
  (interactive) (insert "&euml;"))
  (global-set-key "\C-ve\"" 'html-ins-euml)
  (global-set-key "\C-v\"e" 'html-ins-euml)
(defun html-ins-iacute ()
  "Insert HTML entity iacute."
  (interactive) (insert "&iacute;"))
  (global-set-key "\C-vi'" 'html-ins-iacute)
  (global-set-key "\C-v'i" 'html-ins-iacute)
(defun html-ins-icirc ()
  "Insert HTML entity icirc."
  (interactive) (insert "&icirc;"))
  (global-set-key "\C-vi^" 'html-ins-icirc)
  (global-set-key "\C-v^i" 'html-ins-icirc)
(defun html-ins-igrave ()
  "Insert HTML entity igrave."
  (interactive) (insert "&igrave;"))
  (global-set-key "\C-vi`" 'html-ins-igrave)
  (global-set-key "\C-v`i" 'html-ins-igrave)
(defun html-ins-iuml ()
  "Insert HTML entity iuml."
  (interactive) (insert "&iuml;"))
  (global-set-key "\C-vi\"" 'html-ins-iuml)
  (global-set-key "\C-v\"i" 'html-ins-iuml)
(defun html-ins-ntilde ()
  "Insert HTML entity ntilde."
  (interactive) (insert "&ntilde;"))
  (global-set-key "\C-vn~" 'html-ins-ntilde)
  (global-set-key "\C-v~n" 'html-ins-ntilde)
(defun html-ins-oacute ()
  "Insert HTML entity oacute."
  (interactive) (insert "&oacute;"))
  (global-set-key "\C-vo'" 'html-ins-oacute)
  (global-set-key "\C-v'o" 'html-ins-oacute)
(defun html-ins-ocirc ()
  "Insert HTML entity ocirc."
  (interactive) (insert "&ocirc;"))
  (global-set-key "\C-vo^" 'html-ins-ocirc)
  (global-set-key "\C-v^o" 'html-ins-ocirc)
(defun html-ins-ograve ()
  "Insert HTML entity ograve."
  (interactive) (insert "&ograve;"))
  (global-set-key "\C-vo`" 'html-ins-ograve)
  (global-set-key "\C-v`o" 'html-ins-ograve)
(defun html-ins-oslash ()
  "Insert HTML entity oslash."
  (interactive) (insert "&oslash;"))
  (global-set-key "\C-vo/" 'html-ins-oslash)
  (global-set-key "\C-v/o" 'html-ins-oslash)
(defun html-ins-otilde ()
  "Insert HTML entity otilde."
  (interactive) (insert "&otilde;"))
  (global-set-key "\C-vo~" 'html-ins-otilde)
  (global-set-key "\C-v~o" 'html-ins-otilde)
(defun html-ins-ouml ()
  "Insert HTML entity ouml."
  (interactive) (insert "&ouml;"))
  (global-set-key "\C-vo\"" 'html-ins-ouml)
  (global-set-key "\C-v\"o" 'html-ins-ouml)
(defun html-ins-scaron ()
  "Insert HTML entity scaron."
  (interactive) (insert "&scaron;"))
  (global-set-key "\C-vsv" 'html-ins-scaron)
  (global-set-key "\C-vvs" 'html-ins-scaron)
(defun html-ins-uacute ()
  "Insert HTML entity uacute."
  (interactive) (insert "&uacute;"))
  (global-set-key "\C-vu'" 'html-ins-uacute)
  (global-set-key "\C-v'u" 'html-ins-uacute)
(defun html-ins-ucirc ()
  "Insert HTML entity ucirc."
  (interactive) (insert "&ucirc;"))
  (global-set-key "\C-vu^" 'html-ins-ucirc)
  (global-set-key "\C-v^u" 'html-ins-ucirc)
(defun html-ins-ugrave ()
  "Insert HTML entity ugrave."
  (interactive) (insert "&ugrave;"))
  (global-set-key "\C-vu`" 'html-ins-ugrave)
  (global-set-key "\C-v`u" 'html-ins-ugrave)
(defun html-ins-uuml ()
  "Insert HTML entity uuml."
  (interactive) (insert "&uuml;"))
  (global-set-key "\C-vu\"" 'html-ins-uuml)
  (global-set-key "\C-v\"u" 'html-ins-uuml)
(defun html-ins-yacute ()
  "Insert HTML entity yacute."
  (interactive) (insert "&yacute;"))
  (global-set-key "\C-vy'" 'html-ins-yacute)
  (global-set-key "\C-v'y" 'html-ins-yacute)
(defun html-ins-yuml ()
  "Insert HTML entity yuml."
  (interactive) (insert "&yuml;"))
  (global-set-key "\C-vy\"" 'html-ins-yuml)
  (global-set-key "\C-v\"y" 'html-ins-yuml)
;
;Greek characters - upper case
;
(defun html-ins-Alpha ()
  "Insert HTML entity Alpha."
  (interactive) (insert "<font face=\"symbol\">A</font>"))
  (global-set-key "\C-vgA" 'html-ins-Alpha)
(defun html-ins-Beta ()
  "Insert HTML entity Beta."
  (interactive) (insert "<font face=\"symbol\">B</font>"))
  (global-set-key "\C-vgB" 'html-ins-Beta)
(defun html-ins-Gamma ()
  "Insert HTML entity Gamma."
  (interactive) (insert "<font face=\"symbol\">G</font>"))
  (global-set-key "\C-vgG" 'html-ins-Gamma)
(defun html-ins-Delta ()
  "Insert HTML entity Delta."
  (interactive) (insert "<font face=\"symbol\">D</font>"))
  (global-set-key "\C-vgD" 'html-ins-Delta)
(defun html-ins-Epsilon ()
  "Insert HTML entity Epsilon."
  (interactive) (insert "<font face=\"symbol\">E</font>"))
  (global-set-key "\C-vgE" 'html-ins-Epsilon)
(defun html-ins-Zeta ()
  "Insert HTML entity Zeta."
  (interactive) (insert "<font face=\"symbol\">Z</font>"))
  (global-set-key "\C-vgZ" 'html-ins-Zeta)
(defun html-ins-Eta ()
  "Insert HTML entity Eta."
  (interactive) (insert "<font face=\"symbol\">H</font>"))
  (global-set-key "\C-vgH" 'html-ins-Eta)
(defun html-ins-Theta ()
  "Insert HTML entity Theta."
  (interactive) (insert "<font face=\"symbol\">Q</font>"))
  (global-set-key "\C-vgQ" 'html-ins-Theta)
(defun html-ins-Iota ()
  "Insert HTML entity Iota."
  (interactive) (insert "<font face=\"symbol\">I</font>"))
  (global-set-key "\C-vgI" 'html-ins-Iota)
(defun html-ins-Kappa ()
  "Insert HTML entity Kappa."
  (interactive) (insert "<font face=\"symbol\">K</font>"))
  (global-set-key "\C-vgK" 'html-ins-Kappa)
(defun html-ins-Lambda ()
  "Insert HTML entity Lambda."
  (interactive) (insert "<font face=\"symbol\">L</font>"))
  (global-set-key "\C-vgL" 'html-ins-Lambda)
(defun html-ins-Mu ()
  "Insert HTML entity Mu."
  (interactive) (insert "<font face=\"symbol\">M</font>"))
  (global-set-key "\C-vgM" 'html-ins-Mu)
(defun html-ins-Nu ()
  "Insert HTML entity Nu."
  (interactive) (insert "<font face=\"symbol\">N</font>"))
  (global-set-key "\C-vgN" 'html-ins-Nu)
(defun html-ins-Xi ()
  "Insert HTML entity Xi."
  (interactive) (insert "<font face=\"symbol\">X</font>"))
  (global-set-key "\C-vgX" 'html-ins-Xi)
(defun html-ins-Omicron ()
  "Insert HTML entity Omicron."
  (interactive) (insert "<font face=\"symbol\">O</font>"))
  (global-set-key "\C-vgO" 'html-ins-Omicron)
(defun html-ins-Pi ()
  "Insert HTML entity Pi."
  (interactive) (insert "<font face=\"symbol\">P</font>"))
  (global-set-key "\C-vgP" 'html-ins-Pi)
(defun html-ins-Rho ()
  "Insert HTML entity Rho."
  (interactive) (insert "<font face=\"symbol\">R</font>"))
  (global-set-key "\C-vgR" 'html-ins-Rho)
(defun html-ins-Sigma ()
  "Insert HTML entity Sigma."
  (interactive) (insert "<font face=\"symbol\">S</font>"))
  (global-set-key "\C-vgS" 'html-ins-Sigma)
(defun html-ins-Tau ()
  "Insert HTML entity Tau."
  (interactive) (insert "<font face=\"symbol\">T</font>"))
  (global-set-key "\C-vgT" 'html-ins-Tau)
(defun html-ins-Upsilon ()
  "Insert HTML entity Upsilon."
  (interactive) (insert "<font face=\"symbol\">U</font>"))
  (global-set-key "\C-vgU" 'html-ins-Upsilon)
(defun html-ins-Phi ()
  "Insert HTML entity Phi."
  (interactive) (insert "<font face=\"symbol\">F</font>"))
  (global-set-key "\C-vgF" 'html-ins-Phi)
(defun html-ins-Chi ()
  "Insert HTML entity Chi."
  (interactive) (insert "<font face=\"symbol\">C</font>"))
  (global-set-key "\C-vgC" 'html-ins-Chi)
(defun html-ins-Psi ()
  "Insert HTML entity Psi."
  (interactive) (insert "<font face=\"symbol\">Y</font>"))
  (global-set-key "\C-vgY" 'html-ins-Psi)
(defun html-ins-Omega ()
  "Insert HTML entity Omega."
  (interactive) (insert "<font face=\"symbol\">W</font>"))
  (global-set-key "\C-vgW" 'html-ins-Omega)
;
;Greek characters - lower case
;
(defun html-ins-alpha ()
  "Insert HTML entity alpha."
  (interactive) (insert "<font face=\"symbol\">a</font>"))
  (global-set-key "\C-vga" 'html-ins-alpha)
(defun html-ins-beta ()
  "Insert HTML entity beta."
  (interactive) (insert "<font face=\"symbol\">b</font>"))
  (global-set-key "\C-vgb" 'html-ins-beta)
(defun html-ins-gamma ()
  "Insert HTML entity gamma."
  (interactive) (insert "<font face=\"symbol\">g</font>"))
  (global-set-key "\C-vgg" 'html-ins-gamma)
(defun html-ins-delta ()
  "Insert HTML entity delta."
  (interactive) (insert "<font face=\"symbol\">d</font>"))
  (global-set-key "\C-vgd" 'html-ins-delta)
(defun html-ins-epsilon ()
  "Insert HTML entity epsilon."
  (interactive) (insert "<font face=\"symbol\">e</font>"))
  (global-set-key "\C-vge" 'html-ins-epsilon)
(defun html-ins-zeta ()
  "Insert HTML entity zeta."
  (interactive) (insert "<font face=\"symbol\">z</font>"))
  (global-set-key "\C-vgz" 'html-ins-zeta)
(defun html-ins-eta ()
  "Insert HTML entity eta."
  (interactive) (insert "<font face=\"symbol\">h</font>"))
  (global-set-key "\C-vgh" 'html-ins-eta)
(defun html-ins-theta ()
  "Insert HTML entity theta."
  (interactive) (insert "<font face=\"symbol\">q</font>"))
  (global-set-key "\C-vgq" 'html-ins-theta)
(defun html-ins-theta-alt ()
  "Insert HTML entity alternate theta."
  (interactive) (insert "<font face=\"symbol\">J</font>"))
  (global-set-key "\C-vgJ" 'html-ins-theta-alt)
(defun html-ins-iota ()
  "Insert HTML entity iota."
  (interactive) (insert "<font face=\"symbol\">i</font>"))
  (global-set-key "\C-vgi" 'html-ins-iota)
(defun html-ins-kappa ()
  "Insert HTML entity kappa."
  (interactive) (insert "<font face=\"symbol\">k</font>"))
  (global-set-key "\C-vgk" 'html-ins-kappa)
(defun html-ins-lambda ()
  "Insert HTML entity lambda."
  (interactive) (insert "<font face=\"symbol\">l</font>"))
  (global-set-key "\C-vgl" 'html-ins-lambda)
(defun html-ins-mu ()
  "Insert HTML entity mu."
  (interactive) (insert "<font face=\"symbol\">m</font>"))
  (global-set-key "\C-vgm" 'html-ins-mu)
(defun html-ins-nu ()
  "Insert HTML entity nu."
  (interactive) (insert "<font face=\"symbol\">n</font>"))
  (global-set-key "\C-vgn" 'html-ins-nu)
(defun html-ins-xi ()
  "Insert HTML entity xi."
  (interactive) (insert "<font face=\"symbol\">x</font>"))
  (global-set-key "\C-vgx" 'html-ins-xi)
(defun html-ins-omicron ()
  "Insert HTML entity omicron."
  (interactive) (insert "<font face=\"symbol\">o</font>"))
  (global-set-key "\C-vgo" 'html-ins-omicron)
(defun html-ins-pi ()
  "Insert HTML entity pi."
  (interactive) (insert "<font face=\"symbol\">p</font>"))
  (global-set-key "\C-vgp" 'html-ins-pi)
(defun html-ins-rho ()
  "Insert HTML entity rho."
  (interactive) (insert "<font face=\"symbol\">r</font>"))
  (global-set-key "\C-vgr" 'html-ins-rho)
(defun html-ins-sigma ()
  "Insert HTML entity sigma."
  (interactive) (insert "<font face=\"symbol\">s</font>"))
  (global-set-key "\C-vgs" 'html-ins-sigma)
(defun html-ins-sigma-final ()
  "Insert HTML entity final sigma."
  (interactive) (insert "<font face=\"symbol\">V</font>"))
  (global-set-key "\C-vgV" 'html-ins-sigma-final)
(defun html-ins-tau ()
  "Insert HTML entity tau."
  (interactive) (insert "<font face=\"symbol\">t</font>"))
  (global-set-key "\C-vgt" 'html-ins-tau)
(defun html-ins-upsilon ()
  "Insert HTML entity upsilon."
  (interactive) (insert "<font face=\"symbol\">u</font>"))
  (global-set-key "\C-vgu" 'html-ins-upsilon)
(defun html-ins-phi ()
  "Insert HTML entity phi."
  (interactive) (insert "<font face=\"symbol\">f</font>"))
  (global-set-key "\C-vgf" 'html-ins-phi)
(defun html-ins-phi-alt ()
  "Insert HTML entity alternate phi."
  (interactive) (insert "<font face=\"symbol\">j</font>"))
  (global-set-key "\C-vgj" 'html-ins-phi-alt)
(defun html-ins-chi ()
  "Insert HTML entity chi."
  (interactive) (insert "<font face=\"symbol\">c</font>"))
  (global-set-key "\C-vgc" 'html-ins-chi)
(defun html-ins-psi ()
  "Insert HTML entity psi."
  (interactive) (insert "<font face=\"symbol\">y</font>"))
  (global-set-key "\C-vgy" 'html-ins-psi)
(defun html-ins-omega ()
  "Insert HTML entity omega."
  (interactive) (insert "<font face=\"symbol\">w</font>"))
  (global-set-key "\C-vgw" 'html-ins-omega)
(defun html-ins-omega-alt ()
  "Insert HTML entity alternate omega."
  (interactive) (insert "<font face=\"symbol\">v</font>"))
  (global-set-key "\C-vgv" 'html-ins-omega-alt)
;
;End of html-ins.el