vim9script
# gVim version checking is done in .vimrc/_vimrc - no version is check needed
#
# 01 Windows, WSL, GUI options {{{
# ----------------------------------------------------------------------------
# GUI toolbar
# ----------------------------------------------------------------------------
if has("toolbar")
  if len(split(execute('amenu ToolBar'), '\n')) > 0
    aunmenu ToolBar
  endif
  anoremenu 1.10 ToolBar.Open :browse confirm e<CR>
  tmenu ToolBar.Open Open file
  anoremenu 1.20 ToolBar.Mks :execute "browse mksession! " ..
        \ strftime("%Y-%m-%d")<CR>
  tmenu ToolBar.Mks Save current session
  anoremenu 1.30 ToolBar.Run :browse source<CR>
  tmenu ToolBar.Run Run a Vim Script / Load a session
  if has("printer") && !has("unix")
    anoremenu 1.40 ToolBar.Print :hardcopy<CR>
    vnoremenu ToolBar.Print :hardcopy<CR>
  elseif has("unix")
    anoremenu 1.40 ToolBar.Print :w !lpr<CR>
    vnoremenu ToolBar.Print :w !lpr<CR>
  endif
  tmenu ToolBar.Print Print
  anoremenu 1.45 ToolBar.-sep1- <Nop>
  anoremenu 1.50 ToolBar.Undo u
  tmenu ToolBar.Undo Undo
  anoremenu 1.60 ToolBar.Redo <C-R>
  tmenu ToolBar.Redo Redo
  anoremenu 1.65 ToolBar.-sep2- <Nop>
  vnoremenu 1.70 ToolBar.Cut "+x
  tmenu ToolBar.Cut Cut to clipboard
  vnoremenu 1.80 ToolBar.Copy "+y
  cnoremenu 1.80 ToolBar.Copy <C-Y>
  tmenu ToolBar.Copy Copy to clipboard
  nnoremenu 1.90 ToolBar.Paste "+gP
  cnoremenu 1.90 ToolBar.Paste <C-R>+
  silent! execute 'vnoremenu <script> ToolBar.Paste ' .. paste#paste_cmd['v']
  silent! execute 'inoremenu <script> ToolBar.Paste ' .. paste#paste_cmd['i']
  tmenu ToolBar.Paste Paste from Clipboard
  anoremenu 1.95 ToolBar.-sep3- <Nop>
  anoremenu <silent> 1.100 ToolBar.Spell :let &spell = &spell==0 ? 1 : 0<CR>
  tmenu ToolBar.Spell Toggle spell checking
  anoremenu <silent> 1.110 ToolBar.SpellNext ]s
  tmenu ToolBar.SpellNext Next misspelled word
  anoremenu 1.115 ToolBar.-sep4- <Nop>
  anoremenu 1.120 ToolBar.Menu :execute "if &guioptions=~'m' \| " ..
        \ "set guioptions-=m \| else \| set guioptions+=m \| endif"<CR>
  tmenu ToolBar.Menu Toggle menu
endif
#}}}
# 02 Highlights {{{
g:tene_hi = exists('g:tene_hi') ? g:tene_hi : {}
g:zline_hi = exists('g:zline_hi') ? g:zline_hi : {}
# 02.1 Retrobox {{{2
def g:Retrobox(): void
  colorscheme retrobox
  &background = 'dark'
  g:tene_mode = 0
  g:zline_mode = false
  hi! StatusLineTerm term=bold,reverse cterm=bold ctermfg=0 ctermbg=10 gui=bold guifg=bg guibg=#98971a
  hi! link StatusLineTermNC Search
  g:tene_hi['c'] = 'StatusLineTermNC'
  g:tene_hi['i'] = 'DiffText'
  g:tene_hi['n'] = 'MessageWindow'
  g:tene_hi['r'] = 'IncSearch'
  g:tene_hi['v'] = 'Visual'
  g:zline_hi['c'] = 'StatusLineTermNC'
  g:zline_hi['i'] = 'DiffText'
  g:zline_hi['n'] = 'MessageWindow'
  g:zline_hi['r'] = 'IncSearch'
  g:zline_hi['v'] = 'Visual'
  hi ModeMsg term=bold cterm=bold gui=bold guifg=darkgrey
  # See Himod(), which ensures darkorange/orange + indicator
