Mercurial > hgrepos > hgweb.cgi > yatex

changeset 612:c4af3ae90537 draft dev tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Shortcut keys changed
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 29 Apr 2024 17:09:10 +0900
parents e87c3271b8fd
children
files yahtml.el
diffstat 1 files changed, 29 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/yahtml.el	Mon Jul 17 17:05:45 2023 +0900
+++ b/yahtml.el	Mon Apr 29 17:09:10 2024 +0900
@@ -298,13 +298,14 @@
       (if (eq system-type 'ms-dos) "/c" "-c")))
 (defvar yahtml-use-highlighting (or yahtml-use-font-lock yahtml-use-hilit19))
 
-(defun yahtml-define-begend-key-normal (key env &optional map)
+(defun yahtml-define-begend-key-normal (key env &optional map func)
   "Define short cut yahtml-insert-begend key."
-  (YaTeX-define-key
-   key
-   (list 'lambda '(arg) '(interactive "P")
-	 (list 'yahtml-insert-begend 'arg env))
-   map))
+  (let ((func (or func 'yahtml-insert-begend)))
+    (YaTeX-define-key
+     key
+     (list 'lambda '(arg) '(interactive "P")
+	   (list func 'arg env))
+     map)))
 
 (defun yahtml-define-begend-region-key (key env &optional map)
   "Define short cut yahtml-insert-begend-region key."
@@ -312,13 +313,24 @@
 			      (list 'yahtml-insert-begend t env)) map))
 
 (defun yahtml-define-begend-key (key env &optional map)
-  "Define short cut key for begin type completion both for
-normal and region mode.  To customize yahtml, user should use this function."
-  (yahtml-define-begend-key-normal key env map)
+  "Define short cut key for begin type completion.
+Both for normal and region mode.
+To customize yahtml, user should use this function."
+  (yahtml-define-begend-key-normal key env map 'yahtml-insert-tag)
   (if YaTeX-inhibit-prefix-letter nil
     (yahtml-define-begend-region-key
      (concat (upcase (substring key 0 1)) (substring key 1)) env map)))
 
+(defun yahtml-define-instag-key (key tag &optional map)
+  "Define short cut key for inline-tag type completion.
+Both for normal and region mode.
+To customize yahtml, user should use this function."
+  (yahtml-define-begend-key-normal key tag map 'yahtml-insert-tag)
+  (if YaTeX-inhibit-prefix-letter nil
+    (yahtml-define-begend-region-key
+     (concat (upcase (substring key 0 1)) (substring key 1)) env map
+     'yahtml-insert-tag)))
+
 (if yahtml-mode-map nil
   (setq yahtml-mode-map (make-sparse-keymap)
 	yahtml-prefix-map (make-sparse-keymap))
@@ -356,23 +368,23 @@
 	  (YaTeX-define-key "b" 'yahtml-insert-begend map))
       (yahtml-define-begend-key "bh" "html" map)
       (yahtml-define-begend-key "bH" "head" map)
-      (yahtml-define-begend-key "bt" "title" map)
+      (yahtml-define-instag-key "bt" "title" map)
       (yahtml-define-begend-key "bT" "table" map)
       (yahtml-define-begend-key "bb" "body" map)
-      (yahtml-define-begend-key "bc" "center" map)
+      (yahtml-define-instag-key "bc" "code" map)
       (yahtml-define-begend-key "bd" "dl" map)
       (yahtml-define-begend-key "bD" "div" map)
       (yahtml-define-begend-key "bu" "ul" map)
       (yahtml-define-begend-key "bo" "ol" map)
-      (yahtml-define-begend-key "b1" "h1" map)
-      (yahtml-define-begend-key "b2" "h2" map)
-      (yahtml-define-begend-key "b3" "h3" map)
-      (yahtml-define-begend-key "ba" "a" map)
+      (yahtml-define-instag-key "b1" "h1" map)
+      (yahtml-define-instag-key "b2" "h2" map)
+      (yahtml-define-instag-key "b3" "h3" map)
+      (yahtml-define-instag-key "ba" "a" map)
       (yahtml-define-begend-key "bf" "form" map)
-      (yahtml-define-begend-key "bl" "label" map)
+      (yahtml-define-instag-key "bl" "label" map)
       (yahtml-define-begend-key "bs" "select" map)
       (yahtml-define-begend-key "bv" "div" map)
-      (yahtml-define-begend-key "bS" "span" map)
+      (yahtml-define-instag-key "bS" "span" map)
       (yahtml-define-begend-key "bp" "pre" map)
       (yahtml-define-begend-key "bq" "blockquote" map)
       (YaTeX-define-key "b " 'yahtml-insert-begend map)

yatex.org