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: |
83ac211042e5d6ebb07d34b055b07e12 |
| User & Date: | aku 2015-07-14 03:38:38 |
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
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]
|