;; -*- coding: utf-8 -*- ;; some custome string functions for working with HTML ;; 2011-05-28 ;; Xah Lee ;; ∑ http://xahlee.org/ ;; § ---------------------------------------- ;; inserts generic fixed strings (defun insert-dtd-html4s () "Insert html 4.01 strict dtd." (interactive) (insert "")) (defun insert-dtd-html5 () "Insert html5 “dtd”." (interactive) (insert "")) (defun insert-dtd-html4t () "Insert html 4.01 transitional dtd." (interactive) (insert "")) (defun insert-dtd-xhtml () "Insert html 4.01 strict dtd." (interactive) (insert "")) (defun insert-javascript-tag () "Insert a javascript tag." (interactive) (insert "") (backward-char 14) ) (defun insert-php-tag () "Insert PHP tag ." (interactive) (insert "") (backward-char 3)) (defun insert-keywords-tag () "Insert the HTML keywords meta tag." (interactive) (insert "\n") (insert "") (backward-char 2) ) (defun insert-html-template () "Insert a HTML template of xahlee.org." (interactive) (insert " ttt ")) ;; § ---------------------------------------- ;; inserts fixed strings, particular to xahsite (defun insert-lyrics-header () "Insert a XahLee.org customized lyrics meta data tag." (interactive) (insert "
Title: 
Date: 
Singer: 
Lyrics: 
Music: 
English translation: 李杀 (Xah Lee)
") (search-backward "Singer") (backward-char) ) (defun insert-lyrics-table () "Insert a html 2-columns table for holding english chinese lyrics." (interactive) (insert "
�

�
" ) (search-backward "�") (search-backward "�") ) (defun insert-screen-filler () "Insert a custome HTML
tag." (interactive) (insert "
↓
") ) (defun insert-section-break () "Insert a fiction style section separator “* * *”." (interactive) (insert "

✻ ✻ ✻

")) ;; § ---------------------------------------- (defun insert-date-tag () "Insert a date tag, e.g. 
2006-10-09
." (interactive) (insert (concat "
\n\n\n\n" )) (backward-char 2) ) ;; § ---------------------------------------- (defun insert-midi () "Insert a midi audio markup." (interactive) (insert "

Liszt's transcendental etude #12. midi file ♪.

") )