Mercurial > vim
view runtime/doc/test_urls.vim @ 33083:79b2eb83f2df v9.0.1827
patch 9.0.1827: xxd: no color support
Commit: https://github.com/vim/vim/commit/e2528ae11134cdf35c312754b124aba4963d8054
Author: Aapo Rantalainen <aapo.rantalainen@gmail.com>
Date: Thu Aug 31 17:58:13 2023 +0200
patch 9.0.1827: xxd: no color support
Problem: xxd: no color support
Solution: Add color support using xxd -R
Add some basic color support for xxd
The hex-value and value are both colored with the same color depending
on the hex-value, e.g.:
0x00 = white
0xff = blue
printable = green
non-printable = red
tabs and linebreaks = yellow
Each character needs 11 more bytes to contain color. (Same color in a
row could contain only one overhead but the logic how xxd creates colums
must be then changed.) Size of colored output is increased by factor of
~6. Also grepping the output will break when colors is used.
Flag for color is "-R", because less uses "-R".
Color uses parameters auto,always,never same as less and grep (among
others).
E.g.
xxd -R always $FILE | less -R
Add some screen-tests (that currently on work on linux) to verify the
feature works as expected.
closes: #12131
Signed-off-by: Christian Brabandt <cb@256bit.org>
Co-authored-by: Aapo Rantalainen <aapo.rantalainen@gmail.com>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 31 Aug 2023 18:15:03 +0200 |
parents | 7fd105bfe992 |
children | e09acb1daea7 |
line wrap: on
line source
" Test for URLs in help documents. " " Opens a new window with all found URLS followed by return code from curl " (anything other than 0 means unreachable) " " Written by Christian Brabandt. func Test_check_URLs() if has("win32") echoerr "Doesn't work on MS-Windows" return endif if executable('curl') " Note: does not follow redirects! let s:command = 'curl --silent --fail --output /dev/null --head ' elseif executable('wget') " Note: only allow a couple of redirects let s:command = 'wget --quiet -S --spider --max-redirect=2 --timeout=5 --tries=2 -O /dev/null ' else echoerr 'Only works when "curl" or "wget" is available' return endif let pat='\(https\?\|ftp\)://[^\t* ]\+' exe 'helpgrep' pat helpclose let urls = map(getqflist(), 'v:val.text') " do not use submatch(1)! let urls = map(urls, {key, val -> matchstr(val, pat)}) " remove examples like user@host (invalid urls) let urls = filter(urls, 'v:val !~ "@"') " Remove example URLs which are invalid let urls = filter(urls, {key, val -> val !~ '\<\(\(my\|some\)\?host\|machine\|hostname\|file\)\>'}) new put =urls " remove some more invalid items " empty lines v/./d " remove # anchors %s/#.*$//e " remove trailing stuff (parenthesis, dot, comma, quotes), but only for HTTP " links g/^h/s#[.,)'"/>][:.]\?$## g#^[hf]t\?tp:/\(/\?\.*\)$#d silent! g/ftp://,$/d silent! g/=$/d let a = getline(1,'$') let a = uniq(sort(a)) %d call setline(1, a) " Do the testing. set nomore %s/.*/\=TestURL(submatch(0))/ " highlight the failures /.* \([0-9]*[1-9]\|[0-9]\{2,}\)$ endfunc func TestURL(url) " Relies on the return code to determine whether a page is valid echom printf("Testing URL: %d/%d %s", line('.'), line('$'), a:url) call system(s:command . shellescape(a:url)) return printf("%s %d", a:url, v:shell_error) endfunc call Test_check_URLs()