1.1 --- a/yatexflt.el	Tue Jan 09 13:14:28 2018 +0900
     1.2 +++ b/yatexflt.el	Sat Jan 13 20:57:58 2018 +0900
     1.3 @@ -1,7 +1,7 @@
     1.4  ;;; yatexflt.el --- YaTeX filter command utilizer -*- coding: sjis -*-
     1.5  ;;; 
     1.6  ;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Sun Jan  7 11:38:12 2018 on firestorm
     1.8 +;;; Last modified Tue Jan  9 13:28:56 2018 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;;; Commentary:
    1.12 @@ -36,7 +36,60 @@
    1.13  ;;;	Then foo.pdf file will be generated and the image (as PNG) will
    1.14  ;;;	be displayed in the next window.
    1.15  
    1.16 +
    1.17  ;;; Code:
    1.18 +(require 'yatexlib)
    1.19 +(defvar YaTeX-filter-special-env-alist-default
    1.20 +  '((".blockdiag"
    1.21 +     "blockdiag -T %t -o %o -"
    1.22 +     "blockdiag {
    1.23 +  default_fontsize = 32;
    1.24 +  A -> B;
    1.25 +}")
    1.26 +    (".seqdiag" "seqdiag -T %t -o %o -"
    1.27 +     "seqdiag {
    1.28 +  client -> server [label = \"SYN\"];
    1.29 +  client <- server [label = \"SYN/ACK\"];
    1.30 +  client -> server [label = \"ACK\"];}")
    1.31 +    (".actdiag" "actdiag -T %t -o %o -"
    1.32 +     "actdiag {
    1.33 +  sayHo -> ho -> hohoho
    1.34 +  lane dj {
    1.35 +    label = \"DJ\"
    1.36 +    sayHo [label = \"Say Ho\"]; hohoho [label = \"Ho Ho Ho!\"]; }
    1.37 +  lane mc { label = \"MC\"; ho [label = \"Hooooh!\"]}}")
    1.38 +    (".nwdiag" "nwdiag -T %t -o %o -"
    1.39 +     "nwdiag {
    1.40 +  network ext {
    1.41 +    address = \"10.1.2.0/24\"
    1.42 +    router [address = \"10.1.2.1\"]
    1.43 +  }
    1.44 +  network int {
    1.45 +    address = \"192.168.22.0/24\"
    1.46 +    router [address = \"192.168.22.1\"]
    1.47 +    websrv [address = \"192.168.22.80\"]
    1.48 +    cli-1; cli-2
    1.49 +  }
    1.50 +}")
    1.51 +    (".rackdiag" "rackdiag -T %t -o %o -"
    1.52 +     "rackdiag {
    1.53 +  16U;
    1.54 +  1: UPS [4U]; 5: Storage [3U]; 8: PC [2U]; 8: PC [2U];
    1.55 +}")
    1.56 +    (".dot"
    1.57 +     "dot -T %t -o %o"
    1.58 +     "digraph {
    1.59 +  graph [charset=\"utf-8\"]
    1.60 +}
    1.61 +bigraph {
    1.62 +  graph [charset=\"utf-8\"]}"
    1.63 +     )))
    1.64 +
    1.65 +(defvar YaTeX-filter-special-env-alist-private nil)
    1.66 +(defvar YaTeX-filter-special-env-alist
    1.67 +  (append YaTeX-filter-special-env-alist-private
    1.68 +	  YaTeX-filter-special-env-alist-default))
    1.69 +
    1.70  (defun YaTeX-filter-filter-set-conversion-flag ()
    1.71    (let ((ovl (get 'YaTeX-filter-filter-sentinel 'overlay)))
    1.72      (if ovl				;; When successful conversion met,