From 276c374c284f058d24e81c3f29bbbc9c72183caf Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Wed, 12 Nov 2014 22:28:54 -0500 Subject: Introduce content cleaning functions --- sx-encoding.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'sx-encoding.el') diff --git a/sx-encoding.el b/sx-encoding.el index 0b72365..bea9071 100644 --- a/sx-encoding.el +++ b/sx-encoding.el @@ -74,6 +74,18 @@ (substring ss 1)))))))) (replace-regexp-in-string "&[^; ]*;" get-function string))) +(defun sx-encoding-normalize-line-endings (string) + "Normalize the line endings for STRING" + (delete ? string)) + +(defun sx-encoding-clean-content (string) + "Cleans STRING for display. +Applies `sx-encoding-normalize-line-endings' and +`sx-encoding-decode-entities'." + (sx-encoding-decode-entities + (sx-encoding-normalize-line-endings + string))) + (defun sx-encoding-gzipped-p (data) "Checks for magic bytes in DATA. -- cgit v1.2.3