# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1689581145 -32400
# Node ID e87c3271b8fd1c0c427734759a8136e3fa9a4f21
# Parent  dd4ed4c255c78d59c66a399eadaa0e99487e27f3
Add "meter" and "progress" completions

diff -r dd4ed4c255c7 -r e87c3271b8fd yahtml.el
--- a/yahtml.el	Sun Dec 25 14:24:43 2022 +0900
+++ b/yahtml.el	Mon Jul 17 17:05:45 2023 +0900
@@ -447,6 +447,7 @@
     ;;HTML5
     ("video") ("audio") ("figure") ("iframe")
     ("header") ("footer") ("article") ("section") ("nav") ("main") ("aside")
+    ("meter") ("progress")
     ))
 
 (if yahtml-html4-strict
@@ -1727,6 +1728,26 @@
 (defun yahtml::article ()
   (setq yahtml-last-typeface-cmd "h1" yahtml-last-begend "h1"))
 
+(defun yahtml:meter ()
+  (concat
+   (yahtml-make-optional-argument
+    "min" (yahtml-read-parameter "min"))
+   (yahtml-make-optional-argument
+    "max" (yahtml-read-parameter "max"))
+   (yahtml-make-optional-argument
+    "low" (yahtml-read-parameter "low"))
+   (yahtml-make-optional-argument
+    "high" (yahtml-read-parameter "high"))
+   (yahtml-make-optional-argument
+    "value" (yahtml-read-parameter "value"))))
+
+(defun yahtml:progress ()
+  (concat
+   (yahtml-make-optional-argument
+    "max" (yahtml-read-parameter "max"))
+   (yahtml-make-optional-argument
+    "value" (yahtml-read-parameter "value"))))
+
 ;;; ---------- Simple tag ----------
 (defun yahtml-insert-tag (region-mode &optional tag)
   "Insert <TAG> </TAG> and put cursor inside of them."