Merge pull request #141 from vermiculus/babel

Font-lock code blocks according to mode.

1 files changed, 0 insertions, 28 deletions

diff --git a/sx.el b/sx.el
index 0bacad2..53c636a 100644
--- a/sx.el
+++ b/sx.el
@@ -201,34 +201,6 @@ Anything before the (sub)domain is removed."
     (rx string-start (or (and (0+ word) (optional ":") "//")))
     "" url)))
 
-(defun sx--unindent-text (text)
-  "Remove indentation from TEXT.
-Primarily designed to extract the content of markdown code
-blocks."
-  (with-temp-buffer
-    (insert text)
-    (goto-char (point-min))
-    (let (result)
-      ;; Get indentation of each non-blank line
-      (while (null (eobp))
-        (skip-chars-forward "[:blank:]")
-        (unless (looking-at "$")
-          (push (current-column) result))
-        (forward-line 1))
-      (when result
-        ;; Build a regexp with the smallest indentation
-        (let ((rx (format "^ \\{0,%s\\}"
-                    (apply #'min result))))
-          (goto-char (point-min))
-          ;; Use this regexp to remove that much indentation
-          ;; throughout the buffer.
-          (while (and (null (eobp))
-                      (search-forward-regexp rx nil 'noerror))
-            (replace-match "")
-            (forward-line 1)))))
-    ;; Return the buffer
-    (buffer-string)))
-
 
 ;;; Printing request data
 (defvar sx--overlays nil