Mercurial > emacs

comparison lisp/textmodes/table.el @ 71107:c2a4cb0acf5e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2006-05-31 Takaaki Ota <Takaaki.Ota@am.sony.com> Convert all HTML tags to lower case for XHTML compatibility.
author Kim F. Storm <storm@cua.dk>
date Wed, 31 May 2006 08:02:45 +0000
parents a0b9a3f3fc7a
children a85c85db662c a8190f7e546e
comparison
equal deleted inserted replaced
71106:44a7192990fe 71107:c2a4cb0acf5e
4 ;; 2005, 2006 Free Software Foundation, Inc. 4 ;; 2005, 2006 Free Software Foundation, Inc.
5 5
6 ;; Keywords: wp, convenience 6 ;; Keywords: wp, convenience
7 ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com> 7 ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com>
8 ;; Created: Sat Jul 08 2000 13:28:45 (PST) 8 ;; Created: Sat Jul 08 2000 13:28:45 (PST)
9 ;; Revised: Sat Aug 06 2005 19:42:54 (CEST) 9 ;; Revised: Tue May 30 2006 10:01:43 (PDT)
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
13 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
3102 "Generate and insert source prologue into DEST-BUFFER." 3102 "Generate and insert source prologue into DEST-BUFFER."
3103 (with-current-buffer dest-buffer 3103 (with-current-buffer dest-buffer
3104 (cond 3104 (cond
3105 ((eq language 'html) 3105 ((eq language 'html)
3106 (insert (format "<!-- This HTML table template is generated by emacs %s -->\n" emacs-version) 3106 (insert (format "<!-- This HTML table template is generated by emacs %s -->\n" emacs-version)
3107 (format "<TABLE %s>\n" table-html-table-attribute) 3107 (format "<table %s>\n" table-html-table-attribute)
3108 (if (and (stringp caption) 3108 (if (and (stringp caption)
3109 (not (string= caption ""))) 3109 (not (string= caption "")))
3110 (format " <CAPTION>%s</CAPTION>\n" caption) 3110 (format " <caption>%s</caption>\n" caption)
3111 ""))) 3111 "")))
3112 ((eq language 'latex) 3112 ((eq language 'latex)
3113 (insert (format "%% This LaTeX table template is generated by emacs %s\n" emacs-version) 3113 (insert (format "%% This LaTeX table template is generated by emacs %s\n" emacs-version)
3114 "\\begin{tabular}{|" (apply 'concat (make-list (length col-list) "l|")) "}\n" 3114 "\\begin{tabular}{|" (apply 'concat (make-list (length col-list) "l|")) "}\n"
3115 "\\hline\n")) 3115 "\\hline\n"))
3129 (defun table--generate-source-epilogue (dest-buffer language col-list row-list) 3129 (defun table--generate-source-epilogue (dest-buffer language col-list row-list)
3130 "Generate and insert source epilogue into DEST-BUFFER." 3130 "Generate and insert source epilogue into DEST-BUFFER."
3131 (with-current-buffer dest-buffer 3131 (with-current-buffer dest-buffer
3132 (cond 3132 (cond
3133 ((eq language 'html) 3133 ((eq language 'html)
3134 (insert "</TABLE>\n")) 3134 (insert "</table>\n"))
3135 ((eq language 'latex) 3135 ((eq language 'latex)
3136 (insert "\\end{tabular}\n")) 3136 (insert "\\end{tabular}\n"))
3137 ((eq language 'cals) 3137 ((eq language 'cals)
3138 (set-marker-insertion-type (table-get-source-info 'colspec-marker) t) ;; insert before 3138 (set-marker-insertion-type (table-get-source-info 'colspec-marker) t) ;; insert before
3139 (save-excursion 3139 (save-excursion
3150 (table-put-source-info 'current-row 1) 3150 (table-put-source-info 'current-row 1)
3151 (while row-list 3151 (while row-list
3152 (with-current-buffer dest-buffer 3152 (with-current-buffer dest-buffer
3153 (cond 3153 (cond
3154 ((eq language 'html) 3154 ((eq language 'html)
3155 (insert " <TR>\n")) 3155 (insert " <tr>\n"))
3156 ((eq language 'cals) 3156 ((eq language 'cals)
3157 (insert " <row>\n")) 3157 (insert " <row>\n"))
3158 )) 3158 ))
3159 (table--generate-source-cells-in-a-row dest-buffer language col-list row-list) 3159 (table--generate-source-cells-in-a-row dest-buffer language col-list row-list)
3160 (with-current-buffer dest-buffer 3160 (with-current-buffer dest-buffer
3161 (cond 3161 (cond
3162 ((eq language 'html) 3162 ((eq language 'html)
3163 (insert " </TR>\n")) 3163 (insert " </tr>\n"))
3164 ((eq language 'cals) 3164 ((eq language 'cals)
3165 (insert " </row>\n") 3165 (insert " </row>\n")
3166 (unless (/= (table-get-source-info 'current-row) table-cals-thead-rows) 3166 (unless (/= (table-get-source-info 'current-row) table-cals-thead-rows)
3167 (insert (format " </%s>\n" (table-get-source-info 'row-type))) 3167 (insert (format " </%s>\n" (table-get-source-info 'row-type)))
3168 (insert (format " <%s valign=\"top\">\n" (table-put-source-info 'row-type "tbody"))))))) 3168 (insert (format " <%s valign=\"top\">\n" (table-put-source-info 'row-type "tbody")))))))
3205 (insert (format " <%s" 3205 (insert (format " <%s"
3206 (table-put-source-info 3206 (table-put-source-info
3207 'cell-type 3207 'cell-type
3208 (if (or (<= (table-get-source-info 'current-row) table-html-th-rows) 3208 (if (or (<= (table-get-source-info 'current-row) table-html-th-rows)
3209 (<= (table-get-source-info 'current-column) table-html-th-columns)) 3209 (<= (table-get-source-info 'current-column) table-html-th-columns))
3210 "TH" "TD")))) 3210 "th" "td"))))
3211 (if (and table-html-cell-attribute (not (string= table-html-cell-attribute ""))) 3211 (if (and table-html-cell-attribute (not (string= table-html-cell-attribute "")))
3212 (insert " " table-html-cell-attribute)) 3212 (insert " " table-html-cell-attribute))
3213 (if (> colspan 1) (insert (format " colspan=\"%d\"" colspan))) 3213 (if (> colspan 1) (insert (format " colspan=\"%d\"" colspan)))
3214 (if (> rowspan 1) (insert (format " rowspan=\"%d\"" rowspan))) 3214 (if (> rowspan 1) (insert (format " rowspan=\"%d\"" rowspan)))
3215 (insert (format " align=\"%s\"" (if alignment (symbol-name alignment) "left"))) 3215 (insert (format " align=\"%s\"" (if alignment (symbol-name alignment) "left")))
3264 (while (search-forward " " nil t) 3264 (while (search-forward " " nil t)
3265 (replace-match "&nbsp;")) 3265 (replace-match "&nbsp;"))
3266 (goto-char (point-min)) 3266 (goto-char (point-min))
3267 (while (and (re-search-forward "$" nil t) 3267 (while (and (re-search-forward "$" nil t)
3268 (not (eobp))) 3268 (not (eobp)))
3269 (insert "<BR />") 3269 (insert "<br />")
3270 (forward-char 1))) 3270 (forward-char 1)))
3271 (unless (and table-html-delegate-spacing-to-user-agent 3271 (unless (and table-html-delegate-spacing-to-user-agent
3272 (progn 3272 (progn
3273 (goto-char (point-min)) 3273 (goto-char (point-min))
3274 (looking-at "\\s *\\'"))))) 3274 (looking-at "\\s *\\'")))))