;; Fonthtml:
;; key bindings for font colours to work with html-helper-mode module.
;; created by Tatsuya YANAGIDA, tatsuya@coombs.anu.edu.au, on 4 Dec 2004
;; version: 0.1
;;
;; Aims: html-helper-mode does not have key bindings for font colour.
;; I create this file for me to use. You are welcome to copy and
;; modify this file for your own needs, but if you could let me know your
;; modifications to improve Fonthtml, that will be greatly appreciated.
;;
;; Cheers, T
;;
;; How to install Fonthtml:
;; 1) byte-compile this file and put .elc into
;; /usr/share/emacs21/site-lisp/html-helper-mode/
;;
;; 2) add the following lines to your .emacs.
;; (add-hook 'html-helper-load-hook
;; (function (lambda () (load "fontdhtml.elc"))))
;;
;; have a fun!

(html-helper-add-type-to-alist
'(fonthtml . (fonthtml-html-map "\C-c\C-b" fonthtml-html-menu
"Insert fonthtml Elements")))

(html-helper-install-type 'fonthtml)

;; color: maroon: C-c C-b m
(html-helper-add-tag
'(fonthtml "m" "" "maroon"
( "" (p "size: ") "")))

;; color: green: C-c C-b g
(html-helper-add-tag
'(fonthtml "g" "" "green"
( "" (p "size: ") "")))

;; color: darkcyan: C-c C-b d
(html-helper-add-tag
'(fonthtml "d" "" "darkcyan"
( "" (p "size: ") "")))

;; open for colors and sizes: C-c C-b f
(html-helper-add-tag
'(fonthtml "f" "" "Font color"
( "" "")))

(html-helper-rebuild-menu)

(provide 'hhm-fonthtml)


;;--------------------- end of Fontfhtml file ----------------------;;

;;;;; The lines below are resources taken from other people;;;;;;;
;; modified from yahtml but in vain
;; (defun yngdhtml:font ()
;; "Add-in function for `font'"
;; (concat
;; (yngdhtml-make-optional-argument "color" (read-string "color="))
;; (yngdhtml-make-optional-argument "size" (read-string "size="))))

;; (html-helper-add-tag
;; '(fonthtml "g" "" "Inline Style"
;; ("" "")))

;; CSS smaples:
;
;; (html-helper-add-tag
;; '(css "i" "" "Inline Style"
;; (" style=\"color: " (p "Color: ") "; font-size: " (p "Font Size: ") ";\"")))

;; Yahtml samples:
;
;; (defun yahtml:font ()
;; "Add-in function for `font'"
;; (concat
;; (yahtml-make-optional-argument "color" (read-string "color="))
;; (yahtml-make-optional-argument "size" (read-string "size="))))


;;-------------------------------- End of the file -------------------------;;
Last modified: Fri Sep 30 12:26:37 EST 2005