#exit 0;
# NB 08.08.14 print map { "$BG{$_}\n"
- #while (my ($name,$value) = each %FG) {
- for my $name (keys %FG) {
- my $value = $FG{$name};
+ for my $fg (keys %FG) {
+ my $fg_num = $FG{$fg};
- printf "%15s", "$name ($value) | ";
+ printf "%15s", "$fg ($fg_num) | ";
print in_color($input,{
- fg => $_,
+ fg => $fg,
bg => $BG,
effect => $EFFECT,
num => $PRINT_CODE,
- }) . "\n";
+ }),"\n";
}
return escaped_selection
endfunction
+function! Files()
+ set nomore
+ let buf_count = bufnr("$")
+ let paths = ""
+ for i in range(1, buf_count)
+ if getbufvar(l:i, '&buflisted') > 0
+ let path = bufname(i)
+ " let filename = fnamemodify(path, ":t")
+ " let folder = fnamemodify(path, ":h")
+ if paths != ""
+ let paths = paths . " "
+ end
+ let paths = paths . path
+ endif
+ endfor
+ set more
+ return paths
+endfunction