(defmethod transcribe-buffer (buffer (form (eql :from-html)))

  (dotimes (i 256)
    (buffer-replace-all-tag buffer (format nil "&#~a;" i) (format nil "~a" (iso-to-mac (code-char i))))
    )
  
  (buffer-replace-all-tag buffer "é" "�" )
  (buffer-replace-all-tag buffer "ê" "�" )
  (buffer-replace-all-tag buffer "è" "�" ) 
  (buffer-replace-all-tag buffer "ë" "�" )
  
  (buffer-replace-all-tag buffer "É" "�" )
  (buffer-replace-all-tag buffer "Ê" "�" )
  (buffer-replace-all-tag buffer "È" "�" )
  (buffer-replace-all-tag buffer "Ë" "�" )
  
  (buffer-replace-all-tag buffer  "á" "�")
  (buffer-replace-all-tag buffer  "à" "�")
  (buffer-replace-all-tag buffer  "â" "�")
  (buffer-replace-all-tag buffer  "Á" "�")
  (buffer-replace-all-tag buffer  "À" "�" )
  (buffer-replace-all-tag buffer  "Â" "�")
  
  (buffer-replace-all-tag buffer "ú" "�"  )
  (buffer-replace-all-tag buffer "ù"  "�")
  (buffer-replace-all-tag buffer "û" "�" )
  (buffer-replace-all-tag buffer "ü" "�" )
  (buffer-replace-all-tag buffer "Ú"  "�" )
  (buffer-replace-all-tag buffer "Ù"  "�")
  (buffer-replace-all-tag buffer "Û" "�" )
  (buffer-replace-all-tag buffer "Ü" "�" )
  
  (buffer-replace-all-tag buffer "Ò" "�" )
  (buffer-replace-all-tag buffer "Ó" "�" )
  (buffer-replace-all-tag buffer "ò" "�" )
  (buffer-replace-all-tag buffer "ó" "�" )
  (buffer-replace-all-tag buffer "ô" "�" )
  (buffer-replace-all-tag buffer "Ô" "�" )
  (buffer-replace-all-tag buffer "ö" "�" )
  (buffer-replace-all-tag buffer "Ö" "�" )
  
  (buffer-replace-all-tag buffer "î" "�" )
  (buffer-replace-all-tag buffer "ï" "�" )
  (buffer-replace-all-tag buffer "Ï" "�" )
  (buffer-replace-all-tag buffer "Î" "�" )
  
  (buffer-replace-all-tag buffer "ñ" "�" )
  (buffer-replace-all-tag buffer "Ñ" "�" )
  
  (buffer-replace-all-tag buffer "ç" "�" )
  (buffer-replace-all-tag buffer "Ç" "�" )
  
  (buffer-replace-all-tag buffer "�" "oe")
  (buffer-replace-all-tag buffer "�" "OE") 
  
  (buffer-replace-all-tag buffer "æ" "�" )
  (buffer-replace-all-tag buffer "Æ" "�" )
  
  (buffer-replace-all-tag buffer """ "'" )
  
  (buffer-replace-all-tag buffer "�"" � " )
  (buffer-replace-all-tag buffer "�" " � " )
  
  (buffer-replace-all-tag buffer "«" " � " )
  (buffer-replace-all-tag buffer "»" " � " )
  
  (buffer-replace-all-tag buffer "&" "&" )
  
  (buffer-replace-all-tag buffer "’" "'" )
  (buffer-replace-all-tag buffer "°" "�" )
  (buffer-replace-all-tag buffer  "´" "'")
  
  (buffer-replace-all-tag buffer "�" " - " )
  

  buffer
  )