Fossil Wrapper

proc reformTimeline records {
# --------------------------------------------------------
# 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.
#
# output: reformatted `timeline' where user/tags information
# is put directly after the time and SHA1 hash on the same
# line 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 {         }

      regsub $rgxuser $record "" record
      regsub $time    $record "" record
      regsub $rgxrvsn $record "" record

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

      set words [lreplace $words 0 0]
      foreach word $words {
         #if {[string length $word] == 0} {continue}

         set len [expr {$len + 1 + [string length $word]}]
         if {$len <= $maxlen} {

            set msg "$msg $word"
         } else {



            set msg $msg\n$indent$word
            set lindent [string length $indent]
            set len [expr {$lindent + [string length $word]}] 
         }
      }
      # the commit message yields a single list element
      # (i.e. is treated by the subsequent filters as a single line):

      lappend out $msg\n\n
   }
   return $out
}

# --( Fossil )----------------------------------------------------------

proc fossil {args} {