Commit 9d8fd508 authored by Alexandre Duret-Lutz's avatar Alexandre Duret-Lutz
Browse files

* elisp/hoa-mode.el: Update from its master.

parent 6a64b080
......@@ -83,33 +83,37 @@
:group 'hoa-mode-faces)
(defconst hoa-alias-regex
"Regex for matching aliases.")
(defvar hoa-font-lock-keywords
'("\\_<[A-Z][a-zA-Z0-9_-]*:" . 'hoa-header-uppercase-face)
'("\\_<[a-z][a-zA-Z0-9_-]*:" . 'hoa-header-lowercase-face)
`(,hoa-alias-regex . 'hoa-alias-face)
'("\\_<--\\(BODY\\|END\\|ABORT\\)--" . 'hoa-keyword-face)
'("\\_<\\(Inf\\|Fin\\|t\\|f\\)\\_>" . 'hoa-builtin-face)
'("(\\s-*\\([0-9]+\\)\\s-*)" 1 'hoa-acceptance-set-face)
'("{\\(\\([0-9]\\|\\s-\\)+\\)}" 1 'hoa-acceptance-set-face)
(defvar hoa-font-lock-keywords-1
`(("\\_<--\\(:?BODY\\|END\\|ABORT\\)--" . 'hoa-keyword-face)
("\\_<\\(:?Inf\\|Fin\\|t\\|f\\)\\_>" . 'hoa-builtin-face)
("\\_<[A-Z][a-zA-Z0-9_.-]*:" . 'hoa-header-uppercase-face)
("\\_<[a-z][a-zA-Z0-9_.-]*:" . 'hoa-header-lowercase-face)
(,hoa-alias-regex . 'hoa-alias-face))
"Fontification rules for keywords, builtins, headers and aliases.")
(defvar hoa-font-lock-keywords-2
(append hoa-font-lock-keywords-1
`(("(\\s-*\\([0-9]+\\)\\s-*)" 1 'hoa-acceptance-set-face)
("{\\(\\([0-9]\\|\\s-\\)+\\)}" 1 'hoa-acceptance-set-face)
;; numbers between brackets denote atomic propositions.
(save-excursion (search-forward "]" nil t))
(0 'hoa-ap-number-face)))
;; likewise for numbers following an Alias: definition
`(,(concat "Alias:\\s-*" hoa-alias-regex)
(,(concat "Alias:\\s-*" hoa-alias-regex)
(concat "\\(" hoa-alias-regex "\\|[0-9|&!]\\|\\s-\\)+") nil t))
(concat "\\(" hoa-alias-regex
"\\|[0-9|&!]\\|\\_<[ft]\\_>\\|\\s-\\)+") nil t))
(0 'hoa-ap-number-face))))
"Hilighting rules for `hoa-mode'.")
(0 'hoa-ap-number-face)))))
"Complete fontification rules, including acceptance sets and AP numbers.")
(defvar hoa-mode-syntax-table
(let ((st (make-syntax-table)))
......@@ -117,6 +121,7 @@
(modify-syntax-entry ?> "." st)
(modify-syntax-entry ?| "." st)
(modify-syntax-entry ?_ "_" st)
(modify-syntax-entry ?. "_" st)
(modify-syntax-entry ?- "_" st)
(modify-syntax-entry ?$ "." st)
(modify-syntax-entry ?& "." st)
......@@ -192,11 +197,14 @@ put in `hoa-display-error-buffer' and shown."
(call-process-region b e shell-file-name nil (list dotbuf errfile)
nil shell-command-switch hoa-display-command)))
(when (equal 0 exit-status)
(let ((hoa-img (create-image (with-current-buffer dotbuf (buffer-string))
(let ((hoa-img (create-image (with-current-buffer dotbuf
'png t)))
(with-current-buffer (get-buffer-create hoa-display-buffer)
(setq buffer-read-only nil)
(insert-image hoa-img)
(setq buffer-read-only t)
(display-buffer (current-buffer)))))
(when (file-exists-p errfile)
(when (< 0 (nth 7 (file-attributes errfile)))
......@@ -217,13 +225,8 @@ put in `hoa-display-error-buffer' and shown."
"Keymap for `hoa-mode'.")
(defcustom hoa-mode-hook nil
"Hook run whenever `hoa-mode' is activated."
:group 'hoa-mode
:type 'hook)
;;;### autoload
(defun hoa-mode ()
(define-derived-mode hoa-mode fundamental-mode "HOA"
"Major mode for editing files in the Hanoi Omega Automata format.
See URL `' for a definition of that format.
......@@ -235,15 +238,10 @@ The following key bindings are installed in hoa-mode:
By default the `hoa-display-automaton-at-point' function requires
extra software (Spot and GraphViz), but can be configured to use
other tools. See that function for details."
(set-syntax-table hoa-mode-syntax-table)
(set (make-local-variable 'font-lock-defaults) '(hoa-font-lock-keywords))
(use-local-map hoa-mode-map)
(setq major-mode 'hoa-mode)
(setq mode-name "HOA")
(run-hooks 'hoa-mode-hook))
:group 'hoa-mode
(setq font-lock-defaults '((hoa-font-lock-keywords-1
(provide 'hoa-mode)
;;; hoa-mode.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment