pager program like less, capaz de repetir top N lines

13

Existe alguma maneira de fazer com que o programa less repita a primeira linha (ou as duas primeiras linhas) em todas as páginas exibidas?

Existe algum outro programa de pager que possa fazer isso?

Este seria um aplicativo matador para navegação na tabela de banco de dados, pense em mysql ou psql ou gqlplus ...

Para aqueles de vocês que não entendem a ideia, veja a imagem na parte inferior da página . Eu quero repetir a linha de cabeçalho + barra ascii horizontal.

    
por filiprem 28.12.2011 / 12:26

5 respostas

10

Existe uma solução usando o Vim.

Primeiro, precisamos de uma macro Vim, que fará a maior parte do trabalho. Salve em ~/.vim/plugin/less.vim :

" :Less
" turn vim into a pager for psql aligned results 
fun! Less()
  set nocompatible
  set nowrap
  set scrollopt=hor
  set scrollbind
  set number
  execute 'above split'
  " resize upper window to one line; two lines are not needed because vim adds separating line
  execute 'resize 1'
  " switch to lower window and scroll 2 lines down 
  wincmd j
  execute 'norm! 2^E'
  " hide statusline in lower window
  set laststatus=0
  " hide contents of upper statusline. editor note: do not remove trailing spaces in next line!
  set statusline=\  
  " arrows do scrolling instead of moving
  nmap ^[OC zL
  nmap ^[OB ^E
  nmap ^[OD zH
  nmap ^[OA ^Y
  nmap <Space> <PageDown>
  " faster quit (I tend to forget about the upper panel)
  nmap q :qa^M
  nmap Q :qa^M
endfun
command! -nargs=0 Less call Less()

Em segundo lugar, para emular um pager, preciso invocar o vim para que ele:

  • ler entrada padrão
  • mas se o argumento for dado na linha de comando, leia o que aparecer lá
  • funciona no modo somente leitura
  • pule todos os scripts init, mas execute Menos macro definido acima

Eu coloquei isso juntos como script auxiliar em ~/bin/vimpager :

#!/bin/bash
what=-
test "$@" && what="$@"
exec vim -u NONE -R -S ~/.vim/plugin/less.vim -c Less $what

Terceiro, eu preciso sobrescrever a variável de ambiente $ PAGER, mas apenas para o psql (adicione isso ao meu ~/.bash_aliases ):

if which vimpager &>/dev/null; then
  alias psql='PAGER=vimpager psql';
fi
    
por 28.12.2011 / 21:11
3

Já experimentou o Modo SQL no Emacs / XEmacs?

Certamente não é tão simples de usar como more ou less , mas faz o que você está pedindo, deixando uma linha de cabeçalho ao rolar os resultados vertical e horizontalmente.

    
por 28.12.2011 / 12:40
3

Isso usa muito a resposta aceita, mas adiciona ...

  • Rolagem mais rápida
  • Não é possível rolar acidentalmente para o cabeçalho
  • Destaque da sintaxe (alguns créditos pertencem aqui )
    • Números positivos / negativos, datas, horas, NULL , Verdadeiro / Falso (e T / F, S / N, Sim / Não)
    • Números de linha, se você os tiver antes de um caractere de pipe.
  • Texto de ajuda
  • Suporte para o Vim incluído no Git for Windows
  • Não ameace atualizar a visualização se o buffer de stdin mudar

Algumas partes podem ter que ser ajustadas para sua saída específica, já que eu não uso psql . Eu também tenho funções auxiliares ligeiramente diferentes para meus propósitos, mas elas são semelhantes àquelas na resposta aceita.

Entrada de amostra

  | ID |   First   |     Last     | Member | Balance |
--+----+-----------+--------------+--------+---------+
 1|  4 | Tom       | Hanks        | False  |    0.00 |
 2| 12 | Susan     | Patterson    | True   |   10.00 |
 3| 23 | Harriet   | Langford-Wat | False  |    0.00 |
 4|  8 | Jerry     |     NULL     | True   | -382.94 |
[… More rows …]
10| 87 | Horace    | Weaver       | False  |   47.52 |

Código

" :HeadPager
" Turn vim into a pager with a header row
" Adapted from https://unix.stackexchange.com/a/27840/143088
fun! HeadPager()
    " If you didn't get three lines, shortcut out
    if line('$') < 3
        set nocompatible
        nmap <silent> q :qa!<c-M>
        nmap <silent> Q :qa!<c-M>
        return
    endif

    set noswapfile
    set nocompatible
    set nowrap
    set scrollopt=hor
    set scrollbind

    " Hide statusline in lower window
    set laststatus=0
    " Explain mapped chars in status line.
    set statusline=\ \ \ Q\ to\ quit\.\ Arrows\ or\ mousewheel\ to\ scroll\.\ \(Vim\ commands\ work\,\ too\.\)

    " Delete/copy header lines
    silent execute '1,2d'

    " Split screen with new buffer (opens at top)
    execute 'new'

    " Switch to upper split
    wincmd k

    " Paste the header over the blank line
    execute 'norm! Vp'

    " Header highlighting
    syn match Pipe "|"
    hi def Pipe ctermfg=blue
    syn match Any /[^|]\+/
    hi def Any ctermfg=yellow

    " Switch back to lower split for scrolling
    wincmd j

    " Set lower split height to maximum
    execute "norm! \<c-W>_"

    " Syntax highlighting
    syn cluster CellContents contains=None
    syn match Pipe "|" contained nextgroup=@CellContents skipwhite
    hi def Pipe ctermfg=blue

    " Start with newline or |. End right before next | or EOL
    syn region Cell start=/\v(^|\|)\s*/ end=/\v(\||$)\@=/ contains=LineNumber,Pipe

    syn match NumPos /\v\+?\d+(,?\d{3})*\.?\d*\ze *(\||$)\@=/ contained
    syn match NumNeg   /\v-\d+(,?\d{3})*\.?\d*\ze *(\||$)\@=/ contained
    syn match NumZero         /\v[+-]?0+\.?0*\ze *(\||$)\@=/  contained
    hi def NumPos ctermfg=cyan
    hi def NumNeg ctermfg=red
    hi def NumZero ctermfg=NONE
    syn cluster CellContents add=NumPos,NumNeg,NumZero

    syn match DateVal /\v\d{4}-\d{2}-\d{2}/ contained nextgroup=TimeVal skipwhite
    syn match TimeVal /\v\d{1,2}:\d{2}(:\d{2})?(\.\d+)?(Z| ?\c[AP]M)?\ze *(\||$)\@=/ contained
    hi def DateVal ctermfg=magenta
    hi def TimeVal ctermfg=magenta
    syn cluster CellContents add=DateVal,TimeVal

    syn match TrueVal /\v\c(t(rue)?|y(es)?)\ze *(\||$)\@=/ contained
    syn match FalseVal /\v\c(f(alse)?|no?)\ze *(\||$)\@=/ contained
    hi def TrueVal ctermfg=green
    hi def FalseVal ctermfg=red
    syn match NullVal /\v\cnull?\ze *(\||$)\@=/ contained
    hi def NullVal ctermbg=gray ctermfg=black
    syn cluster CellContents add=TrueVal,FalseVal,NullVal

    syn match LineNumber /^ *\d\+/ contained
    hi def LineNumber ctermfg=yellow

    " Arrows do scrolling instead of moving
    nmap <silent> <Up> 3<c-Y>
    nmap <silent> <Down> 3<c-E>
    nmap <silent> <Left> zH
    nmap <silent> <Right> zL
    nmap <Space> <PageDown>
    " Faster quit (I tend to forget about the upper panel)
    nmap <silent> q :qa!<c-M>
    nmap <silent> Q :qa!<c-M>

    " Ignore external updates to the buffer
    autocmd! FileChangedShell */fd/*
    autocmd! FileChangedRO */fd/*
endfun
command! -nargs=0 HeadPager call HeadPager()
    
por 14.01.2017 / 17:50
2

Você pode usar várias "regiões" em screen :

$ cat screenrc.sql
escape ^aa  # adjust as needed
bind q quit # to quickly exit
screen 0 less ${FILE}
screen 1 less ${FILE}
split  # create two regions
focus top # starting with the top region
resize 4  # make it four lines (one for screen line, one for less prompt)
select 0  # display window 0
focus bottom  # in the bottom region
select 1  # display window 1 and focus here

Então você só precisa definir a variável de ambiente $ FILE:

$ FILE=$HOME/.bash_profile screen -mc screenrc.sql
    
por 28.12.2011 / 15:28
0

Você pode adicionar um número antes do 'avançar' e ele irá rolar N linhas, não um comprimento total. Portanto, se a sua janela de terminal tiver 40 linhas, digite 38f para começar a rolar apenas 38 linhas, deixando a última 2 linha da última 'página'. A partir do manpage:

   SPACE or ^V or f or ^F
          Scroll forward N  lines,  default  one  window  (see  option  -z
          below).   If  N  is  more  than  the screen size, only the final
          screenful is displayed.  Warning: some systems use ^V as a  spe‐
          cial literalization character.

   z      Like  SPACE,  but  if  N is specified, it becomes the new window
          size.

   b or ^B or ESC-v
          Scroll backward N lines,  default  one  window  (see  option  -z
          below).   If  N  is  more  than  the screen size, only the final
          screenful is displayed.
    
por 28.12.2011 / 14:14