Mercurial > vim
annotate runtime/ftplugin/racket.vim @ 34684:faf891660963 v9.1.0223
patch 9.1.0223: code duplication in loop to add active text properties
Commit: https://github.com/vim/vim/commit/1134fdd1b369119d0d6992e3120bb5f7c788b697
Author: Dylan Thacker-Smith <dylan.ah.smith@gmail.com>
Date: Thu Mar 28 11:49:46 2024 +0100
patch 9.1.0223: code duplication in loop to add active text properties
Problem: There are two dense conditions with duplication that needs to
be kept in sync between the while loop break condition and the
condition to skip certain text properties.
Solution: Refactor the loop by moving while loop conditions into the
body of the while loop so they can be shared with skip
conditions. `break` and an `active` variable are used to
handle the outcome of these merged conditions.
(Dylan Thacker-Smith)
closes: #14307
Signed-off-by: Dylan Thacker-Smith <dylan.ah.smith@gmail.com>
Signed-off-by: Christian Brabandt <cb@256bit.org>
| author | Christian Brabandt <cb@256bit.org> |
|---|---|
| date | Thu, 28 Mar 2024 12:00:05 +0100 |
| parents | 8ae680be2a51 |
| children | 7c7432a53a6c |
| rev | line source |
|---|---|
| 29996 | 1 " Vim filetype plugin |
| 2 " Language: Racket | |
| 3 " Maintainer: D. Ben Knoble <ben.knoble+github@gmail.com> | |
| 4 " Previous Maintainer: Will Langstroth <will@langstroth.com> | |
| 5 " URL: https://github.com/benknoble/vim-racket | |
| 6 " Last Change: 2022 Aug 29 | |
|
34134
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
29996
diff
changeset
|
7 " 2024 Jan 14 by Vim Project (browsefilter) |
| 29996 | 8 |
| 9 if exists("b:did_ftplugin") | |
| 10 finish | |
| 11 endif | |
| 12 let b:did_ftplugin = 1 | |
| 13 | |
| 14 let s:cpo_save = &cpo | |
| 15 set cpo&vim | |
| 16 | |
| 17 " quick hack to allow adding values | |
| 18 setlocal iskeyword=@,!,#-',*-:,<-Z,a-z,~,_,94 | |
| 19 | |
| 20 " Enable auto begin new comment line when continuing from an old comment line | |
| 21 setlocal comments=:;;;;,:;;;,:;;,:; | |
| 22 setlocal formatoptions+=r | |
| 23 | |
| 24 "setlocal commentstring=;;%s | |
| 25 setlocal commentstring=#\|\ %s\ \|# | |
| 26 | |
| 27 setlocal formatprg=raco\ fmt | |
| 28 | |
| 29 " Undo our settings when the filetype changes away from Racket | |
| 30 " (this should be amended if settings/mappings are added above!) | |
| 31 let b:undo_ftplugin = | |
| 32 \ "setlocal iskeyword< lispwords< lisp< comments< formatoptions< formatprg<" | |
| 33 \. " | setlocal commentstring<" | |
| 34 | |
| 35 if !exists("no_plugin_maps") && !exists("no_racket_maps") | |
| 36 " Simply setting keywordprg like this works: | |
| 37 " setlocal keywordprg=raco\ docs | |
| 38 " but then vim says: | |
| 39 " "press ENTER or type a command to continue" | |
| 40 " We avoid the annoyance of having to hit enter by remapping K directly. | |
| 41 function s:RacketDoc(word) abort | |
| 42 execute 'silent !raco docs --' shellescape(a:word) | |
| 43 redraw! | |
| 44 endfunction | |
| 45 nnoremap <buffer> <Plug>RacketDoc :call <SID>RacketDoc(expand('<cword>'))<CR> | |
| 46 nmap <buffer> K <Plug>RacketDoc | |
| 47 | |
| 48 " For the visual mode K mapping, it's slightly more convoluted to get the | |
| 49 " selected text: | |
| 50 function! s:Racket_visual_doc() | |
| 51 try | |
| 52 let l:old_a = @a | |
| 53 normal! gv"ay | |
| 54 call system("raco docs '". @a . "'") | |
| 55 redraw! | |
| 56 return @a | |
| 57 finally | |
| 58 let @a = l:old_a | |
| 59 endtry | |
| 60 endfunction | |
| 61 | |
| 62 xnoremap <buffer> <Plug>RacketDoc :call <SID>Racket_visual_doc()<cr> | |
| 63 xmap <buffer> K <Plug>RacketDoc | |
| 64 | |
| 65 let b:undo_ftplugin .= | |
| 66 \ " | silent! execute 'nunmap <buffer> K'" | |
| 67 \. " | silent! execute 'xunmap <buffer> K'" | |
| 68 endif | |
| 69 | |
| 70 if (has("gui_win32") || has("gui_gtk")) && !exists("b:browsefilter") | |
| 71 let b:browsefilter = | |
|
34134
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
29996
diff
changeset
|
72 \ "Racket Source Files (*.rkt, *.rktl)\t*.rkt;*.rktl\n" |
|
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
29996
diff
changeset
|
73 if has("win32") |
|
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
29996
diff
changeset
|
74 let b:browsefilter .= "All Files (*.*)\t*\n" |
|
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
29996
diff
changeset
|
75 else |
|
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
29996
diff
changeset
|
76 let b:browsefilter .= "All Files (*)\t*\n" |
|
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
29996
diff
changeset
|
77 endif |
| 29996 | 78 let b:undo_ftplugin .= " | unlet! b:browsefilter" |
| 79 endif | |
| 80 | |
| 81 if exists("loaded_matchit") && !exists("b:match_words") | |
| 82 let b:match_words = '#|:|#' | |
| 83 let b:undo_ftplugin .= " | unlet! b:match_words" | |
| 84 endif | |
| 85 | |
| 86 let &cpo = s:cpo_save | |
| 87 unlet s:cpo_save |