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
    # -- 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







>







57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
    # -- 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
553
554
555
556
557
558
559

560
561
562
563
564
565
566
    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 ...)







>







554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
    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 ...)