838bfb2ae3
This implement several new options for --dot in order to allow emptiness sets to be output as colored ⓿ or ❶... Also add a SPOT_DOTDEFAULT environment variable. * NEWS, src/bin/man/spot-x.x, src/bin/common_aoutput.cc, src/bin/dstar2tgba.cc: Document the new options. * doc/org/.dir-locals.el, doc/org/init.el.in: Setup SPOT_DOTEXTRA and SPOT_DOTDEFAULT for all documents. * doc/org/autfilt.org, doc/org/dstar2tgba.org, doc/org/ltl2tgba.org, doc/org/ltldo.org, doc/org/oaut.org, doc/org/randaut.org, doc/org/satmin.org: Adjust to this new setup. * src/misc/escape.cc, src/misc/escape.hh (escape_html): New function. * src/tgba/acc.cc, src/tgba/acc.hh (to_text, to_html): New method. * src/tgbaalgos/dotty.cc: Implement the new options. * src/tgbatest/readsave.test, wrap/python/tests/automata.ipynb: More tests. * wrap/python/spot.py: Make sure the default argument for dotty_reachable is None, so that SPOT_DOTDEFAULT is honored.
37 lines
1.4 KiB
EmacsLisp
37 lines
1.4 KiB
EmacsLisp
((nil . ((whitespace-action auto-cleanup)
|
|
(whitespace-style face empty trailing lines-tail)
|
|
(require-final-newline . t)
|
|
(mode . whitespace)))
|
|
(org-mode . ((whitespace-style face empty trailing)
|
|
(eval .
|
|
(progn
|
|
(setq org-babel-sh-command (concat "PATH=../../src/bin"
|
|
path-separator
|
|
"$PATH sh"))
|
|
(setenv "SPOT_DOTDEFAULT" "brf(Lato)")
|
|
(setenv "SPOT_DOTEXTRA" "node[style=filled, fillcolor=\"#ffffa0\"]")
|
|
(org-babel-do-load-languages 'org-babel-load-languages
|
|
'((sh . t)
|
|
(python . t)
|
|
(dot . t)))))
|
|
(org-confirm-babel-evaluate . nil)
|
|
(org-babel-python-command . "/usr/bin/python3")
|
|
(org-publish-project-alist
|
|
. (("spot-html"
|
|
:base-directory "."
|
|
:base-extension "org"
|
|
:publishing-directory "../userdoc/"
|
|
:recursive t
|
|
:publishing-function org-publish-org-to-html
|
|
; Org 8
|
|
:html-head "<link rel=\"stylesheet\" type=\"text/css\" href=\"spot.css\" />"
|
|
; Org 7
|
|
:style "<link rel=\"stylesheet\" type=\"text/css\" href=\"spot.css\" />"
|
|
:auto-preamble t)
|
|
("spot-static"
|
|
:base-directory "."
|
|
:base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf"
|
|
:publishing-directory "../userdoc/"
|
|
:recursive t
|
|
:publishing-function org-publish-attachment)
|
|
("spot-all" :components ("spot-html" "spot-static")))))))
|