Here's a fix, pls see attachment (2nd chunk, 1st chunk are a few more/diff
extensions handlers, to my taste of course ;) ).
--
paolo
GPG/PGP id:0x3A47DE45 - B5F9 AAA0 44BD 2B63 81E0 971F C6C0 0B87 3A47 DE45
- 9/11: the outrageous deception and ongoing coverup: http://911review.org -
--- config.tcl 2008-03-09 02:07:40.000000000 +0100
+++ config.tcl 2008-03-09 02:07:23.000000000 +0100
@@ -580,16 +580,27 @@
{ {timidity {%s}}
{*.midi.gz *.midi *.mid.gz *.mid} }
{ {xv -gamma 2.0 {%s}}
- { *.bmp *.iff *.jpg *.pbm *.pgm *.png *.ppm *.tga *.tif *.tiff *.xbm *.xpm
*.gif} }
- { {gzip -dc {%s} | ghostview -}
+ { *.bmp *.iff *.jpeg *.jpg *.pbm *.pgm *.png *.ppm *.tga *.tif *.tiff
*.xbm *.xpm *.gif} }
+ { {gzip -dc {%s} | gv -}
{ *.ps.gz } }
- { {ghostview {%s}}
+ { {gv {%s}}
{ *.ps } }
- { {xanim {%s}}
- {*.avi *.fli *.flc *.mpg} }
+ { {xpdf {%s}}
+ { *.pdf} }
+ { {djview {%s}}
+ { *.djvu *.44 *.iw44} }
+ { {wordview {%s}}
+ { *.doc} }
+ { {soffice {%s}}
+ { *.doc *.sdc *.sdw *.vor *.sda *.sdr *.rtf *.xls *.sx* *.od*} }
+ { {mplayer {%s}}
+ {*.avi *.fli *.flc *.mpg *.mpeg *.wmv *.mov *.mp3 *.rm *.ra *.ram} }
{ {gzip -cd {%s} | tar tvf -}
{ *.tgz *.taz *.tar.z *.tar.gz }
-viewtext }
+ { {bunzip2 -c {%s} | tar tvf -}
+ { *.tar.bz2 *.tbz2 *.tz2 }
+ -viewtext }
{ {tar tvf {%s}}
{*.tar}
-viewtext }
@@ -599,9 +610,15 @@
{ {lha -v {%s}}
{*.lha}
-viewtext }
+ { {7z l {%s}}
+ {*.7z}
+ -viewtext }
{ {gzip -cd {%s}}
{*.gz}
-viewtext }
+ { {bunzip2 -c {%s}}
+ {*.bz2}
+ -viewtext }
{ {rpm -qilp {%s}}
{*.rpm}
-viewtext }
@@ -779,12 +796,14 @@
proc ConfigPwd {} {
global glob config env argv argv0
- set pwd(left) [lindex $argv 1]
- set pwd(right) [lindex $argv 2]
+ set pwd(left) [lindex $argv 0]
+ set pwd(right) [lindex $argv 1]
+ #puts stderr "$argv - $pwd(left) $pwd(right) - $env(PWD)"
foreach k { left right } {
if { $pwd($k) != "" && $glob($k,pwd) != $pwd($k) } {
NewPwd $k $pwd($k)
UpdateWindow $k
+ cd "$env(PWD)"
} else {
if { $config(startpwd,$k) != "" && $glob($k,pwd) !=
$config(startpwd,$k)} {
NewPwd $k $config(startpwd,$k)
