Reorganize functions.

1 files changed, 22 insertions, 18 deletions

diff --git a/sx-question-print.el b/sx-question-print.el
index 04c22fd..ed2fb70 100644
--- a/sx-question-print.el
+++ b/sx-question-print.el
@@ -371,24 +371,8 @@ E.g.:
           (fill-region beg (point)))))
     (replace-regexp-in-string "[[:blank:]]+\\'" "" (buffer-string))))
 
-(defun sx-question-mode--dont-fill-here ()
-  "If text shouldn't be filled here, return t and skip over it."
-  (catch 'sx-question-mode-done
-    (let ((before (point)))
-      (skip-chars-forward "\r\n[:blank:]")
-      (let ((first-non-blank (point)))
-        (dolist (it '(sx-question-mode--skip-and-fontify-pre
-                      sx-question-mode--skip-headline
-                      sx-question-mode--skip-references
-                      sx-question-mode--skip-comments))
-          ;; If something worked, keep point where it is and return t.
-          (if (funcall it) (throw 'sx-question-mode-done t)
-            ;; Before calling each new function. Go back to the first
-            ;; non-blank char.
-            (goto-char first-non-blank)))
-        ;; If nothing matched, go back to the very beginning.
-        (goto-char before)))))
-
+
+;;; Handling links
 (defun sx-question-mode--process-links-in-buffer ()
   "Turn all markdown links in this buffer into compact format."
   (save-excursion
@@ -432,6 +416,26 @@ If ID is nil, use FALLBACK-ID instead."
              nil t)
         (match-string-no-properties 1)))))
 
+
+;;; Things we don't fill
+(defun sx-question-mode--dont-fill-here ()
+  "If text shouldn't be filled here, return t and skip over it."
+  (catch 'sx-question-mode-done
+    (let ((before (point)))
+      (skip-chars-forward "\r\n[:blank:]")
+      (let ((first-non-blank (point)))
+        (dolist (it '(sx-question-mode--skip-and-fontify-pre
+                      sx-question-mode--skip-headline
+                      sx-question-mode--skip-references
+                      sx-question-mode--skip-comments))
+          ;; If something worked, keep point where it is and return t.
+          (if (funcall it) (throw 'sx-question-mode-done t)
+            ;; Before calling each new function. Go back to the first
+            ;; non-blank char.
+            (goto-char first-non-blank)))
+        ;; If nothing matched, go back to the very beginning.
+        (goto-char before)))))
+
 (defun sx-question-mode--skip-and-fontify-pre ()
   "If there's a pre block ahead, handle it, skip it and return t.
 Handling means to turn it into a button and remove erroneous