Fossil Wrapper

Check-in [fbb73aca09]
Login

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

Overview
Comment:bug fix and one more alias.
Timelines: family | ancestors | descendants | both | dresden
Files: files | file ages | folders
SHA1: fbb73aca09652da4456b784c97eb86f7cb3b6c1a
User & Date: j 2013-01-16 14:17:18
Context
2013-01-16
15:50
tentative bug fix. needs improvements. check-in: fe3d253157 user: j tags: dresden
14:17
bug fix and one more alias. check-in: fbb73aca09 user: j tags: dresden
14:04
tentative filtering of `finfo' output through `fancy_timeline'. check-in: ae9928cc77 user: j tags: dresden
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

57
58
59
60
61
62
63

64
65
66
67
68
69
70
...
553
554
555
556
557
558
559

560
561
562
563
564
565
566
    # -- Aliases:

    alias  .      changes
    alias  ,      ui
    alias  d      diff
    alias  di     diff
    alias  elog   {timeline -t ci -showfiles}

    alias  heads  leaves;       # for hg refugees
    alias  log    {timeline -t ci}
    alias  not    {extras --dotfiles --ignore ""}
    alias  st     status
    alias  stat   status
    alias  t      {timeline -t ci}
    alias  time   timeline
................................................................................
    if {[interactive? $command] == false} {
       if {$command == "timeline" && [llength $lines] > 1} { 
          set revnums [computeRevnums]
          set lines [unwrapTimeline $lines]
          set lines [reformTimeline $lines $revnums]
       } elseif {$command == "finfo" && [llength $lines] > 1} { 
          # let's see whether `-p' is there:

          foreach word $params {
             switch -regexp $word {
                {-p} {set catmode true}
             }
          }
          # if yes, don't unwrap (but it's still filtered 
          # through `fancy_timeline'. think ...)







>







 







>







57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
...
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
    # -- Aliases:

    alias  .      changes
    alias  ,      ui
    alias  d      diff
    alias  di     diff
    alias  elog   {timeline -t ci -showfiles}
    alias  flog   {finfo --limit 55}
    alias  heads  leaves;       # for hg refugees
    alias  log    {timeline -t ci}
    alias  not    {extras --dotfiles --ignore ""}
    alias  st     status
    alias  stat   status
    alias  t      {timeline -t ci}
    alias  time   timeline
................................................................................
    if {[interactive? $command] == false} {
       if {$command == "timeline" && [llength $lines] > 1} { 
          set revnums [computeRevnums]
          set lines [unwrapTimeline $lines]
          set lines [reformTimeline $lines $revnums]
       } elseif {$command == "finfo" && [llength $lines] > 1} { 
          # let's see whether `-p' is there:
          set catmode false
          foreach word $params {
             switch -regexp $word {
                {-p} {set catmode true}
             }
          }
          # if yes, don't unwrap (but it's still filtered 
          # through `fancy_timeline'. think ...)