 @$fix_typography_for_tex = ( S ) ->
   ### TAINT which one should come first? ###
   pipeline = [
-    # @$split           S
-    @$format_cjk      S
+    @$split           S
+    @$wrap            S
+    # @$format_cjk      S
     @$escape_for_tex  S
+    $ ( data ) -> urge '67201', data
+    @$unwrap          S
+    $ ( data ) -> help '67202', data
     ]
   return D.new_stream { pipeline, }
 

        send [ '.', 'text', glyph, meta, ]
    return null


#===========================================================================================================
#

@$escape_for_tex = ( S ) ->
  ### TAINT should preserve raw text from before replacements ###
  return $ ( event, send ) =>
    return send event unless select event, '.', Σ_glyph_description
    [ type, name, description, meta, ]  = event
    { uchr, rsg, }                      = description
    return send event unless rsg is 'u-latn'
    switch uchr
      when '\\' then return send [ 'tex', '\\textbackslash{}',    ]
      when '{'  then return send [ 'tex', '\\{',                  ]
      when '}'  then return send [ 'tex', '\\}',                  ]
      when '$'  then return send [ 'tex', '\\$',                  ]
      when '#'  then return send [ 'tex', '\\#',                  ]
      when '%'  then return send [ 'tex', '\\%',                  ]
      when '_'  then return send [ 'tex', '\\_',                  ]
      when '^'  then return send [ 'tex', '\\textasciicircum{}',  ]
      when '~'  then return send [ 'tex', '\\textasciitilde{}',   ]
      when '&'  then return send [ 'tex', '\\&',                  ]
    return send event

#-----------------------------------------------------------------------------------------------------------
@$format_cjk = ( S ) ->
