File: dictem-lingvo-dsl.el

package info (click to toggle)
dictem 1.0.4-4.1
  • links: PTS
  • area: main
  • in suites: bookworm, bullseye, sid
  • size: 172 kB
  • sloc: lisp: 1,661; sh: 38; makefile: 36
file content (67 lines) | stat: -rw-r--r-- 1,870 bytes parent folder | download | duplicates (3)
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
;; -*- coding: utf-8; -*- 

(require 'dictem)

(defun dictem-lingvo-dsl-highlight ()
  ; trn/ex/com/*
  (goto-char (point-min))
  (while (search-forward-regexp "\\[/?trn\\]\\|\\[/?p\\]\\|\\[/?c\\]\\|\\[/?com\\]\\|\\[/?[*]\\]\\|\\[/?b\\]\\|\\[/?i\\]\\|\\[/?m[0-9]?\\]\\|\\[/?ex\\]" nil t)
    (replace-match "" t t))

  ; [ex] [/ex]
;  (goto-char (point-min))
;  (while (search-forward-regexp "\\[ex\\]\\([][]*\\)\\[/ex\\]" nil t)
;    (add-text-properties (match-beginning 0) (match-end 0)
;			 '(face dictem-lingvo-dsl-example-face))
;    (let* ((beg (match-beginning 1))
;	   (end (match-end 1))
;	   (repl (buffer-substring beg end)))
;      (replace-match repl 1 1)))

  ; <<>>
  (goto-char (point-min))
  (while (search-forward-regexp "\\(<<\\|\\[ref\\]\\)\\([^\n]*\\)\\(>>\\|\\[/ref\\]\\)" nil t)
    (let* ((beg (match-beginning 2))
	   (end (match-end 2))
	   (repl (buffer-substring beg end)))
      (replace-match (concat "{" repl "}") t t)))

  ; hyperlinks
  (dictem-postprocess-definition-hyperlinks)
  )

(progn
  (set-buffer "*dsl-buffer*")
  (dictem-lingvo-dsl-highlight))

(defface dictem-lingvo-dsl-italic-face
  '((((background light)) (:italic true))
    (((background dark))  (:italic true)))
  "Face for italic"
  )

(defface dictem-lingvo-dsl-color-face
  '((((background light)) (:italic true))
    (((background dark))  (:italic true)))
  "Face for color"
  )

(defface dictem-lingvo-dsl-example-face
  '((((background light)) (:italic true))
    (((background dark))  (:italic true)))
  "Face for color"
  )

(defface dictem-lingvo-dsl-bold-face
  '((((background light)) (:bold true))
    (((background dark))  (:bold true)))
  "Face for bold"
  )

(defface dictem-lingvo-dsl-trn-face
  '((((background light)) (:bold true :italic true))
    (((background dark))  (:bold true :italic true)))
  "Face for trn"
  )

(provide 'dictem-lingvo-dsl)