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
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
Hide Diffs Unified Diffs 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]