cmdr
Check-in [782638c0ff]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:pager - Extended the module to run "less" with options allowing display of ANSI colors, and suppressing binary warning (due to such colors).
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 782638c0ff5b4ce3c47e2a59a6f0b27c52a0de8e
User & Date: aku 2015-07-09 04:04:00
Original Comment: Extended the pager module to run less with options allowing display of ANSI colors, and supressing binary warning (due to such colors).
Context
2015-07-09
19:12
Extended cmdr with "table" utility package. check-in: 54065b631c user: andreask tags: trunk
04:04
pager - Extended the module to run "less" with options allowing display of ANSI colors, and suppressing binary warning (due to such colors). check-in: 782638c0ff user: aku tags: trunk
2015-07-03
22:34
Big set of 12 new validation types. These are facades/wrappers around the "valtype" snit validation types found in Tcllib (luhn, luhn5, verhoeff, gs1::ean13, iban, imei, isbn, usnpi, amex, visa, discover, mastercard). Documentation minimal, refers back to the Tcllib packages. Testsuites replicated here, under the general framework for VT testing. The facade code is fully generated based on the valtype name. The generator package is not documented (yet). check-in: 7d8a178853 user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to pager.tcl.

99
100
101
102
103
104
105
106



107
108
109
110
111
112



113
114
115
116
117
118
119
120
121
    # can still disable paging, when nothing is found. We look for the
    # user's choice first.

    global env
    if {[info exists env(PAGER)]} {
	lappend pager $env(PAGER)
    }
    lappend pager less



    lappend pager more

    foreach p $pager {
	debug.cmdr/pager {Looking for cmd ($p)}
	set cmd [auto_execok $p]
	if {[llength $cmd]} break



    }

    debug.cmdr/pager {==> ($cmd)}
    return $cmd
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::pager 1






|
>
>
>




|
|
>
>
>








|
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
    # can still disable paging, when nothing is found. We look for the
    # user's choice first.

    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]
	    break
	}
    }

    debug.cmdr/pager {==> ($cmd)}
    return $cmd
}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::pager 1.1