cmdr
Check-in [83ac211042]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Tweaked the in-source docs for "less" a bit.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 83ac211042e5d6ebb07d34b055b07e121dd05d38
User & Date: aku 2015-07-14 03:38:38.030
Context
2015-07-14
03:59
parameter - Added convenience command stop!". Bumped version to 1.6. check-in: 91942da7f1 user: aku tags: trunk
03:38
Tweaked the in-source docs for "less" a bit. check-in: 83ac211042 user: aku tags: trunk
2015-07-09
19:12
Extended cmdr with "table" utility package. check-in: 54065b631c user: andreask tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to pager.tcl.
101
102
103
104
105
106
107
108

109

110
111
112
113
114
115
116

    global env
    if {[info exists env(PAGER)]} {
	lappend pager $env(PAGER)
    }
    lappend pager {less -R -f -F}
    # -R Show ANSI colors
    # -f do not prompt when thinking file is binary

    # -F quit if the entire text can be shown on the screen

    lappend pager more

    foreach p $pager {
	debug.cmdr/pager {Looking for cmd ($p)}
	set cmd [auto_execok [lindex $p 0]]
	if {[llength $cmd]} {
	    lappend cmd {*}[lrange $p 1 end]







|
>
|
>







101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118

    global env
    if {[info exists env(PAGER)]} {
	lappend pager $env(PAGER)
    }
    lappend pager {less -R -f -F}
    # -R Show ANSI colors
    # -f do not prompt when thinking that file is binary
    #    (for example due to ANSI colors)
    # -F quit immediately if the entire text can be shown
    #    on the screen
    lappend pager more

    foreach p $pager {
	debug.cmdr/pager {Looking for cmd ($p)}
	set cmd [auto_execok [lindex $p 0]]
	if {[llength $cmd]} {
	    lappend cmd {*}[lrange $p 1 end]