@@ -29,9 +29,10 @@
 (require 'url)
 (require 'hl-line)
 (require 'rx)
 
- ;; CUSTOMIZABLE DATA
+
+;;; CUSTOMIZABLE DATA
 
 (defgroup sbbs nil
   "SchemeBBS client."
   :group 'applications
@@ -94,9 +95,10 @@
   '((nil :extend t
          :inherit highlight))
   "Face for post headers in the thread view.")
 
- ;; VARIABLES
+
+;;; VARIABLES
 
 (defvar-local sbbs--board nil
   "Buffer local reference to current board.
 
@@ -112,9 +114,10 @@
 
 (defvar-local sbbs--last-spoiler nil
   "Point of last spoiler visited.")
 
- ;; BOARD OBJECT AND FUNCTIONS
+
+;;; BOARD OBJECT AND FUNCTIONS
 
 (defun sbbs-make-board (domain name &optional tls)
   "Create board object, using DOMAIN, NAME and TLS flag."
   (vector domain name tls))
@@ -180,9 +183,10 @@
       (if (stringp choice)
           (cdr (assoc choice boards))
         choice))))
 
- ;; UTILITY FUNCTIONS
+
+;;; UTILITY FUNCTIONS
 
 (defun sbbs--reload-thread (&optional _ignore-auto _noconfirm)
   "Function to reload an opened thread."
   (when sbbs--thread-id (sbbs-view-open sbbs--thread-id)))
@@ -223,9 +227,10 @@
     ;; in case we are on the first character of a post, we shouldn't
     ;; jump back, since that would mean setting to point to NR-1.
     (sbbs-read-previous 1)))
 
- ;; UI GENERATOR
+
+;;; UI GENERATOR
 
 (defconst sbbs--link-regexp
   (rx-to-string
    `(: bos
@@ -406,9 +411,10 @@
            (when (overlay-get o 'sbbs-uncover-p)
              (delete-overlay o)))
          (setq sbbs--last-spoiler nil))))
 
- ;; URL.EL CALLBACKS
+
+;;; URL.EL CALLBACKS
 
 (defun sbbs--fix-encoding ()
   "Convert the raw response after point to utf-8."
   (save-excursion
@@ -502,9 +508,10 @@
           (if sbbs-open-at-last-post
               (sbbs-goto-end)
             (goto-char (point-min))))))))
 
- ;; INTERACTIVE FUNCTIONS
+
+;;; INTERACTIVE FUNCTIONS
 
 (defun sbbs-show-all ()
   "Show all hidden posts."
   (interactive)
@@ -718,9 +725,10 @@
 
 ;;;###autoload
 (defalias 'sbbs #'sbbs-browse)
 
- ;; MAJOR MODES
+
+;;; MAJOR MODES
 
 (defvar sbbs-view-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "RET") #'sbbs-view-open)