36 |
|
|
37 |
;; Customization: |
;; Customization: |
38 |
;; To your .emacs or site-start add: |
;; To your .emacs or site-start add: |
39 |
;; (autoload 'anubis-mode "Anubis-Config") |
;; (autoload 'anubis-mode "anubis-mode") |
40 |
;; (setq auto-mode-alist (append auto-mode-alist |
;; (setq auto-mode-alist (append auto-mode-alist |
41 |
;; '(("/.anubisrc$" . anubis-mode) |
;; '(("/.anubisrc$" . anubis-mode) |
42 |
;; ("/anubisrc$" . anubis-mode)))) |
;; ("/anubisrc$" . anubis-mode)))) |
470 |
"Checks the syntax of the current Anubis RC buffer. Optional argument |
"Checks the syntax of the current Anubis RC buffer. Optional argument |
471 |
specifies the detail level (from 0 to 3)." |
specifies the detail level (from 0 to 3)." |
472 |
(interactive "p") |
(interactive "p") |
473 |
(let ((compile-command compile-command)) |
(compile (concat |
474 |
(compile (concat |
(if anubis-path anubis-path "anubis") |
475 |
(if anubis-path anubis-path "anubis") |
" --check=" |
476 |
" --check=" |
(number-to-string (or current-prefix-arg 0)) |
477 |
(number-to-string (or current-prefix-arg 0)) |
" --norc --relax --altrc " |
478 |
" --norc --relax --altrc " |
(buffer-file-name)))) |
|
(buffer-file-name))))) |
|
479 |
|
|
480 |
|
|
481 |
|
|
490 |
(kill-all-local-variables) |
(kill-all-local-variables) |
491 |
(set-syntax-table anubis-mode-syntax-table) |
(set-syntax-table anubis-mode-syntax-table) |
492 |
(make-local-variable 'indent-line-function) |
(make-local-variable 'indent-line-function) |
493 |
|
(set (make-local-variable 'compile-command) "") |
494 |
(setq major-mode 'anubis-mode |
(setq major-mode 'anubis-mode |
495 |
mode-name "Anubis-Config" |
mode-name "Anubis-Config" |
496 |
local-abbrev-table anubis-mode-abbrev-table |
local-abbrev-table anubis-mode-abbrev-table |
503 |
(setq font-lock-defaults |
(setq font-lock-defaults |
504 |
'((anubis-font-lock-keywords) |
'((anubis-font-lock-keywords) |
505 |
nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun |
nil t (("+-*/.<>=!?$%_&~^:" . "w")) beginning-of-defun |
506 |
(font-lock-mark-block-function . mark-defun))) |
(font-lock-mark-block-function . mark-defun))) ) |
|
) |
|
507 |
|
|
508 |
(require 'info) |
(require 'info) |
509 |
(provide 'anubis-mode) |
(provide 'anubis-mode) |