Squint test w/ BLOKK font

gistfile1.vim

" Throw me in your ~/.gvimrc
let g:squinty = 0

function! Squint()
	let windowBounds = system("osascript -e 'tell application \"MacVim\" to get bounds of window 1'")[:-2]
	if g:squinty
		set guifont=InputMonoCondensed_Thin:h14
		let g:squinty = 0
	else
		set guifont=BLOKK:h6
		let g:squinty = 1
	endif
	let thecommand = "osascript -e 'tell application \"MacVim\" to set bounds of window 1 to {" . windowBounds . "}'"
	let result = system(thecommand)
	redraw!
endfunction

nnoremap <F6> :call Squint()<CR>

It does seem to lose a little bit of height over several toggles...