DominoWiki update

I have discovered a ridiculous bug in version 1.1, to do with page promotion. I must have been smoking crack when I tested this before. May my mother smack me upside the head and call me Nigel (no offence to any Nigels out there): the coding error is stupid.

The new release will be sooner rather than later… ;-)


  1. I bet you wish you'd listened to what your mother told you about mixing drugs and coding.

    ("What did she say?"
    "I don't know - I wasn't listening.")

    Julian Woodward#
  2. Careful mate, leave things like that in and people will demand a refund ;)Ben Rose#
  3. Just reporting that I've put up some code at in the dominowiki discussion that provides for for use of emoticons. It's a trivial addition really but I hope you can find a use for it. I'm hoping to be able to add a coloured text option too at some point but think that might be a bit more tricky.mark b#
  4. @2: LOL! Ah, but I have the Macbook now… all will be well with my code (!)

    @3: Mark, nice one! Will take a gander, thanks very much!Ben Poole#
  5. Ben,

    Not sure whether you'd rather I emailed this to you, added it here or in openntf?

    This goes in the WikiPage.class of course. It works but is broken by block HTML elemeents like LI. It could use DIV rather than SPAN to counter that but then you couldn't have colours within a line. Would be nice to allow any colour as hex or if it could be done from the web to allow administrators to create their own set?

    ' Mark Bryson Dec 06. Char strings replaced by codes for images in db resources
    ' e.g. :oops: becomes oops
    ' to alter or add, adjust the split names below and resource area images accordingly
    Public Function parseEmoticons (txt As String) As String
    Dim t As String
    Dim emoticons As Variant
    emoticons = Split("angry ask doh eek hush laugh laff mad nono oops sick", " ")
    t$ = txt$
    Forall e In emoticons
    t$ = Replace(t$, ":" & e & ":", {} & e & {} )
    End Forall
    parseEmoticons = t$
    End Function

    ' coloured text and coloured background, e.g. :red:this is red text::/red: and
    ' :byellow:this makes a yellow background:/byellow:
    Public Function parseColours(txt As String) As String
    Dim t As String
    Dim txtcolours As Variant
    txtcolours = Split("black green silver lime gray olive white yellow maroon navy red blue purple teal fuchsia aqua", " ")
    t$ = txt$
    Forall e In txtcolours
    ' background colours first
    t$ = Replace( t$, ":b" & e & ":", {} )
    t$ = Replace(t$, ":/b" & e & ":", {
    } )
    ' then text colours
    t$ = Replace(t$, ":" & e & ":", {} )
    t$ = Replace(t$, ":/" & e & ":", {
    } )
    End Forall
    parseColours = t$
    End Function
  6. Em… read this Ben… talk about stupid! Mooney#

Comments on this post are now closed.


I’m a software architect / developer / general IT wrangler specialising in web, mobile web and middleware using things like node.js, Java, C#, PHP, HTML5 and more.

Best described as a simpleton, but kindly. You can read more here.