 
 (defvar-local test-suffix "-test")
 
-;;;### autoload
 (defun test-file-p (file-name)
   "Check if FILE-NAME is a test file (determined by TEST-SUFFIX)."
   (string-match-p (concat test-suffix "$") (file-name-sans-extension file-name)))
 
-;;;### autoload
 (defun implementation-or-test-file (file-name)
   "The alternate file for FILE-NAME.
 Either test file for implementation or implementation for test file."

;;;
;; UI

;;;### autoload
(defun text-scale-reset ()
  "Reset text scale by setting it to 0."
  (interactive)
  (text-scale-set 0))

;;;### autoload
(defun line-cursor ()
  "Use line cursor instead of regular cursor."
  (interactive)

      (select-window (active-minibuffer-window))
    (error "Minibuffer is not active")))

(defun toggle-scratch-buffer ()
  "Toggle scratch buffer."
  (interactive)
  (open-and-switch-to-buffer #'nil "*scratch*"))

(defun open-and-switch-to-buffer (command buffer &optional do-switch)
  "Open a `COMMAND', and switch to that `BUFFER' when `DO-SWITCH'."
  (interactive)
