xcompose-mode.el


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

;; Blah blah add headers here.
;; Playing with the notion of a major mode for .XCompose files.
;; Maybe eventually smart enough to keep columns lined up.
;; For now, settling for pretty colors.
 
(defface xcompose-angle-face
  '((t (:inherit font-lock-keyword-face)))
  "Face for the <>s"
  :group 'xcompose-mode)
 
(defface xcompose-keys-face
  '((t (:inherit font-lock-constant-face)))
  "Face for the key names"
  :group 'xcompose-mode)
 
(defface xcompose-string-face
  '((t (:inherit font-lock-string-face
                 :height 1.2
                 :box "black")))
  "Face for the strings.  Not straight font-lock-string-face in case I want
to make it big or something."
  :group 'xcompose-mode)
(defface xcompose-quotemark-face
  '((t (:inherit font-lock-string-face
                 :foreground "dark orchid")))
  "Face for quotes around strings"
  :group 'xcompose-mode)
 
(defface xcompose-num-face
  '((t (:inherit font-lock-preprocessor-face :weight bold)))
  "Face for the hex numbers"
  :group 'xcompose-mode)
 
(defface xcompose-U-face
  '((t (:inherit font-lock-preprocessor-face)))
  "Face for the U before the hex numbers"
  :group 'xcompose-mode)
 
(defface xcompose-colon-face
  '((t (:inherit bold)))
  "Face for the \":\"."
  :group 'xcompose-mode)
 
 
(defvar xcompose-mode-syntax-table
  (let ((st (make-syntax-table text-mode-syntax-table)))
    (modify-syntax-entry ?< "(>  " st)
    (modify-syntax-entry ?> ")<  " st)
    (modify-syntax-entry ?# "<   " st)
    (modify-syntax-entry ?_ "_   " st)
    (modify-syntax-entry ?\n ">   " st)
    st)
  "Syntax table for xcompose-mode")
 
(defvar xcompose-mode-map
  (let ((map (make-sparse-keymap)))
    ;; ADD BINDINGS
    map)
  "Keymap for xcompose-mode")
 
(defvar xcompose-font-lock-keywords
  '(
    ("[<>]" . 'xcompose-angle-face)
    ("<\\([a-zA-Z0-9_]*\\)>" . (1 'xcompose-keys-face))
    ;; ("\"[^\"]*\"" . 'xcompose-string-face)
    ("\"\\([^\"]*\\)\"" . (1 'xcompose-string-face))
    ("\"" . 'xcompose-quotemark-face)
    ("\\(U\\)\\([0-9A-Fa-f]*\\)" .
     ((1 'xcompose-U-face) (2 'xcompose-num-face)))
    (":" . 'xcompose-colon-face)
    (" #.*" . 'glyphless-char)
    ))
 
(define-derived-mode xcompose-mode text-mode "XCompose"
  "Major mode for .XCompose files"
  (font-lock-add-keywords nil xcompose-font-lock-keywords)
  (setq-local comment-start "#")
  (setq-local comment-end "\n")
  (setq-local comment-continue " *")
  (setq-local comment-start-skip "/[*/]+[ \t]*")
  (setq-local comment-end-skip "[ \t]*\\(?:\n\\|\\*+/\\)")
  ;; Bizarrely enough, this actually works.
  ;; But I think I might not want to use it.
  ;; (setq-local font-lock-comment-face
  ;;             '(:height 0.95 :inherit font-lock-comment-face))
  ;; But lighten the color a little, since there's so much comment text...
  (setq-local font-lock-comment-face
              '(:inherit font-lock-comment-face :foreground "light coral"))
  )