Cross Reference: /hets/utils/el/hpf-mode.el

Lines Matching +defs:mode +defs:name
11 (defconst hpf-mode-version "0.1"
15   "Major mode for editing (heterogeneous) HPF specifications."
19 (defvar hpf-mode-hook nil)
20 (defvar hpf-mode-map (let ((keymap (make-keymap)))
23   "Keymap for HPF major mode")
31 ;; Syntax table for HPF major mode
32 (defvar hpf-mode-syntax-table nil
33   "Syntax table for HPF mode.")
35 (if hpf-mode-syntax-table
49     (setq hpf-mode-syntax-table table))
52 ;; Various mode variables.
78   "Face name to use for black komma.")
81    "HPF mode face for Annotations")
84 (defvar hpf-name-face 'hpf-name-face)
85 (setq hpf-name-face 'font-lock-variable-name-face)
90 (defvar hpf-library-name-face 'hpf-library-name-face)
91 (setq hpf-library-name-face 'font-lock-type-face)
99 (defvar hpf-other-name-face 'hpf-other-name-face)
101     (setq hpf-other-name-face 'hpf-blue-komma-face)
102   (setq hpf-other-name-face 'font-lock-function-name-face)
137      (3 (symbol-value 'hpf-other-name-face) keep t)
138      (5 (symbol-value 'hpf-other-name-face) keep t)
139      (7 (symbol-value 'hpf-other-name-face) keep t))
148      (2 (symbol-value 'hpf-library-name-face) keep t))
153      (2 (symbol-value 'hpf-other-name-face) keep t))
159      (3 (symbol-value 'hpf-other-name-face) keep t))
173   "Default syntax highlighting level in HPF mode")
176 ;; hpf major mode setup
177 ;; Definition of HPF major mode
178 (defun hpf-mode ()
179   "Major mode for editing HPF models"
182   (setq major-mode 'hpf-mode)
183   (setq mode-name "HPF")
185   (use-local-map hpf-mode-map)
187   (set-syntax-table hpf-mode-syntax-table)
197   (run-hooks 'hpf-mode-hook)
199 (provide 'hpf-mode)
201 ;; HPF-mode ends here