Fossil Wrapper

      lappend out "$record"
   }
   return $out
}

proc reformTimeline {records revnums} {
# --------------------------------------------------------
# expected input: list of timeline entries as provided by
# `unwrapTimeline', i.e. either "date lines" or "commit"
# lines containing the whole commit including the commit
# message possibly followed by file status lines (if `-showfiles' is used).
#
# output: a list of newline terminated lines where the user/tags
# information is appended to the line containing the time and SHA1 
# hash and the commit message is put on the following line(s) using an 
# indent string `indent' and a line length `maxlen'.
# --------------------------------------------------------


   #these parameters should be user settable:
   set maxlen 78
   set indent {........ }
   set indent {         }


   set numrev {}
   set isAppended 0
   set out {}
   set buf ""
   set usertag ""
   set rgxdate {^=== [0-9-]+ ===$}
   set rgxtime {^\d\d:\d\d:\d\d}
   set rgxrev {\[([a-f\d]{10})([^\]]*)\]}
   set rgxuser {\(user: .*\)}


   set maxrev [dict size $revnums]

   foreach record $records {
      # first get rid of the record/line terminating newline:
      set record "[string trimright $record]"

      if {[regexp $rgxdate $record]} {
         # the `date' information is extracted and then prepended to the suitable checkins
         set date [regsub {(=== )(.*)( ===)} $record {\2}]
      } elseif {[regexp $rgxrev $record]} {
         # this line contains the checkin message:
         regexp $rgxtime $record time
         regexp $rgxrev $record rev
         regexp $rgxuser $record usertag
         set numrev [expr { $maxrev - [dict get $revnums $rev] }]:


         regsub $rgxuser $record "" record
         regsub $time    $record "" record
         regsub $rgxrev  $record "" record
         set record "[string trim $record]"

         ###### patch ######
         #lappend out $record
         lappend out "\n$date $time $numrev$rev $record $usertag"
         ###### the following line wrapping does not work anymore for current format. delete or adjust....
         continue    
         ###### patch ######

         set message [string trim $record]
         set words [split $message]
         set line $indent[lindex $words 0]
         set len [string length $line]

         set words [lreplace $words 0 0]
         set wrdnum [llength $words]
         set wrdcnt 0
         foreach word $words {
            incr wrdcnt
            set wrdlen [string length $word]
            set len [expr {$len + 1 + $wrdlen}]
            if {$len <= $maxlen} {
               set line "$line $word"
               set isAppended 0
            } else {
               lappend out $line\n
               set line $indent$word
               set len [string length $line]
               if {$wrdcnt < $wrdnum} {
                  set isAppended 1
               } else {set isAppended 0} ;#since the loop stops _now_...
            }
         }
         if {$isAppended == 0} {lappend out $line}
      } else {
         # should be a file status line as delivered by `-showfiles' (since
         # it is neither matching `rgxdate' nor `rgxrev'). append after
         # stripping white space and separate by appending a full stop.
         lappend out " [string trim $record]."
      }
   }

          # through `fancy_timeline'. think ...)
          if {!$catmode} {
             set lines [unwrapTimeline $lines]
          }
       }
       foreach line $lines {
          if {$debug == true} {

             puts -nonewline "IN: $line"

             puts -nonewline "OU: "
          }
          filter_with $chain "$line"

       }
    }

    log_user $prior_log;              # revert Expect settings
    return [spawned_errno $spawn_id]; # return with fossil error code
}

# --( Entry )-----------------------------------------------------------

config::init ~/.fslrc
exit [fossil {*}$argv]