(defun 4g--orgify-com (com)
"Convert board-style HTML comment COM into Org markup."
(unless (and com (stringp com))
(signal 'wrong-type-argument (list 'stringp com)))
;; --- order matters! ---
(thread-first com
(4g--replace-regexes
(map-pairs
(list
4g--rx-code "\n#+begin_src elisp<br>\\1<br>#+end_src\n"
4g--rx-quotelink-crossthread "[[elisp:(4g-thread \"\\1\" \\2)][>>\\3 (thread \\2)]]"
4g--rx-quotelink-inpage "[[\\1][>>\\1]]"
4g--rx-greentext "=\\1=")))
(4g--replace-literals 4g--simple-tags)
(4g--replace-literals 4g--html-linebreaks)
(4g--replace-literals 4g--html-literals)))