 ;; Auto actions
 
 (defun intero-parse-comma-list (text)
-  "Parse a list of comma-separated expressions."
+  "Parse a list of comma-separated expressions in TEXT."
   (cl-loop for tok in (split-string text "[[:space:]\n]*,[[:space:]\n]*")
            with acc = nil
            append (let* ((clist (string-to-list tok))

    (forward-char (1- char))))

(defun intero-linkify-file-line-char (begin end)
  "Linkify all occurances of <file>:<line>:<char>: betwen begin and end"
  (when (> end begin)
    (let ((end-marker (copy-marker end))
          ;; match - /path/to/file.ext:<line>:<char>:

  "Keymap for clicking on links in REPL.")

(defun intero-find-file-with-line:char ()
  "Jump to the file and location indicated by text properties at point."
  (interactive)
  (let ((file (get-text-property (point) 'file))
        (line (get-text-property (point) 'line))
