Mercurial > urweb

comparison src/elisp/urweb-mode.el @ 362:24a31b35e08f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Reusable column handlers for Crud
author Adam Chlipala <adamc@hcoop.net>
date Tue, 14 Oct 2008 17:18:59 -0400
parents c1e96b387115
children 9d81597e03e8
comparison
equal deleted inserted replaced
361:260b680a6a04 362:24a31b35e08f
195 nil 195 nil
196 face)) 196 face))
197 197
198 (defconst urweb-font-lock-keywords 198 (defconst urweb-font-lock-keywords
199 `(;;(urweb-font-comments-and-strings) 199 `(;;(urweb-font-comments-and-strings)
200 ("\\(<\\sw+\\)\\(\\s-\\|\\sw\\|=\\|\"[^\"]*\"\\|{[^}]*}\\)*/?\\(>\\)" 200 ("\\(<\\sw+\\)\\(\\s-\\|\\sw\\|=\\|\"[^\"]*\"\\|{[^}]*}\\)*\\(/?>\\)"
201 (1 font-lock-tag-face) 201 (1 font-lock-tag-face)
202 (3 font-lock-tag-face)) 202 (3 font-lock-tag-face))
203 ("\\(</\\sw+>\\)" 203 ("\\(</\\sw+>\\)"
204 (1 font-lock-tag-face)) 204 (1 font-lock-tag-face))
205 ("\\([^<>{}]+\\)" 205 ("\\([^<>{}]+\\)"
348 348
349 ;;; MORE CODE FOR URWEB-MODE 349 ;;; MORE CODE FOR URWEB-MODE
350 350
351 ;;;###autoload (add-to-list 'load-path (file-name-directory load-file-name)) 351 ;;;###autoload (add-to-list 'load-path (file-name-directory load-file-name))
352 ;;;###autoload 352 ;;;###autoload
353 (add-to-list 'auto-mode-alist '("\\.s\\(ml\\|ig\\)\\'" . urweb-mode)) 353 (add-to-list 'auto-mode-alist '("\\.urs?\\'" . urweb-mode))
354 354
355 ;;;###autoload 355 ;;;###autoload
356 (define-derived-mode urweb-mode fundamental-mode "Ur/Web" 356 (define-derived-mode urweb-mode fundamental-mode "Ur/Web"
357 "\\<urweb-mode-map>Major mode for editing Ur/Web code. 357 "\\<urweb-mode-map>Major mode for editing Ur/Web code.
358 This mode runs `urweb-mode-hook' just before exiting. 358 This mode runs `urweb-mode-hook' just before exiting.