"
+ (let ((href (yahtml-read-url "href: ")))
+ (concat (yahtml-make-optional-argument
+ "href" href)
+ (yahtml-make-optional-argument
+ "name" (read-string-with-history "name: ")))))
+
(defvar yahtml-parameters-completion-alist
'(("align" ("top") ("middle") ("bottom") ("left") ("right") ("center"))
("clear" ("left") ("right") ("center") ("all") ("none"))
@@ -1831,6 +1835,15 @@
(defun yahtml:figure ()
(setq yahtml-last-typeface-cmd "figcaption"))
+(defun yahtml:iframe ()
+ (let ((src (yahtml-read-url "src: ")))
+ (concat
+ (yahtml-make-optional-argument "src" src)
+ (yahtml-make-optional-argument
+ "width" (YaTeX-read-string-or-skip "width: "))
+ (yahtml-make-optional-argument
+ "height" (YaTeX-read-string-or-skip "height: ")))))
+
;;; ---------- Jump ----------
(defun yahtml-on-href-p ()
"Check if point is on href clause."
@@ -2838,7 +2851,7 @@
(if (file-directory-p (car (car list)))
(progn
(setq url (cdr (car list)))
- (if (string-match "\\(http://[^/]*\\)/" url)
+ (if (string-match "\\(https?://[^/]*\\)/" url)
(setq docroot (substring url (match-end 1)))
(setq docroot url))
(cond
@@ -3056,6 +3069,9 @@
)))
(fset 'yahtml-intelligent-newline-video 'yahtml-intelligent-newline-audio)
+(defun yahtml-intelligent-newline-iframe ()
+ (insert "Your browser does not support iframes.
"))
+
;;; ---------- Marking ----------
(defun yahtml-mark-begend ()
"Mark current tag"