   )
 
 
+(define-skeleton jpw-html-size-small
+  "Insert HTML font resizing tag \"<small>\".
+{jpw: 03/06}"
+  nil
+  "<small>" _  "</small>"
+  )
+
+
+(define-skeleton jpw-html-size-big
+  "Insert HTML font resizing tag \"<big>\".
+{jpw: 03/06}"
+  nil
+  "<big>" _  "</big>"
+  )
+
+
+(defun jpw-lj-insert-size () 
+  (interactive) 
+  (funcall jpw-lj-default-html-size-function))
+
+
 (defsubst jpw-lj-unfill-buffer ()
   (interactive)
   (jpw-unfill-buffer t)

  )


;; Aliases.  These depend on earlier function & variable definitions.


(if (eq jpw-lj-html-size-function 'jpw-html-size-smallbig)
    (defun jpw-lj-insert-size () 
      (interactive) 
      (jpw-html-size-smallbig))
  ;; else
  (defun jpw-lj-insert-size () 
    (interactive) 
    (jpw-html-size-relative))
  )


;;------------------------------------------------------------
;;
;; Bindings: Define Local Keymap


      (define-key jpw-lj-mode-map "\M-gd" 'jpw-html-del)

      (define-key jpw-lj-mode-map "\M-g\C-s" 'jpw-html-size-small)
      (define-key jpw-lj-mode-map "\M-g\C-b" 'jpw-html-size-big)
      (define-key jpw-lj-mode-map "\M-g\C-r" 'jpw-html-size-relative)
      (define-key jpw-lj-mode-map "\M-gz" 'jpw-lj-insert-size)
      (define-key jpw-lj-mode-map "\M-g\M-s" 'jpw-lj-insert-size)

      (define-key jpw-lj-mode-map "\M-p\C-i" 'html-image)

