forum::format::emoticons (public)

 forum::format::emoticons -content content

Defined in packages/forums/tcl/messages-format-procs.tcl

Convert smileys (emoticons) in supplied content into emoji HTML entities.

Switches:
-content
(required)
See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 test_web_forums_message_and_reply web_forums_message_and_reply (test forums) forum::format::emoticons forum::format::emoticons test_web_forums_message_and_reply->forum::format::emoticons packages/forums/lib/message/row.tcl packages/forums/ lib/message/row.tcl packages/forums/lib/message/row.tcl->forum::format::emoticons packages/forums/lib/message/row2.tcl packages/forums/ lib/message/row2.tcl packages/forums/lib/message/row2.tcl->forum::format::emoticons packages/forums/www/load-message-content.tcl packages/forums/ www/load-message-content.tcl packages/forums/www/load-message-content.tcl->forum::format::emoticons

Testcases:
web_forums_message_and_reply
Source code:
        set emoticons_map [list]

        # if you change this list, consider changing
        # www/doc/emoticons.adp as well
        set emoticons_map {
            ":-)" "😊"
            ";-)" "😉"
            ":-D" "😃"
            "8-)" "😎"
            ":-(" "😟"
            ";-(" "😢"
            ":-O" "😱"
            ":-/" "🤔"
        }
        return [string map $emoticons_map $content]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: