Mercurial > hgrepos > hgweb.cgi > yatex
comparison yahtml.el @ 583:d4831b3672f8 draft
Add some html5 elements
| author | HIROSE Yuuji <yuuji@gentei.org> |
|---|---|
| date | Thu, 01 Jul 2021 07:00:05 +0900 |
| parents | 9e07513fc2ef |
| children | 722004cc4375 |
comparison
equal
deleted
inserted
replaced
| 582:f4c2dca86202 | 583:d4831b3672f8 |
|---|---|
| 444 ;; ("p") ;This makes indentation screwed up! | 444 ;; ("p") ;This makes indentation screwed up! |
| 445 ("style") ("script") ("noscript") ("div") ("object") ("ins") ("del") | 445 ("style") ("script") ("noscript") ("div") ("object") ("ins") ("del") |
| 446 ("option") ("datalist") | 446 ("option") ("datalist") |
| 447 ;;HTML5 | 447 ;;HTML5 |
| 448 ("video") ("audio") ("figure") ("iframe") | 448 ("video") ("audio") ("figure") ("iframe") |
| 449 ("header") ("footer") ("article") ("section") ("nav") ("main") ("aside") | |
| 449 )) | 450 )) |
| 450 | 451 |
| 451 (if yahtml-html4-strict | 452 (if yahtml-html4-strict |
| 452 (setq yahtml-env-table | 453 (setq yahtml-env-table |
| 453 (delete (assoc "center" yahtml-env-table) yahtml-env-table))) | 454 (delete (assoc "center" yahtml-env-table) yahtml-env-table))) |
| 1712 "type" (yahtml-read-parameter | 1713 "type" (yahtml-read-parameter |
| 1713 "type" "button" '(("submit")("reset")("button")))) | 1714 "type" "button" '(("submit")("reset")("button")))) |
| 1714 (yahtml-make-optional-argument | 1715 (yahtml-make-optional-argument |
| 1715 "value" (yahtml-read-parameter "value")))) | 1716 "value" (yahtml-read-parameter "value")))) |
| 1716 | 1717 |
| 1718 (defun yahtml::article () | |
| 1719 (setq yahtml-last-typeface-cmd "h1" yahtml-last-begend "h1")) | |
| 1720 | |
| 1717 ;;; ---------- Simple tag ---------- | 1721 ;;; ---------- Simple tag ---------- |
| 1718 (defun yahtml-insert-tag (region-mode &optional tag) | 1722 (defun yahtml-insert-tag (region-mode &optional tag) |
| 1719 "Insert <TAG> </TAG> and put cursor inside of them." | 1723 "Insert <TAG> </TAG> and put cursor inside of them." |
| 1720 (interactive "P") | 1724 (interactive "P") |
| 1721 (setq yahtml-current-completion-type 'inline | 1725 (setq yahtml-current-completion-type 'inline |
