Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatex.el @ 521:cef987df070f dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move main stuffs of SpecialFilter to yatexflt.el
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 09 Jan 2018 13:35:08 +0900
parents 668632d9392e
children 5bb46b7ab3de
comparison
equal deleted inserted replaced
520:52175326855d 521:cef987df070f
1 ;;; yatex.el --- Yet Another tex-mode for emacs //–ì’¹// -*- coding: sjis -*- 1 ;;; yatex.el --- Yet Another tex-mode for emacs //–ì’¹// -*- coding: sjis -*-
2 ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org] 2 ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org]
3 ;;; Last modified Sat Jan 6 22:52:02 2018 on firestorm 3 ;;; Last modified Tue Jan 9 13:30:45 2018 on firestorm
4 ;;; $Id$ 4 ;;; $Id$
5 ;;; The latest version of this software is always available at; 5 ;;; The latest version of this software is always available at;
6 ;;; https://www.yatex.org/ 6 ;;; https://www.yatex.org/
7 7
8 ;;; This program is distributed as a free software. You can 8 ;;; This program is distributed as a free software. You can
376 (append YaTeX-ams-math-begin-alist YaTeX-ams-math-gathering-alist) 376 (append YaTeX-ams-math-begin-alist YaTeX-ams-math-gathering-alist)
377 "*Standard AMS-LaTeX(2e) environment completion table.") 377 "*Standard AMS-LaTeX(2e) environment completion table.")
378 378
379 (defvar YaTeX-use-dot-env-extension t 379 (defvar YaTeX-use-dot-env-extension t
380 "*Use YaTeX's dot-env filter special environment.") 380 "*Use YaTeX's dot-env filter special environment.")
381 (defvar YaTeX-filter-special-env-alist-default
382 '((".blockdiag"
383 "blockdiag -T %t -o %o -"
384 "blockdiag {
385 default_fontsize = 32;
386 A -> B;
387 }")
388 (".seqdiag" "seqdiag -T %t -o %o -"
389 "seqdiag {
390 client -> server [label = \"SYN\"];
391 client <- server [label = \"SYN/ACK\"];
392 client -> server [label = \"ACK\"];}")
393 (".actdiag" "actdiag -T %t -o %o -"
394 "actdiag {
395 sayHo -> ho -> hohoho
396 lane dj {
397 label = \"DJ\"
398 sayHo [label = \"Say Ho\"]; hohoho [label = \"Ho Ho Ho!\"]; }
399 lane mc { label = \"MC\"; ho [label = \"Hooooh!\"]}}")
400 (".nwdiag" "nwdiag -T %t -o %o -"
401 "nwdiag {
402 network ext {
403 address = \"10.1.2.0/24\"
404 router [address = \"10.1.2.1\"]
405 }
406 network int {
407 address = \"192.168.22.0/24\"
408 router [address = \"192.168.22.1\"]
409 websrv [address = \"192.168.22.80\"]
410 cli-1; cli-2
411 }
412 }")
413 (".rackdiag" "rackdiag -T %t -o %o -"
414 "rackdiag {
415 16U;
416 1: UPS [4U]; 5: Storage [3U]; 8: PC [2U]; 8: PC [2U];
417 }")
418 (".dot"
419 "dot -T %t -o %o"
420 "digraph {
421 graph [charset=\"utf-8\"]
422 }
423 bigraph {
424 graph [charset=\"utf-8\"]}"
425 )))
426
427 (defvar YaTeX-filter-special-env-alist-private nil)
428 (defvar YaTeX-filter-special-env-alist
429 (append YaTeX-filter-special-env-alist-private
430 YaTeX-filter-special-env-alist-default))
431
432
433 381
434 ; Set tex-environment possible completion 382 ; Set tex-environment possible completion
435 (defvar env-table 383 (defvar env-table
436 (append 384 (append
437 '(("quote") ("quotation") ("center") ("verse") ("document") 385 '(("quote") ("quotation") ("center") ("verse") ("document")
453 ("alltt") ;defined in alltt 401 ("alltt") ;defined in alltt
454 ("multicols") ;defined in multicol 402 ("multicols") ;defined in multicol
455 ("breakbox"))) ;defined in eclbkbox 403 ("breakbox"))) ;defined in eclbkbox
456 (if YaTeX-use-AMS-LaTeX YaTeX-ams-env-table) 404 (if YaTeX-use-AMS-LaTeX YaTeX-ams-env-table)
457 YaTeX-math-other-env-alist 405 YaTeX-math-other-env-alist
458 (if YaTeX-use-dot-env-extension 406 (and YaTeX-use-dot-env-extension
459 '((".blockdiag") (".nwdiag") (".seqdiag") (".rackdiag") (".packetdiag") 407 (require 'yatexflt)
460 (".dot")) 408 YaTeX-filter-special-env-alist))
461 ))
462 "Default completion table for begin-type completion.") 409 "Default completion table for begin-type completion.")
463 410
464 (defvar user-env-table nil) 411 (defvar user-env-table nil)
465 (defvar tmp-env-table nil) 412 (defvar tmp-env-table nil)
466 413

yatex.org