41 lines
1 KiB
VimL
41 lines
1 KiB
VimL
|
let s:segment_mods = []
|
||
|
|
|
||
|
|
function! Pl#Mod#AddSegmentMod(action, properties) " {{{
|
||
|
|
call add(s:segment_mods, [a:action, a:properties])
|
||
|
|
endfunction " }}}
|
||
|
|
function! Pl#Mod#ApplySegmentMods(theme) " {{{
|
||
|
|
let theme = deepcopy(a:theme)
|
||
|
|
|
||
|
|
for mod in s:segment_mods
|
||
|
|
let [action, properties] = mod
|
||
|
|
|
||
|
|
" We have to loop through the segments instead of using index() because some
|
||
|
|
" segments are lists!
|
||
|
|
let target_seg_idx = -1
|
||
|
|
|
||
|
|
for i in range(0, len(theme) - 1)
|
||
|
|
unlet! segment
|
||
|
|
let segment = theme[i]
|
||
|
|
|
||
|
|
if type(segment) == type(properties.target_segment) && segment == properties.target_segment
|
||
|
|
let target_seg_idx = i
|
||
|
|
break
|
||
|
|
endif
|
||
|
|
endfor
|
||
|
|
|
||
|
|
if action == 'insert_segment'
|
||
|
|
" Insert segment
|
||
|
|
if target_seg_idx != -1
|
||
|
|
call insert(theme, properties.new_segment, (properties.where == 'before' ? target_seg_idx : target_seg_idx + 1))
|
||
|
|
endif
|
||
|
|
elseif action == 'remove_segment'
|
||
|
|
" Remove segment
|
||
|
|
if target_seg_idx != -1
|
||
|
|
call remove(theme, target_seg_idx)
|
||
|
|
endif
|
||
|
|
endif
|
||
|
|
endfor
|
||
|
|
|
||
|
|
return theme
|
||
|
|
endfunction " }}}
|