summaryrefslogtreecommitdiff
path: root/rc/filetype/ttl.kak
blob: cab3f61637a379183222f6115781ab0cd09ebb27 (plain)
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
# Terse RDF Triple Language (Turtle)
# of the W3C's Resource Description Framework (RDF):
# https://www.w3.org/TR/turtle/

# Detection
# ‾‾‾‾‾‾‾‾‾

hook global BufCreate .*\.(ttl) %{
    set-option buffer filetype ttl
}

# Initialization
# ‾‾‾‾‾‾‾‾‾‾‾‾‾‾

hook global WinSetOption filetype=ttl %{
    require-module ttl

    hook window ModeChange pop:insert:.* -group ttl-trim-indent ttl-trim-indent
    hook window InsertChar \n -group ttl-insert ttl-insert-on-new-line
    hook window InsertChar \n -group ttl-indent ttl-indent-on-new-line

    hook -once -always window WinSetOption filetype=.* %{ remove-hooks window ttl-.+ }
}

hook -group ttl-highlight global WinSetOption filetype=ttl %{
    add-highlighter window/ttl ref ttl
    hook -once -always window WinSetOption filetype=.* %{ remove-highlighter window/ttl }
}


provide-module ttl %{

# Highlighters
# ‾‾‾‾‾‾‾‾‾‾‾‾

add-highlighter shared/ttl regions
add-highlighter shared/ttl/code default-region group

add-highlighter shared/ttl/comment region '#+\h'   $           fill comment
add-highlighter shared/ttl/string1 region  '"""' (?<!\\)(\\\\)*"""(?!") fill string
add-highlighter shared/ttl/string2 region  "'''" "'''(?!')"             fill string
add-highlighter shared/ttl/string3 region  '"'   (?<!\\)(\\\\)*"        fill string
add-highlighter shared/ttl/string4 region  "'"   "'"                    fill string

add-highlighter shared/ttl/code/comment2  regex '^\h*(#+)$'                1:comment
add-highlighter shared/ttl/code/colon     regex (:)                        1:operator
add-highlighter shared/ttl/code/separator regex ([\;\.,<>\[\]\(\)])        1:delimiter
add-highlighter shared/ttl/code/term      regex :(w+)\b                    1:variable
add-highlighter shared/ttl/code/prefix    regex \b([-.\w]+):               1:module
add-highlighter shared/ttl/code/def       regex (@\w+)\b                   1:attribute
add-highlighter shared/ttl/code/cdef      regex \b(BASE|PREFIX)\b          1:attribute
add-highlighter shared/ttl/code/type      regex (\^\^)                     1:type
add-highlighter shared/ttl/code/bool      regex \b(true|false)\b           1:value
add-highlighter shared/ttl/code/num       regex \b([+-]?[0-9]+\.*[0-9]*)\b 1:value
add-highlighter shared/ttl/code/keyword   regex \b(_|a)\b                  1:keyword
# Last position, to override single characters.
add-highlighter shared/ttl/code/IRI       regex <(\H*)>                    1:identifier


# Commands
# ‾‾‾‾‾‾‾‾

define-command -hidden ttl-trim-indent %{
    # remove trailing white spaces
    try %{ execute-keys -draft -itersel x s \h+$ <ret> d }
}

define-command -hidden ttl-insert-on-new-line %{
    evaluate-commands -draft -itersel %{
        # copy # comments prefix and following white spaces
        try %{ execute-keys -draft k x s ^\h*\K#\h* <ret> y gh j P }
    }
}

define-command -hidden ttl-indent-on-new-line %{
    evaluate-commands -draft -itersel %{
        # preserve previous line indent
        try %{ execute-keys -draft <semicolon> K <a-&> }
        # filter previous line
        try %{ execute-keys -draft k : ttl-trim-indent <ret> }
    }
}

}