Version 6 of tman

Updated 2010-06-20 09:59:07 by wdb

wdb Working on my unix-driven PC, I frequently read the man pages. The default pager less is too rustical for my taste, with pager tkman or xman, it's too much blown up (whenever I need help, I'm seriously in hurry ;-).

So, I took the easiest solution: write my own pager in tkpager.tcl:

#!/usr/bin/tclkit

package require Tk
bind winfo class . <Destroy> exit

pack [text .t -font TkFixedFont -yscrollcommand [list .s set]\
  -expand yes -fill both -side left
pack scrollbar .s -command ".t yview"\
  -fill both -side left

apply {{} {
  while {!eof stdin} {
    .t insert end "[regsub -all {.\b} [gets stdin] {}]\n"
  }
}}

Then, the script tman calls man with pager tkpager.tcl (care that both is in search path and executable):

man -P tkpager.tcl $1 &

That's all.