Mercurial > hgrepos > hgweb.cgi > yatex

comparison yahtml.el @ 612:c4af3ae90537 draft dev

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 38b311149463
comparison
equal deleted inserted replaced
611:e87c3271b8fd 612:c4af3ae90537
296 (defvar yahtml-shell-command-option 296 (defvar yahtml-shell-command-option
297 (or (and (boundp 'shell-command-option) shell-command-option) 297 (or (and (boundp 'shell-command-option) shell-command-option)
298 (if (eq system-type 'ms-dos) "/c" "-c"))) 298 (if (eq system-type 'ms-dos) "/c" "-c")))
299 (defvar yahtml-use-highlighting (or yahtml-use-font-lock yahtml-use-hilit19)) 299 (defvar yahtml-use-highlighting (or yahtml-use-font-lock yahtml-use-hilit19))
300 300
301 (defun yahtml-define-begend-key-normal (key env &optional map) 301 (defun yahtml-define-begend-key-normal (key env &optional map func)
302 "Define short cut yahtml-insert-begend key." 302 "Define short cut yahtml-insert-begend key."
303 (YaTeX-define-key 303 (let ((func (or func 'yahtml-insert-begend)))
304 key 304 (YaTeX-define-key
305 (list 'lambda '(arg) '(interactive "P") 305 key
306 (list 'yahtml-insert-begend 'arg env)) 306 (list 'lambda '(arg) '(interactive "P")
307 map)) 307 (list func 'arg env))
308 map)))
308 309
309 (defun yahtml-define-begend-region-key (key env &optional map) 310 (defun yahtml-define-begend-region-key (key env &optional map)
310 "Define short cut yahtml-insert-begend-region key." 311 "Define short cut yahtml-insert-begend-region key."
311 (YaTeX-define-key key (list 'lambda nil '(interactive) 312 (YaTeX-define-key key (list 'lambda nil '(interactive)
312 (list 'yahtml-insert-begend t env)) map)) 313 (list 'yahtml-insert-begend t env)) map))
313 314
314 (defun yahtml-define-begend-key (key env &optional map) 315 (defun yahtml-define-begend-key (key env &optional map)
315 "Define short cut key for begin type completion both for 316 "Define short cut key for begin type completion.
316 normal and region mode. To customize yahtml, user should use this function." 317 Both for normal and region mode.
317 (yahtml-define-begend-key-normal key env map) 318 To customize yahtml, user should use this function."
319 (yahtml-define-begend-key-normal key env map 'yahtml-insert-tag)
318 (if YaTeX-inhibit-prefix-letter nil 320 (if YaTeX-inhibit-prefix-letter nil
319 (yahtml-define-begend-region-key 321 (yahtml-define-begend-region-key
320 (concat (upcase (substring key 0 1)) (substring key 1)) env map))) 322 (concat (upcase (substring key 0 1)) (substring key 1)) env map)))
323
324 (defun yahtml-define-instag-key (key tag &optional map)
325 "Define short cut key for inline-tag type completion.
326 Both for normal and region mode.
327 To customize yahtml, user should use this function."
328 (yahtml-define-begend-key-normal key tag map 'yahtml-insert-tag)
329 (if YaTeX-inhibit-prefix-letter nil
330 (yahtml-define-begend-region-key
331 (concat (upcase (substring key 0 1)) (substring key 1)) env map
332 'yahtml-insert-tag)))
321 333
322 (if yahtml-mode-map nil 334 (if yahtml-mode-map nil
323 (setq yahtml-mode-map (make-sparse-keymap) 335 (setq yahtml-mode-map (make-sparse-keymap)
324 yahtml-prefix-map (make-sparse-keymap)) 336 yahtml-prefix-map (make-sparse-keymap))
325 (define-key yahtml-mode-map yahtml-prefix yahtml-prefix-map) 337 (define-key yahtml-mode-map yahtml-prefix yahtml-prefix-map)
354 (progn 366 (progn
355 (YaTeX-define-key "B" 'yahtml-insert-begend-region map) 367 (YaTeX-define-key "B" 'yahtml-insert-begend-region map)
356 (YaTeX-define-key "b" 'yahtml-insert-begend map)) 368 (YaTeX-define-key "b" 'yahtml-insert-begend map))
357 (yahtml-define-begend-key "bh" "html" map) 369 (yahtml-define-begend-key "bh" "html" map)
358 (yahtml-define-begend-key "bH" "head" map) 370 (yahtml-define-begend-key "bH" "head" map)
359 (yahtml-define-begend-key "bt" "title" map) 371 (yahtml-define-instag-key "bt" "title" map)
360 (yahtml-define-begend-key "bT" "table" map) 372 (yahtml-define-begend-key "bT" "table" map)
361 (yahtml-define-begend-key "bb" "body" map) 373 (yahtml-define-begend-key "bb" "body" map)
362 (yahtml-define-begend-key "bc" "center" map) 374 (yahtml-define-instag-key "bc" "code" map)
363 (yahtml-define-begend-key "bd" "dl" map) 375 (yahtml-define-begend-key "bd" "dl" map)
364 (yahtml-define-begend-key "bD" "div" map) 376 (yahtml-define-begend-key "bD" "div" map)
365 (yahtml-define-begend-key "bu" "ul" map) 377 (yahtml-define-begend-key "bu" "ul" map)
366 (yahtml-define-begend-key "bo" "ol" map) 378 (yahtml-define-begend-key "bo" "ol" map)
367 (yahtml-define-begend-key "b1" "h1" map) 379 (yahtml-define-instag-key "b1" "h1" map)
368 (yahtml-define-begend-key "b2" "h2" map) 380 (yahtml-define-instag-key "b2" "h2" map)
369 (yahtml-define-begend-key "b3" "h3" map) 381 (yahtml-define-instag-key "b3" "h3" map)
370 (yahtml-define-begend-key "ba" "a" map) 382 (yahtml-define-instag-key "ba" "a" map)
371 (yahtml-define-begend-key "bf" "form" map) 383 (yahtml-define-begend-key "bf" "form" map)
372 (yahtml-define-begend-key "bl" "label" map) 384 (yahtml-define-instag-key "bl" "label" map)
373 (yahtml-define-begend-key "bs" "select" map) 385 (yahtml-define-begend-key "bs" "select" map)
374 (yahtml-define-begend-key "bv" "div" map) 386 (yahtml-define-begend-key "bv" "div" map)
375 (yahtml-define-begend-key "bS" "span" map) 387 (yahtml-define-instag-key "bS" "span" map)
376 (yahtml-define-begend-key "bp" "pre" map) 388 (yahtml-define-begend-key "bp" "pre" map)
377 (yahtml-define-begend-key "bq" "blockquote" map) 389 (yahtml-define-begend-key "bq" "blockquote" map)
378 (YaTeX-define-key "b " 'yahtml-insert-begend map) 390 (YaTeX-define-key "b " 'yahtml-insert-begend map)
379 (YaTeX-define-key "B " 'yahtml-insert-begend-region map)) 391 (YaTeX-define-key "B " 'yahtml-insert-begend-region map))
380 (YaTeX-define-key "e" 'YaTeX-end-environment map) 392 (YaTeX-define-key "e" 'YaTeX-end-environment map)

yatex.org