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: |
782638c0ff5b4ce3c47e2a59a6f0b27c |
| 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
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
|