Vim: Scrolling through colorschemes with Alt + MouseWheel

" For completeness, Ctrl + MouseWheel font zooming from this other code: https://pastebin.com/yLqkSd6p

" WARNING: If you scroll too fast you will get a seizure.

" Bind Alt + MouseWheel to cycle color schemes {{{

" Online post: https://pastebin.com/8uxUNfKL

let g:colorschemes = sort(getcompletion('', 'color'), 'i') " SOURCE: https://stackoverflow.com/a/63059578 # GetColorSchemes()
let g:current_colorscheme_index = 0

function! CycleColorSchemes(direction)
    let g:current_colorscheme_index = (g:current_colorscheme_index + a:direction + len(g:colorschemes)) % len(g:colorschemes)
    call ResetColorScheme() " Fix for issue where not all color schemes clear colors defined by other color schemes.
    exec 'colorscheme ' . g:colorschemes[g:current_colorscheme_index]
    " Display the current color scheme name.
    " if exists('g:colors_name')
    "     redraw | echomsg g:colors_name
    " endif
    "
    " Instead of relying on g:colors_name (which can be the same for different versions of a theme or undefined) this is more reliable.
    redraw | echomsg g:colorschemes[g:current_colorscheme_index]
endfunction

function! ResetColorScheme()
    " SOURCE: https://www.reddit.com/r/vim/comments/5pwohr/comment/dcugrge/?utm_source=share&utm_medium=web3x&utm_name=web3xcss&utm_term=1&utm_content=share_button
    set background=dark
    hi clear
    if exists("syntax_on")
        syntax reset
    endif
endfunction

nnoremap <silent> <A-ScrollWheelDown> :<C-u>call CycleColorSchemes(+1)<CR>
inoremap <silent> <A-ScrollWheelDown> <Esc>:<C-u>call CycleColorSchemes(+1)<CR>
vnoremap <silent> <A-ScrollWheelDown> <Esc>:<C-u>call CycleColorSchemes(+1)<CR>
cnoremap <silent> <A-ScrollWheelDown> <Esc>:<C-u>call CycleColorSchemes(+1)<CR>
onoremap <silent> <A-ScrollWheelDown> <Esc>:<C-u>call CycleColorSchemes(+1)<CR>

nnoremap <silent> <A-ScrollWheelUp> :<C-u>call CycleColorSchemes(-1)<CR>
inoremap <silent> <A-ScrollWheelUp> <Esc>:<C-u>call CycleColorSchemes(-1)<CR>
vnoremap <silent> <A-ScrollWheelUp> <Esc>:<C-u>call CycleColorSchemes(-1)<CR>
cnoremap <silent> <A-ScrollWheelUp> <Esc>:<C-u>call CycleColorSchemes(-1)<CR>
onoremap <silent> <A-ScrollWheelUp> <Esc>:<C-u>call CycleColorSchemes(-1)<CR>

" }}} Bind Alt + MouseWheel to cycle color schemes

" Over 300 colorschemes so you have a few to scroll through:

" SOURCE: https://github.com/rafi/awesome-vim-colorschemes
Plug 'rafi/awesome-vim-colorschemes'

" SOURCE: https://github.com/mcchrish/vim-no-color-collections
Plug 'andreasvc/vim-256noir'
Plug 'Alligator/accent.vim'
Plug 'plan9-for-vimspace/acme-colors'
Plug 'huyvohcmc/atlas.vim'
Plug 'LuRsT/austere.vim'
Plug 'chriskempson/base16-vim'
Plug 't184256/vim-boring'
Plug '~romainl/vim-bruin'
Plug 'aditya-azad/candle-grey'
Plug 'ntk148v/komau.vim'
Plug 'davidosomething/vim-colors-meh'
Plug 'pbrisbin/vim-colors-off'
Plug 'andreypopp/vim-colors-plain'
Plug 'owickstrom/vim-colors-paramount'
Plug 'reedes/vim-colors-pencil'
Plug 'Jorengarenar/vim-darkness'
Plug 'KKPMW/distilled-vim'
Plug 'jaredgorski/fogbell.vim'
Plug 'zekzekus/menguless'
Plug 'jaredgorski/Mies.vim'
Plug 'fxn/vim-monochrome'
Plug 'koron/vim-monochromenote'
Plug 'Lokaltog/vim-monotone'
" TODO: This repo isn't set up as a vim plugin.
" Plug 'bdd/noclown.vim'
Plug 'robertmeta/nofrils'
Plug 'n1ghtmare/noirblaze-vim'
Plug 'YorickPeterse/vim-paper'
Plug 'ajgrf/parchment'
Plug 'widatama/vim-phoenix'
Plug 'axvr/photon.vim'
Plug 'ewilazarus/preto'
Plug 'stefanvanburen/rams.vim'
Plug 'kadekillary/skull-vim'
Plug 'nikolvs/vim-sunbather'
Plug 'ryanpcmcquen/true-monochrome_vim'
Plug 'hardselius/warlock'
Plug 'pgdouyon/vim-yin-yang'
Plug 'danishprakash/vim-yami'
Plug 'cideM/yui'
Plug 'zaki/zazen'
Plug 'mcchrish/zenbones.nvim'
Plug 'vim-scripts/zenesque.vim'
" NOTE: Needs lua to work.
" Plug 'kvrohit/rasmus.nvim'