Domino Workspace: first beta of the Blog room

After a week absence, I've managed to add a first room type to Domino Workspace: the Blog room. When you create a room of that type, it becomes available as a tab in your workspace. You can create blog posts as well, but for now, in the "Content" and "More" textareas you have to enter the HTML manually. Later these fields will be WYSIWYG.

Important update to the StringBuffer class

I noticed that it caused errors when trying to collapse a buffer with no entries. So here is the fix:

Class StringBuffer
    Public count As Integer    
    Private arr() As String
    Private size As Integer
    Private increment As Integer
    
    Sub New(Byval a As Integer)
        Redim arr(a)
        increment=a
        count=0
    End Sub
    
    Sub add(Byval a As String)
        size=Ubound(arr())
        If count>=size Then
            Redim Preserve arr(size+increment)
        End If
        arr(count)=a
        count=count+1
    End Sub
    
    Function collapse(Byval a As String) As String
        Dim sTemp As String
        If count>0 Then
            Redim Preserve arr(count-1)    
            sTemp=Join(arr, a)
        End If
        collapse=sTemp
    End Function
    
    Function getArray() As Variant
        If count>0 Then
            Redim Preserve arr(count-1)    
        End If
        getArray=arr
    End Function
End Class

Next things to do on the Blog room

During the next few days, I will add the navigation elements: calendar, archive and tag cloud. Then I will add the comment feature.

The big challenge will be next: making a very lightweight rich text edit component I can use anywhere. It will only allow XHTML, but it will have to provide easy ways to incorporate both internal as external links, tables and images.