Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexflt.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 dfb71acdec98
children b1896ef49747
comparison
equal deleted inserted replaced
520:52175326855d 521:cef987df070f
1 ;;; yatexflt.el --- YaTeX filter command utilizer -*- coding: sjis -*- 1 ;;; yatexflt.el --- YaTeX filter command utilizer -*- coding: sjis -*-
2 ;;; 2 ;;;
3 ;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org] 3 ;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org]
4 ;;; Last modified Sun Jan 7 11:38:12 2018 on firestorm 4 ;;; Last modified Tue Jan 9 13:28:56 2018 on firestorm
5 ;;; $Id$ 5 ;;; $Id$
6 6
7 ;;; Commentary: 7 ;;; Commentary:
8 ;;; 8 ;;;
9 ;;; This lisp enables passing inline text to some external filter 9 ;;; This lisp enables passing inline text to some external filter
34 ;;; echo TEXT | dot -T pdf -o foo.pdf 34 ;;; echo TEXT | dot -T pdf -o foo.pdf
35 ;;; 35 ;;;
36 ;;; Then foo.pdf file will be generated and the image (as PNG) will 36 ;;; Then foo.pdf file will be generated and the image (as PNG) will
37 ;;; be displayed in the next window. 37 ;;; be displayed in the next window.
38 38
39
39 ;;; Code: 40 ;;; Code:
41 (require 'yatexlib)
42 (defvar YaTeX-filter-special-env-alist-default
43 '((".blockdiag"
44 "blockdiag -T %t -o %o -"
45 "blockdiag {
46 default_fontsize = 32;
47 A -> B;
48 }")
49 (".seqdiag" "seqdiag -T %t -o %o -"
50 "seqdiag {
51 client -> server [label = \"SYN\"];
52 client <- server [label = \"SYN/ACK\"];
53 client -> server [label = \"ACK\"];}")
54 (".actdiag" "actdiag -T %t -o %o -"
55 "actdiag {
56 sayHo -> ho -> hohoho
57 lane dj {
58 label = \"DJ\"
59 sayHo [label = \"Say Ho\"]; hohoho [label = \"Ho Ho Ho!\"]; }
60 lane mc { label = \"MC\"; ho [label = \"Hooooh!\"]}}")
61 (".nwdiag" "nwdiag -T %t -o %o -"
62 "nwdiag {
63 network ext {
64 address = \"10.1.2.0/24\"
65 router [address = \"10.1.2.1\"]
66 }
67 network int {
68 address = \"192.168.22.0/24\"
69 router [address = \"192.168.22.1\"]
70 websrv [address = \"192.168.22.80\"]
71 cli-1; cli-2
72 }
73 }")
74 (".rackdiag" "rackdiag -T %t -o %o -"
75 "rackdiag {
76 16U;
77 1: UPS [4U]; 5: Storage [3U]; 8: PC [2U]; 8: PC [2U];
78 }")
79 (".dot"
80 "dot -T %t -o %o"
81 "digraph {
82 graph [charset=\"utf-8\"]
83 }
84 bigraph {
85 graph [charset=\"utf-8\"]}"
86 )))
87
88 (defvar YaTeX-filter-special-env-alist-private nil)
89 (defvar YaTeX-filter-special-env-alist
90 (append YaTeX-filter-special-env-alist-private
91 YaTeX-filter-special-env-alist-default))
92
40 (defun YaTeX-filter-filter-set-conversion-flag () 93 (defun YaTeX-filter-filter-set-conversion-flag ()
41 (let ((ovl (get 'YaTeX-filter-filter-sentinel 'overlay))) 94 (let ((ovl (get 'YaTeX-filter-filter-sentinel 'overlay)))
42 (if ovl ;; When successful conversion met, 95 (if ovl ;; When successful conversion met,
43 (progn ;; (1)Set conversion complete flag 96 (progn ;; (1)Set conversion complete flag
44 (add-hook ;; (2)Add hook of seim-automatic 97 (add-hook ;; (2)Add hook of seim-automatic

yatex.org