diff options
| -rw-r--r-- | xroff.el | 50 |
1 files changed, 40 insertions, 10 deletions
@@ -6,20 +6,50 @@ (not ?>)))) ">")) +(defvar xroff--single-escape-regexp + (rx "\\" any)) + +(defvar xroff--identifier-escape-regexp + (rx "\\" + (any "FfgkmnOsYZ*$") + (? (any "+-")) + (or (not (any "([+-")) + (seq "(" any any) + (seq "[" (* (not "]")) "]")))) + +(defvar xroff--parameter-escape-regexp + (rx "\\" + (any "ABbCDHhLlMNoRSVvwXxz") + "'" (* (not "'")) "'")) + (defconst xroff-font-lock-keywords `(("<!--.*-->" (0 font-lock-comment-face)) - ("\\\\\\(.\\)" - (1 font-lock-builtin-face)) (,(concat xroff--request-regexp) (1 font-lock-keyword-face) (2 font-lock-string-face)) (,(concat "\\\\" xroff--request-regexp) (1 nil t) (2 nil t)) - ;; ("<FS\\(?: \\(?:\\\\>\\|[^>]\\)*\\)?>\\(.*?\\)<FE\\(?: \\(?:\\\\>\\|[^>]\\)*\\)?>" - ;; 1 font-lock-doc-string) - )) + (,xroff--parameter-escape-regexp + (0 xroff-escape-face)) + (,(concat "\\\\" xroff--parameter-escape-regexp) + (0 nil t)) + (,xroff--identifier-escape-regexp + (0 xroff-escape-face)) + (,(concat "\\\\" xroff--identifier-escape-regexp) + (0 nil t)) + (,xroff--single-escape-regexp + (0 xroff-escape-face)) + (,(concat "\\\\" xroff--single-escape-regexp) + (0 nil t)) + (,"\\\\\\\\" + (0 xroff-escape-face t)))) + +(defface xroff-escape + '((t (:foreground "gray"))) + "`xroff-mode' face used to highlight backslash escapes.") +(defvar xroff-escape-face 'xroff-escape) (define-derived-mode xroff-mode text-mode "Xroff" "Major mode for editing documents with xroff syntax." @@ -29,19 +59,19 @@ (setq-local paragraph-start "<\\([^>]\\)+>") (setq-local paragraph-separate "$\\|\\]>") (setq-local adaptive-fill-regexp "[ \t]*") - (add-hook 'fill-nobreak-predicate 'sgml-fill-nobreak nil t) - (setq-local indent-line-function 'sgml-indent-line) + ;; (add-hook 'fill-nobreak-predicate 'sgml-fill-nobreak nil t) + ;; (setq-local indent-line-function 'sgml-indent-line) (setq-local comment-start "<!-- ") (setq-local comment-end " -->") - (setq-local comment-indent-function 'sgml-comment-indent) - (setq-local comment-line-break-function 'sgml-comment-indent-new-line) + ;; (setq-local comment-indent-function 'sgml-comment-indent) + ;; (setq-local comment-line-break-function 'sgml-comment-indent-new-line) (setq-local skeleton-further-elements '((completion-ignore-case t))) (setq-local skeleton-end-hook (lambda () (or (eolp) (not (or (eq v2 '\n) (eq (car-safe v2) '\n))) (newline-and-indent)))) - (setq-local font-lock-defaults '((xroff-font-lock-keywords) nil t nil)) + (setq-local font-lock-defaults '((xroff-font-lock-keywords))) ;; (setq-local font-lock-multiline t) (setq-local comment-start-skip "<!--[ \t]*") (setq-local comment-end-skip "[ \t]*--[ \t\n]*>") |