(fn update-layout [new old]
  (when (and (not= old "") (not= old "none")) ((. (require (.. :layouts. old)) :disable)))
  (when (and (not= new "") (not= new "none")) ((. (require (.. :layouts. new)) :enable))))

(local options {
  :colorscheme {:array false :options [:oxocarbon :monochrome :doom-one] :update (fn [color] (vim.cmd (.. "colorscheme " color)))}
  :lsp {:array true}
  :layout {:array false :options [:ide :quiet] :update (fn [layout] (update-layout layout _G.settings.layout))}
  :trans {:array false :options [:enable :disable] :update (fn [en] ((. _G.opt (.. :trans- en))))}})

(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))
    
    ;call update before so the function can know the previous value
    (when (and (not= (. options option) nil) (not= (. options option :update) nil)) ((. options option :update) item 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))

    ))})