Insert HTML action buttons for the Notes Client BlogEntry form

BTW: This is my 50st post. How time flies.

Both BlogSphere and the IBM blog template convert Notes RichText in HTML. In BlogSphere you also have the option to use plain text with hand coded HTML tags. My own blog template has only plain text, so up to now, I hand typed every single HTML tag. But then I saw some very nice Actions in the BlogSphere template to insert HTML tags.

The actions

Copying the actions from one database to another is easy. Next, I adapted them to my own needs. My target field is called "Content" and also the HTML I want is different. In the end, I even added my tool to convert code to HTML:

Which gives this in my Notes Client:

Section

This adds a header and a paragraph.

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim workspace As New NotesUIWorkspace
    Dim uiDocument As NotesUIDocument
    Dim CRLF As String
    
    CRLF=Chr(13)+Chr(10)
    Set uiDocument = workspace.CurrentDocument
    If uidocument.CurrentField = "Content" Then
        Call workspace.currentdocument.InsertText(CRLF+"<h2></h2>"+CRLF+"<p></p>"+CRLF)
    End If
End Sub

Paragraph

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim workspace As New NotesUIWorkspace
    Dim uiDocument As NotesUIDocument
    Dim CRLF As String
    
    CRLF=Chr(13)+Chr(10)
    Set uiDocument = workspace.CurrentDocument
    If uidocument.CurrentField = "Content" Then
        Call workspace.currentdocument.InsertText("<p></p>"+CRLF)
    End If
End Sub

Unordered list

An unordered list must have at least 3 items. Less looks kinda stupid.

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim workspace As New NotesUIWorkspace
    Dim uiDocument As NotesUIDocument
    Dim CRLF As String
    
    CRLF=Chr(13)+Chr(10)
    Set uiDocument = workspace.CurrentDocument
    If uidocument.CurrentField = "Content" Then
        Call workspace.currentdocument.InsertText("<ul>"+CRLF+"<li></li>"+CRLF+"<li></li>"+CRLF+"<li></li>"
+CRLF+"</ul>"+CRLF)
    End If
End Sub

Image

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim workspace As New NotesUIWorkspace
    Dim uiDocument As NotesUIDocument
    Dim CRLF As String
    
    CRLF=Chr(13)+Chr(10)
    Set uiDocument = workspace.CurrentDocument
    If uidocument.CurrentField = "Content" Then
        Call workspace.currentdocument.InsertText(|<img src="" alt="" />|+CRLF)
    End If
End Sub

Did I mention that I have a formula to calculate all paths of attachments when I use them in my text? I only have to specify the filename:

a:=@AttachmentNames;
b:=DbPath+"archive/"+PostName+"/$file/"+@AttachmentNames;
@ReplaceSubstring(@Implode(Content; @NewLine); a; b)

External link

For hyperlinks, I use the class "external" which triggers a JavaScript behaviour to open the link in a new window. The link also gets a small icon (CSS) to indicate this.

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim workspace As New NotesUIWorkspace
    Dim uiDocument As NotesUIDocument
    
    Set uiDocument = workspace.CurrentDocument
    If uidocument.CurrentField = "Content" Then
        Call workspace.currentdocument.InsertText(|<a href="" class="external"></a>|+CRLF)
    End If
    
End Sub

And finally

I've added a link to my own 'code to HTML' tool so that I never have to remember and type the URL again. You may do the same and link the tool in your blog. If it gets really popular, I will put Google Ads on the page and become very rich (just kidding).

@URLOpen("http://blog.lotusnotes.be/domino/code2html")

Many thanks, BlogSphere. I still have to get used to this luxury. At present, I find myself starting to type the tags by hand, stopping half-way because I remember I don't have to do this anymore, erasing the typed tags and selecting them from the action menu. Oh well. Have fun.