Mercurial > hgrepos > hgweb.cgi > yatex

comparison yahtml.el @ 611:e87c3271b8fd draft dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add "meter" and "progress" completions
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 17 Jul 2023 17:05:45 +0900
parents 157aa7974191
children c4af3ae90537
comparison
equal deleted inserted replaced
610:dd4ed4c255c7 611:e87c3271b8fd
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 ("header") ("footer") ("article") ("section") ("nav") ("main") ("aside")
450 ("meter") ("progress")
450 )) 451 ))
451 452
452 (if yahtml-html4-strict 453 (if yahtml-html4-strict
453 (setq yahtml-env-table 454 (setq yahtml-env-table
454 (delete (assoc "center" yahtml-env-table) yahtml-env-table))) 455 (delete (assoc "center" yahtml-env-table) yahtml-env-table)))
1725 "value" (yahtml-read-parameter "value")))) 1726 "value" (yahtml-read-parameter "value"))))
1726 1727
1727 (defun yahtml::article () 1728 (defun yahtml::article ()
1728 (setq yahtml-last-typeface-cmd "h1" yahtml-last-begend "h1")) 1729 (setq yahtml-last-typeface-cmd "h1" yahtml-last-begend "h1"))
1729 1730
1731 (defun yahtml:meter ()
1732 (concat
1733 (yahtml-make-optional-argument
1734 "min" (yahtml-read-parameter "min"))
1735 (yahtml-make-optional-argument
1736 "max" (yahtml-read-parameter "max"))
1737 (yahtml-make-optional-argument
1738 "low" (yahtml-read-parameter "low"))
1739 (yahtml-make-optional-argument
1740 "high" (yahtml-read-parameter "high"))
1741 (yahtml-make-optional-argument
1742 "value" (yahtml-read-parameter "value"))))
1743
1744 (defun yahtml:progress ()
1745 (concat
1746 (yahtml-make-optional-argument
1747 "max" (yahtml-read-parameter "max"))
1748 (yahtml-make-optional-argument
1749 "value" (yahtml-read-parameter "value"))))
1750
1730 ;;; ---------- Simple tag ---------- 1751 ;;; ---------- Simple tag ----------
1731 (defun yahtml-insert-tag (region-mode &optional tag) 1752 (defun yahtml-insert-tag (region-mode &optional tag)
1732 "Insert <TAG> </TAG> and put cursor inside of them." 1753 "Insert <TAG> </TAG> and put cursor inside of them."
1733 (interactive "P") 1754 (interactive "P")
1734 (setq yahtml-current-completion-type 'inline 1755 (setq yahtml-current-completion-type 'inline

yatex.org