\t| ")
(while (re-search-forward "[|\t]" nil t)
(replace-match "\n\t | \n\t | " t t))
(goto-char (point-max))
)
(next-line 1) (beginning-of-line)
)
;;============================================================
(defun gs-selfref ()
"Wrap an URL to make it its own link. This is useful for links that should
be visible when converted to text."
(interactive)
(save-restriction
(narrow-to-region (region-beginning) (region-end))
(goto-char (point-min))
(if (not (looking-at "http:\\|ftp:")) (insert "http://"))
(setq g~url (buffer-substring (point-min) (point-max)))
(goto-char (point-min))
(insert "" g~url "")
)
)
;;============================================================
(defun gs-table ()
"Set up an indented table around this region, leaving plenty of white space
around the table within the HTML. The number of columns in the table is
hardcoded here as 3, so that number must be changed by hand if the table
has more than 3 columns. See gs-row-of-table for how rows are built: a
table with N visible columns generally has 2N-1 HTML columns, including the
columns that provide vertical white space."
(interactive)
(save-restriction
(narrow-to-region (region-beginning) (region-end))
(indent-rigidly (region-beginning) (region-end) -80)
(goto-char (point-min))
(insert (concat
"\n\n\n"
"
XXXXXXXXXX
\n"
" |
|---|
\n"
"\t| \n"
"\t | \n"
"\t | \n"
" | \t
\n"
))
(goto-char (point-max))
(insert " |
\n")
)
)
;;============================================================
(defun gs-text-chars ()
"Prepare text for inclusion in HTML by converting \"&\", \"<\", and \">\" into
their HTML special forms. The function acts from point to end-of-region or
end-of-buffer, whichever comes first.
This function is NOT idempotent -- running it twice on the same text will
certainly do the wrong thing, unless at first the text contained none of
those characters."
(interactive)
(setq BEGIN (point))
;; Replace significant characters: "&", "<", and ">".
(while (search-forward "&" nil t) (replace-match "&" t t))
(goto-char BEGIN)
(while (search-forward "<" nil t) (replace-match "<" t t))
(goto-char BEGIN)
(while (search-forward ">" nil t) (replace-match ">" t t))
(goto-char BEGIN)
(while (search-forward "$" nil t) (replace-match "$" t t))
(goto-char BEGIN)
)
;;============================================================
(defun gs-wrap-textfile ()
"Prepare a text file for inclusion between and , then put a
header and footer around it. One would generally run this function on a
buffer containing only an original text file; it is how the original
history and news files were first prepared. At this point it's likely to
be most useful in preparing new sections for the news document."
(interactive)
(widen)
;; First prepare the entire text by replacing special characters.
(goto-char (point-min))
(gs-text-chars)
;; At the end of the file, end as-is text and add the standard footer.
(goto-char (point-max))
(backward-word 1) (next-line 1) (beginning-of-line)
(delete-region (point) (point-max))
(insert "\n\n")
(insert-file "Footer.htm")
;; At the beginning of the file, begin as-is text and delete everything
;; up to the identity string (if any), saving the identity string.
(goto-char (point-min))
(insert "\n") (setq g~pre-point (point))
(setq g~ID " [No pre-existing ID] ")
(if (re-search-forward (concat "^\\$" "Id:\\( [^ ]+ \\)\\$") nil t) (progn
(setq g~ID (buffer-substring (match-beginning 1) (match-end 1)))
(next-line 1) (beginning-of-line) (delete-region g~pre-point (point))
))
;; Insert the standard header and fill in the identity string.
(goto-char (point-min)) (insert-file "Header.htm")
(goto-char (point-min)) (search-forward "") nil t)
(progn
(setq Original (buffer-substring (match-beginning 1) (match-end 1)))
(replace-match g~thisfile t t nil 1)
)
(progn
(search-forward "" nil t) (end-of-line)
(insert (concat "\n"))
(setq Original "(UNSET by gs-structure)")
)
)
(end-of-line)
(insert (concat "\n"))
;; Place the visible header marker immediately after .
(re-search-forward "]*>" nil t)
(end-of-line) (forward-char 1)
(insert (concat g~header-begin "\n\n"))
;; Place the headline marker before the first block.
(search-forward ". This isn't precise, and in fact
;; fails for several files, but once again only an approximation is needed
;; because it'll be edited by hand later.
(search-forward "" nil t) (beginning-of-line)
(insert (concat g~hint-begin "\n\n"))
(search-forward "
" nil t) (beginning-of-line)
(insert (concat g~hint-end "\n\n"))
;; The visible header ends with (and includes) the first
, and the
;; contents begin immediately thereafter.
(search-forward "
\n" nil t)
(insert (concat "\n" g~header-end "\n\n"))
(forward-word 1) (beginning-of-line)
(insert (concat g~contents-begin "\n\n"))
;; The contents end before the final
and the trailer begins
;; immediately thereafter.
(goto-char (point-max)) (search-backward "
" nil t)
(backward-word 1) (end-of-line) (forward-char 1)
(insert (concat
"\n"
g~contents-end "\n\n"
g~trailer-begin "\n\n"))
;; The trailer ends with .
(goto-char (point-max)) (search-backward " |