blob: 61d3e5e7809fc05f1ea759cafcd8e1870acb5e72 (
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
|
(local options {
:colorscheme {:array false :options [:oxocarbon :monochrome :doom-one]}
:lsp {:array true}
:layout {:array false :options [:ide :quiet]}
:trans {:array false :options [:enable :disable]}})
(local options_k {})
(each [k v (pairs options)] (table.insert options_k k))
(lambda startswith [arr str]
(local end {})
(each [_ a (pairs arr)]
(when (= (a:sub 1 (# str)) str)
(table.insert end a)))
end)
(lambda trim [_str]
(var str _str)
(while (and (> (# str) 0) (= (str:sub 1 1) " ")) (set str (str:sub 2)))
(while (and (> (# str) 0) (= (str:sub -1 -1) " ")) (set str (str:sub 1 -2)))
str)
(lambda carray [str]
(local word [])
(each [w (str:gmatch "([^,]+)")] (table.insert word w))
word)
(lambda tarray [arr]
(var string "")
(each [_ a (pairs arr)]
(set string (.. string "," a)))
(string:sub 2))
(lambda nothing-if-false [bool _str]
(var str "")
(when bool (set str _str))
str)
(lambda nothing-if-nil [_str ...]
(var str "")
(when (not= _str nil) (set str (.. _str ...)))
str)
(lambda rem [oarr item]
(var arr [])
(each [_ a (pairs oarr)]
(print item a)
(when (not= item a)
(table.insert arr a)))
arr)
(vim.api.nvim_create_user_command "Settings"
(fn [opts]
(var (option item rest) (opts.args:match "(%w+)%s*(%w+)(.*)"))
(var action 0) ; 0 = set, 1 = add, 2 = remove
(case item
(where n (= n "add")) (set action 1)
(where n (= n "remove")) (set action 2))
(set rest (trim rest))
(when (= action 0) (tset _G.settings option (.. item (nothing-if-false (not= rest "") (.. " " rest)))))
(when (= action 1) (tset _G.settings option (.. (nothing-if-nil (?. _G.settings option) ",") rest)))
(when (= action 2) (tset _G.settings option (tarray (rem (carray (. _G.settings option)) rest))))
)
{:nargs 1 :complete (fn [arglead cmdline]
(local parsed [])
(each [o (string.gmatch cmdline "%S+")] (table.insert parsed o))
;add an extra element when creating a new element
(when (= (cmdline:sub -1) " ") (table.insert parsed " "))
(case (# parsed)
(where n (= n 2)) (startswith options_k arglead)
(where n (and (= n 3) (?. options (. parsed 2) :array))) (startswith [:add :remove] arglead)
(where n (and (= n 4) (= (. parsed 3) :remove))) (startswith (carray (. _G.settings (. parsed 2))) arglead)
(where n (and (>= n 3) (?. options (. parsed 2) :options)))
;only one for now, not sure what else i would add besides functions
(case (type (. options (. parsed 2) :options))
(where n (= n "table")) (startswith (. options (. parsed 2) :options) arglead))
))})
|