enddef
# 2}}}
# }}}
# 03 Settings (global) {{{
#   columns  Set columns to 80 + 1 (colorcolumn) + 5 (number) + 1 (foldcolumn)
set columns=87
#   guicursor=  Accept the defaults as they are pretty good
# Set gvim-specific font to ensure display of special characters.  For WSL the
# font can be set in WSL Properties dialog (and obviously the font installed).
# https://www.nerdfonts.com/font-downloads
# https://mutsuntsai.github.io/fontfreeze/
# For GUI, prefer my frozen version, otherwise use FiraCode NFM Regular
if has('gui_gtk3')
  set guifont=FiraCode\ Nerd\ Font\ Mono\ Freeze\ 12
  set guifont+=FiraCode\ Nerd\ Font\ Mono\ Regular\ 12
elseif has('gui_win32')
  set guifont=FiraCode_Nerd_Font_Mono_Freeze:h12
  set guifont+=FiraCode_Nerd_Font_Mono_Regular:h12
endif
#   guifontset=  Not used, not needed
#   guiligatures=  Not used, and only applicable to GTK GUI
#   guioptions=  Extend guioptions to....  Refer :h 'guioptions'
set guioptions+=!abceghLmrtT
#   ...but then remove it (use toolbar to toggle Menu)...
set guioptions-=m
#   !	External commands are executed in a terminal window
#   a	Autoselect:  When VISUAL mode is started/or the Visual area extended,
#       Vim tries to become the owner of the system's global selection
#   b	Bottom (horizontal) scrollbar is present
#   c	Use console dialogs instead of popup dialogs for simple choices
#   e	Add tab pages when indicated with 'showtabline'
#   g	Grey menu items: Make menu items that are not active grey
#   h	Limit horizontal scrollbar size to the length of the cursor line
#   L	Left-hand scrollbar is present when there is a vertically split window
#   m	Menu bar is present
#   r	Right-hand scrollbar is always present
#   t	Include tearoff menu items
#   T	Include Toolbar
# customise, useful, tabline - best with vim-tene statusline combination
# customise, useful, tabline - best with vim-zline statusline combination
#   guipty  Default used
set guitablabel=%{%join(tabpagebuflist('%'),'\ ˙\ ')..'\ %t'%}
#   guitabtooltip  Consider using this.  Maybe a function; make it useful?
# set renderoptions - :h 'renderoptions'
#      'only available when compiled with GUI and DIRECTX on MS-Windows'
#      See 06 Mappings, below - it has a toggleable Leader option
#      The reason for this is that although certainly the
#      'drawn glyphs more beautiful than default GDI', meaning things
#      like coloured emoji are awesome, I hate ligatures in coding
#      fonts, so having the option to toggle this is the go.
# All of these are in the .vimrc / _vimrc.  There are none needed here
#   titlestring= This is also set in .vimrc, but it's overridden for gvim here
set titlestring=%{expand(\"%:p\")}\ %{&modified&&&buftype!='terminal'?'\ +':''}%{&readonly?'\ RO':''}%{(!&modifiable&&mode()!=#'t')?'\ -':''}%{&buftype=='help'?'\ HLP':''}
# Use PowerShell 7 for the default terminal when using Windows 11 / win64 gVim
if has('win64')
  set shell=pwsh
endif
# }}}
# 04 Commands {{{
#
#   CCC   OOO    MM MM    MM MM    AA   NNN   DDD   SSS
#  C     O   O  M  M  M  M  M  M  A  A  N  N  D  D  S
#  C     O   O  M  M  M  M  M  M  AAAA  N  N  D  D  SSS
#  C     O   O  M  M  M  M  M  M  A  A  N  N  D  D    S
#   CCC   OOO   M  M  M  M  M  M  A  A  N  N  DDD   SSS
#
# Provide for easy switching between my preferred fonts (depending on context)
g:FiraCode = &guifont
g:DejaVu = 'DejaVuSansM_Nerd_Font_Mono:h12'
g:Iosevka = 'Iosevka_Fixed_SS05:h12'
g:IosevkaWide = 'Iosevka_Fixed_SS05_Extended:h12'
# https://github.com/be5invis/Iosevka/blob/v31.7.1/doc/PACKAGE-LIST.md
# TTF zip: Regular, Bold; Extended, ExtendedBold
# [tried; v. narrow;] g:IosevkaNFM = 'Iosevka_NFM:h14:cANSI:qDRAFT'
command Fontd [&guifont, &guifontwide] = [g:DejaVu, '']
command Fontf [&guifont, &guifontwide] = [g:FiraCode, '']
command Fonti [&guifont, &guifontwide] = [g:Iosevka, g:IosevkaWide]
command Default colorscheme default
command Retrobox g:Retrobox()
# }}}
# 05 Functions {{{
# 05.10 Font Size {{{2
#
#     Δ       FFFF   OOO   NNN  TTT     SSS III ZZZZ  EEEE
#    Δ Δ      F     O   O  N  N  T     S     I    ZZ  E
#   Δ   Δ     FFFF  O   O  N  N  T      SSS  I   ZZ   EEE
#  Δ     Δ    F     O   O  N  N  T        S  I  ZZ    E
# ΔΔΔΔΔΔΔΔΔ   F      OOO   N  N  T     SSS  III ZZZZ  EEEE
#
# Change font size
# including functions: broadly based on eggbean/resize-font.gvim, but taken
# further, e.g., handling multiple fonts listed in &guifont, for example.
#
# NB: Only enable when > v8.2 with patch 4807.  Don't bother with change font
#     size when using other versions because that's so rare for me it's not
#     worth it, and this really is only very nice to have (and is used).
if v:versionlong >= 8024807
  # initialisation of variables
  var gf_size_whole: number
  var gf_new_font_size: string
  var gf_weight: string
  var gf_bold: string
  var gf_cansi: string
  var gf_qdraft: string
  # Replace all font size digit(s).  For gtk, all with either ',' or $ following
  if has('gui_gtk')
    autocmd GUIEnter * g:gf_size_orig = matchstr(&guifont, '\( \)\@<=\d\+$')
    def g:FontSizePlus(): void
      gf_size_whole = str2nr(matchstr(&guifont, '\( \)\@<=\d\+$'))
      if gf_size_whole < 28
        gf_size_whole += 1
        gf_new_font_size = ' ' .. gf_size_whole
        &guifont = substitute(&guifont, ' \d\+\ze\($\|,\)', gf_new_font_size, 'g')
      endif
    enddef
    def g:FontSizeMinus(): void
      gf_size_whole = str2nr(matchstr(&guifont, '\( \)\@<=\d\+$'))
      if gf_size_whole > 1
        gf_size_whole -= 1
        gf_new_font_size = ' ' .. gf_size_whole
        &guifont = substitute(&guifont, ' \d\+\ze\($\|,\)', gf_new_font_size, 'g')
      endif
    enddef
    def g:FontSizeOriginal(): void
      &guifont = substitute(&guifont, '\d\+\ze\($\|,\)', g:gf_size_orig, 'g')
    enddef
  elseif has('gui_win32')
    # Replace all font size digit(s).  For win32, all instances of ':h' preceding
    autocmd GUIEnter * g:gf_size_orig = matchstr(&guifont, '\(:h\)\@<=\d\+\(:W\d\+\)\?\(:b\)\?\(:cANSI\)\?\(:qDRAFT\)\?')
    def g:FontSizePlus(): void
      gf_size_whole = str2nr(matchstr(&guifont, '\(:h\)\@<=\d\+\(:W\d\+\)\?\(:b\)\?\(:cANSI\)\?\(:qDRAFT\)\?'))
      gf_weight = matchstr(&guifont, '\(:W\d\+\)\?')
      gf_bold = matchstr(&guifont, '\(:b\)\?')
      gf_cansi = matchstr(&guifont, '\(:cANSI\)\?')
      gf_qdraft = matchstr(&guifont, '\(:qDRAFT\)\?')
      if gf_size_whole < 28
        gf_size_whole += 1
        gf_new_font_size = ':h' .. gf_size_whole
        &guifont = substitute(&guifont, '\(:h\d\+\)\(:W\d\+\)\?\(:b\)\?\(:cANSI\)\?\(:qDRAFT\)\?', gf_new_font_size .. gf_weight .. gf_bold .. gf_cansi .. gf_qdraft, 'g')
      endif
    enddef
    def g:FontSizeMinus(): void
      gf_size_whole = str2nr(matchstr(&guifont, '\(:h\)\@<=\d\+\(:W\d\+\)\?\(:b\)\?\(:cANSI\)\?\(:qDRAFT\)\?'))
      gf_weight = matchstr(&guifont, '\(:W\d\+\)\?')
      gf_bold = matchstr(&guifont, '\(:b\)\?')
      gf_cansi = matchstr(&guifont, '\(:cANSI\)\?')
      gf_qdraft = matchstr(&guifont, '\(:qDRAFT\)\?')
      if gf_size_whole > 1
        gf_size_whole -= 1
        gf_new_font_size = ':h' .. gf_size_whole
        &guifont = substitute(&guifont, '\(:h\d\+\)\(:W\d\+\)\?\(:b\)\?\(:cANSI\)\?\(:qDRAFT\)\?', gf_new_font_size .. gf_weight .. gf_bold .. gf_cansi .. gf_qdraft, 'g')
      endif
    enddef
    def g:FontSizeOriginal(): void
      gf_weight = matchstr(&guifont, '\(:W\d\+\)\?')
      gf_bold = matchstr(&guifont, '\(:b\)\?')
      gf_cansi = matchstr(&guifont, '\(:cANSI\)\?')
      gf_qdraft = matchstr(&guifont, '\(:qDRAFT\)\?')
      &guifont = substitute(&guifont, '\(:h\d\+\)\(:W\d\+\)\?\(:b\)\?\(:cANSI\)\?\(:qDRAFT\)\?', ':h' .. g:gf_size_orig .. gf_weight .. gf_bold .. gf_cansi .. gf_qdraft, 'g')
    enddef
  endif
endif
# }}}
# 05.20 Colorscheme overrides {{{2
def HiGUIreset(): void
  # Make sure that the default g:colors_name exists and is default (which it
  # should be anyhow since that is the default rather than empty!)
  # NB: Calling colorscheme default does weird things ... don't do that!
  if !exists("g:colors_name")
    g:colors_name = "default"
  endif
  # default colorscheme overrides (they persist until the colorscheme changes)
  # maybe this is background 'light' only and needs a 'dark' version too, but
  # I use Retrobox if using 'dark', so not really needed?
  # This has been checked by Redirr hi on startup compared with DiffOrig to
  # Redirr hi toggled from Normal to Retrobox and back and it's all good.
  if g:colors_name == "default"
    # popup_notification("HiGUIreset", {time: 2000})
    # background to the same colour as the toolbar, etc.
    highlight Normal guibg=#f0f0f0
    # in default, use a dark green background and light grey text in :term
    if has('win64')
      # this ensures that PowerShell works when it has a dark theme in Win64
      highlight Terminal guibg=#0a2a0a guifg=#f0f0f0
    else
      # this ensures that bash works with dark theme in WSL
      highlight Terminal guibg=#0c0c0c guifg=#cccccc
    endif
    # line numbers
    highlight LineNr guifg=Grey
    # the line number of the active cursor
    highlight CursorLineNr gui=bold guifg=DarkRed
    # Screen column indicator
    highlight ColorColumn guibg=LightGrey
    # 'showmode' message's colour (e.g., -- INSERT --)
    highlight ModeMsg guifg=DarkGrey
    # 'showbreak' and other non-text characters
    highlight NonText guifg=LightGrey
    # 'list' characters like Tab
    highlight SpecialKey guifg=LightGrey
    # Inactive statusline less prominent
    highlight StatusLineNC guifg=Black guibg=Grey gui=NONE
    # Set g:tene_hi dictionary back to defaults
    g:tene_hi['c'] = 'StatusLineTermNC'
    g:tene_hi['i'] = 'WildMenu'
    g:tene_hi['n'] = 'Visual'
    g:tene_hi['r'] = 'Pmenu'
    g:tene_hi['v'] = 'DiffAdd'
    # Set g:zline_hi dictionary back to defaults
    g:zline_hi['c'] = 'StatusLineTermNC'
    g:zline_hi['i'] = 'WildMenu'
    g:zline_hi['n'] = 'Visual'
    g:zline_hi['r'] = 'Pmenu'
    g:zline_hi['v'] = 'DiffAdd'
  else
    # Do nothing special - only use default!
  endif
enddef

# Himod, which works for all the in-built colorschemes and should
# for any colorscheme (except where orange/darkorange is part of the
# StatusLine, perhaps (but who'd do that, really?!)
def Himod(): void
  # Clear teneHimod highlight group
  hi teneHimod NONE
  # Clear zlineHimod highlight group
  hi zlineHimod NONE
  # Get the settings from hi StatusLine and adjust for the colorscheme
  redir @s | silent! highlight StatusLine | redir END
  # Create a list with the StatusLine highlight group's settings, ensuring
  # there are no pesky newlines in it.  We want just the + indicator to be
  # a different colour, so that needs to change either guifg or guibg
  # depending on whether it is `reverse`.  Note that because of the redir,
  # the text may include linefeed U+000A characters and loads of spaces, so
  # this is tidied up here when creating the list.
  var s_settings: list<string> = @s
    ->substitute('[\u000A]\s\+', ' ', '')
    ->substitute('[\u000A]StatusLine\s\+xxx\s\+', '', '')
    ->split(' ')
  # Clone the StatusLine highlight group, initially
  try
    silent! execute 'hi teneHimod ' .. join(s_settings)
  finally
    # nothing
  endtry
  try
    silent! execute 'hi zlineHimod ' .. join(s_settings)
  finally
    # nothing
  endtry
  # Now add the appropriate guifg or guibg to get the orange + indicator
  var new_teneHimod: string = ''
  var new_zlineHimod: string = ''
  # Default to guifg being darkorange if there's a dark &bg /orange if light
  if &background == 'dark'
    new_teneHimod = ' guifg=darkorange'
    new_zlineHimod = ' guifg=darkorange'
  else
    new_teneHimod = ' guifg=orange'
    new_zlineHimod = ' guifg=orange'
  endif
  # ... but, if there is a gui `reverse` in play, make it guibg as
  # either darkorange or orange, otherwise it will be applied to the wrong
  # part of the highlight group
  for item in range(0, len(s_settings) - 1)
    if (s_settings[item] == 'gui=bold,reverse' ||
        s_settings[item] == 'gui=reverse')
      if &background == 'dark'
        new_teneHimod = ' guibg=darkorange'
        new_zlineHimod = ' guibg=darkorange'
      else
        new_teneHimod = ' guibg=orange'
        new_zlineHimod = ' guibg=orange'
      endif
      break
    endif
  endfor
  try
    silent! execute 'hi teneHimod ' .. new_teneHimod
    g:tene_hi['himod'] = 'teneHimod'
  finally
    # Do nothing
  endtry
  try
    silent! execute 'hi zlineHimod ' .. new_zlineHimod
    g:zline_hi['+'] = 'zlineHimod'
  finally
    # Do nothing
  endtry
enddef
# 2}}}
# }}}
# 06 Mappings {{{
# Mapping to toggle renderer in Windows: needs Win32 and directx
if has('Win32') && has('directx')
  nnoremap <Leader>r <Cmd>execute "let &rop = (len(&rop)==0) ? 'type:directx,gamma:1.0,geom:0,renmode:5,taamode:1' : ''"<CR>
endif
# Font resize mappings --- **inactive before 8024807** --- gvim-only relevant.
# NB: 1. In Windows, the <C-Scroll*> mappings will not work with versions
#        before 8.2 with patch 5069 (they do nothing).  Refer the link, below.
# https://github.com/vim/vim/commit/ebb01bdb273216607f60faddf791a1b378cccfa8
#     2. In Windows, <C-{char}> mappings will not work before 8.2 with
#        patch 4807, and even then, it seems flakey!
#     3. Before v9.0 patch 1112 <C-_> will not work on Windows.  Refer:
# https://github.com/vim/vim/commit/7b0afc1d7698a79423c7b066a5d8d20dbb8a295a
if v:versionlong >= 8024807 && (has('gui_gtk') || has('gui_win32'))
  # Mappings generally with F10 - reliable in both gui_gtk and gui_win32
  nnoremap <C-F10> <Cmd>call g:FontSizeMinus()<CR>
  nnoremap <S-F10> <Cmd>call g:FontSizePlus()<CR>
  nnoremap <F10> <Cmd>call g:FontSizeOriginal()<CR>
  if has('gui_gtk') || (has('gui_win32') && v:versionlong >= 8025069)
    noremap <C-ScrollWheelUp> <Cmd>call g:FontSizePlus()<CR>
    noremap <C-ScrollWheelDown> <Cmd>call g:FontSizeMinus()<CR>
  endif
  if has('gui_gtk') || (has('gui_win32') && v:versionlong >= 9001112)
    nnoremap  <Cmd>call g:FontSizeMinus()<CR>
  endif
  if has('gui_gtk')
    nnoremap <C-=> <Cmd>call g:FontSizePlus()<CR>
    nnoremap <C-0> <Cmd>call g:FontSizeOriginal()<CR>
  endif
endif
#}}}
# 07 Autocommands {{{
augroup gvimrc-ColorScheme
  au!
  au GUIEnter * call HiGUIreset()
  # For vim-tene, in the GUI make the himod text darkorange / orange
  # For vim-zline, in the GUI make the himod text darkorange / orange
  au GUIEnter * call Himod()
  au ColorScheme * call HiGUIreset()
  # ... and ensure it's reapplied to the right place (be it guibg or guifg)
  # when the colorscheme changes
  au ColorScheme * call Himod()
augroup END
# }}}
# 08 Plugins (include any configuration to them) {{{
# Using the native Vim plugin handling. :h packadd
# * Plugins path:  $HOME/.vim/pack/plugins  $HOME\vimfiles\pack\plugins
# * To determine the remote git repository: git remote show origin
# Plugins.  Currently in use indicated with "Y", orig unless "(specifics)":
# For vim-tene, colour the modified indicator in the GUI
g:tene_himod = 1
# For vim-zline, colour the modified indicator in the GUI
g:zline_himod = true
# }}}
# 09 Syntax + filetype (n/a for gvim specifically?) {{{
# }}}
# vim: textwidth=79 foldmethod=marker filetype=vim expandtab