Changeset 21036

Show
Ignore:
Timestamp:
10/09/08 13:47:33 (6 years ago)
Author:
mattn
Message:

changed PitShow? to more human readable.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/vim/pitconfig/plugin/pitconfig.vim

    r21035 r21036  
    3939 
    4040if &cp || (exists('g:loaded_pitconfig') && g:loaded_pitconfig) 
    41   finish 
     41  "finish 
    4242endif 
    4343let g:loaded_pitconfig = 1 
     
    211211    let l:profname = a:1 
    212212  endif 
    213 "perl: show pit config {{{ 
    214 perl <<__END__ 
    215 { 
    216   local $JSON::Syck::SingleQuote = 1; 
    217   my $profname = ''.VIM::Eval('l:profname'); 
    218   my $config = pit_get($profname); 
    219   VIM::DoCommand("echohl Title"); 
    220   VIM::DoCommand("echo ".JSON::Syck::Dump($profname)); 
    221   VIM::DoCommand("echohl None"); 
    222   VIM::DoCommand("echo ".JSON::Syck::Dump($config)); 
    223   undef $config; 
    224   undef $profname; 
    225 } 
    226 __END__ 
    227 "}}} 
     213  let l:config = PitGet(l:profname) 
     214  echohl Title | echo l:profname | echohl None 
     215  for l:key in keys(l:config) 
     216    echohl LineNr | echo l:key | echohl None | echon ":" 
     217    echo " " l:config[key] 
     218  endfor 
     219  silent! unlet l:config 
    228220endfunction 
    229221