--- /dev/null
+;;; jgraph-mode.el --- Major mode for Jgraph files
+
+;; Copyright (C) 2006, 2011 Free Software Foundation, Inc
+
+;; Author: Stefan Monnier <monnier@iro.umontreal.ca>
+;; Keywords: tex, wp
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Simple editing mode for the Jgraph graph plotting tool.
+;; You can find more info at http://web.eecs.utk.edu/~plank/plank/jgraph/jgraph.html
+
+;;; Code:
+
+(defgroup jgraph-mode ()
+ "Major mode for Jgraph files."
+ :group 'tools)
+
+(defvar jgraph-mode-map
+ (let ((map (make-sparse-keymap)))
+ map)
+ "Keymap for `jgraph-mode'.")
+
+;; (easy-menu-define jgraph-mode-menu jgraph-mode-map
+;; "Menu for `jgraph-mode'."
+;; '("Jgraph"
+;; ["Do some stuff" jgraph-do-bar :active mark-active]
+;; "..."
+;; ["Do some other" jgraph-do-foo]
+;; ("Sub-jgraph"
+;; ["Haha" jgraph-crash])
+;; ...))
+
+(defvar jgraph-mode-syntax-table
+ (let ((st (make-syntax-table)))
+ ;; tokens are made of any non-whitespace chars.
+ (map-char-table (lambda (c v) (if (not (memq (car v) '(0 2 3)))
+ (modify-syntax-entry c "_" st)))
+ st)
+ (modify-syntax-entry ?\( "_ 1n" st)
+ (modify-syntax-entry ?\) "_ 4n" st)
+ (modify-syntax-entry ?\* "_ 23" st)
+ st)
+ "Syntax table for `jgraph-mode'.")
+
+(defun jgraph-extract-commands ()
+ (let ((sections nil)
+ (tok-cmds nil))
+ (goto-char (point-min))
+ (while (and (re-search-forward "^\\.RE" nil t)
+ (re-search-forward "^\\.B \\(.*\\)" nil t))
+ (let ((section (downcase (match-string 1)))
+ (commands nil)
+ (end (save-excursion
+ (and (re-search-forward "^\\.RE" nil t)
+ (match-beginning 0)))))
+ (setq section (replace-regexp-in-string "simple" "" section))
+ (setq section (replace-regexp-in-string "advanced" "" section))
+ (setq section (replace-regexp-in-string "editing" "" section))
+ (setq section (replace-regexp-in-string "commands" "" section))
+ (setq section (replace-regexp-in-string "\\\\" "" section))
+ (setq section (replace-regexp-in-string "\\` *" "" section))
+ (setq section (replace-regexp-in-string " *\\'" "" section))
+ (setq section (replace-regexp-in-string " " "-" section))
+ (setq section (intern section))
+ (while (re-search-forward "^\\.TP\n\\(?:\\.B \\|\\\\fB\\)\\([^ :\t\n\\]+\\)\\([ {\\fI]*token\\)?" end 'move)
+ (let ((cmd (match-string-no-properties 1)))
+ (if (match-end 2) (add-to-list 'tok-cmds cmd))
+ (add-to-list 'commands cmd)))
+ (setq commands (nreverse commands))
+ (let ((sec (assoc section sections)))
+ (if sec (nconc sec commands)
+ (push (cons section commands) sections)))))
+ (nreverse (cons (cons 'token tok-cmds) sections))))
+
+(defconst jgraph-commands
+ ;; Obtained by running (jgraph-extract-commands) in the jgraph.1 nroff doc.
+ '((top-level-description "newgraph" "graph" "copygraph" "newpage" "X" "Y"
+ "bbox" "preamble" "epilogue")
+ (graph "xaxis" "yaxis" "newcurve" "curve" "newline" "copycurve" "title"
+ "legend" "newstring" "string" "copystring" "border" "noborder"
+ "clip" "noclip" "inherit_axes" "x_translate" "y_translate" "X" "Y")
+ (axis "linear" "log" "min" "max" "size" "log_base" "hash" "shash" "mhash"
+ "precision" "hash_format" "label" "draw_at" "nodraw" "draw"
+ "grid_lines" "no_grid_lines" "mgrid_lines" "no_mgrid_lines" "gray"
+ "color" "grid_gray" "grid_color" "mgrid_gray" "mgrid_color" "hash_at"
+ "mhash_at" "hash_label" "hash_labels" "hash_scale"
+ "draw_hash_marks_at" "draw_hash_labels_at" "auto_hash_marks"
+ "no_auto_hash_marks" "auto_hash_labels" "no_auto_hash_labels"
+ "draw_axis" "no_draw_axis" "draw_axis_label" "no_draw_axis_label"
+ "draw_hash_marks" "no_draw_hash_marks" "draw_hash_labels"
+ "no_draw_hash_labels")
+ (curve "pts" "x_epts" "y_epts" "marktype" "marksize" "mrotate" "gray"
+ "color" "fill" "cfill" "pattern" "poly" "nopoly" "pfill" "pcfill"
+ "ppattern" "gmarks" "postscript" "eps" "larrows" "rarrows"
+ "nolarrows" "norarrows" "larrow" "rarrow" "nolarrow" "norarrow"
+ "asize" "afill" "apattern" "linetype" "glines" "linethickness"
+ "bezier" "nobezier" "clip" "noclip" "label")
+ (label "x" "y" "font" "fontsize" "linesep" "hjl" "hjc" "hjr" "vjt" "vjc"
+ "vjb" "rotate" "lgray" "lcolor")
+ (legend "on" "off" "linelength" "linebreak" "midspace" "defaults" "left"
+ "top" "bottom" "x" "y" "custom")
+ (hash-label "at")
+ ;; Commands that can be followed by a token.
+ (token "apattern" "eps" "postscript" "ppattern" "pattern" "hash_format"
+ "epilogue" "preamble")))
+
+(defconst jgraph-file-include-commands
+ '("include" "preamble" "epilogue" "postscript" "eps"))
+
+(defvar jgraph-font-lock-keywords
+ `((,(concat "\\_<" (regexp-opt jgraph-file-include-commands)
+ "[ \t]+\\(\\sw+\\)")
+ (1 font-lock-constant-face))
+ (,(concat "^" (regexp-opt
+ (cdr (assoc 'top-level-description jgraph-commands)))
+ "\\_>")
+ . font-lock-function-name-face)
+ (,(concat "\\_<"
+ (regexp-opt (cons "include"
+ (apply 'append (mapcar 'cdr jgraph-commands))))
+ "\\_>") . font-lock-keyword-face)
+ )
+ "Keyword highlighting specification for `jgraph-mode'.")
+
+;; (defvar jgraph-imenu-generic-expression
+;; '(("Vars" "^defvar[ \t]+\\(\\(\\sw\\|\\s_\\)+\\)" 1)
+;; (nil "^function[ \t]+\\(\\(\\sw\\|\\s_\\)+\\)" 1)
+;; ...)
+;; "Regex patterns for the index menu of `jgraph-mode'.")
+
+;; (defvar jgraph-outline-regexp "(\\|;;;+"
+;; "Regexp for `outline-minor-mode' in `jgraph-mode'.")
+
+;; Abbreviations and Skeletons
+
+;; (define-skeleton jgraph-insert-if
+;; "Jgraph mode skeleton for if..then expressions."
+;; nil
+;; "if " _ \n "then " _ \n "else " _ \n "fi" \n)
+
+;; (define-skeleton jgraph-insert-begend
+;; "Jgraph mode skeleton for begin<x>...end<x> expressions."
+;; "Block name: "
+;; "begin<" str ">" \n _ \n "end<" str ">" \n)
+
+;; (define-abbrev-table 'jgraph-mode-abbrev-table
+;; '(("if" "" jgraph-insert-if nil t)
+;; ("cwcc" "call-with-current-continuation" nil nil t)
+;; ("begin" "" jgraph-insert-begend nil t)
+;; ))
+
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.jgr\\'" . jgraph-mode))
+
+;;;###autoload
+(define-derived-mode jgraph-mode prog-mode "Jgraph"
+ "A major mode for editing Jgraph files."
+ (set (make-local-variable 'comment-start) "(* ")
+ (set (make-local-variable 'comment-start-skip) "\\_<(\\*\\_>[ \t]*")
+ (set (make-local-variable 'comment-end) " *)")
+ (set (make-local-variable 'comment-start-skip) "[ \t]*\\_<\\*)\\_>")
+ (set (make-local-variable 'font-lock-defaults)
+ '(jgraph-font-lock-keywords))
+ (set (make-local-variable 'syntax-propertize-function)
+ (syntax-propertize-rules
+ ;; FIXME: naive(broken) multiline pattern.
+ ("\\s-\\(:\\)\\s-\\(?:.*\\\\\n\\)*.*\\(\n\\)" (1 "|") (2 "|"))))
+ (set (make-local-variable 'indent-line-function) 'jgraph-indent-line)
+ ;; (set (make-local-variable 'imenu-generic-expression)
+ ;; jgraph-imenu-generic-expression)
+ ;; (set (make-local-variable 'outline-regexp) jgraph-outline-regexp)
+ )
+
+;;; Indentation
+
+(defcustom jgraph-indent-offset 4
+ "Basic indentation step size in `jgraph-mode'."
+ :group 'jgraph-mode
+ :type 'integer)
+
+(defun jgraph-indent-line ()
+ "Indent current line of Jgraph code."
+ (interactive)
+ (let* ((savep (point))
+ (indent (or (with-demoted-errors
+ (save-excursion
+ (forward-line 0)
+ (skip-chars-forward " \t")
+ (if (>= (point) savep) (setq savep nil))
+ (jgraph-indent-calculate)))
+ 'noindent)))
+ (if (not (numberp indent))
+ indent
+ (setq indent (max indent 0))
+ (if savep
+ (save-excursion (indent-line-to indent))
+ (indent-line-to indent)))))
+
+(defun jgraph-indent-calculate ()
+ "Return the column to which the current line should be indented."
+ (save-excursion
+ (skip-chars-forward " \t")
+ (or (when (looking-at (concat (regexp-opt
+ (cdr (assoc 'top-level-description
+ jgraph-commands)))
+ "\\_>"))
+ 0)
+ 'noindent)))
+
+(provide 'jgraph-mode)
+;;; jgraph-mode.el ends here