fix: fix 25 by making the pygmentize invocation customizable

README.md

@@ -90,6 +90,8 @@ For reference, here is a complete list of the variables we expose:
 ; if you're unsure what to put there, i suggest using
 ; [which](https://github.com/eudoxia0/which)
 *pygmentize* ; => nil
+; you can also customize the pygmentize invocation
+*pygmentize-options* ; => ("-s" "-l" "lisp")
 
 ; the last error encountered in the REPL. You can call
 ; `invoke-debugger` on it!

repl.lisp

@@ -27,6 +27,7 @@
 (defvar *hist-file*    "~/.sbcli_history")
 (defvar *hist*         (list))
 (defvar *pygmentize*   nil)
+(defvar *pygmentize-options* (list "-s" "-l" "lisp"))
 (defvar *error*        nil)
 (declaim (special *special*))
 
@@ -298,7 +299,7 @@ strings to match candidates against (for example in the form \"package:sym\")."
   (if *pygmentize*
     (with-input-from-string (s str)
       (let ((proc (sb-ext:run-program *pygmentize*
-                                      (list "-s" "-l" "lisp")
+                                      *pygmentize-options*
                                       :input s
                                       :output :stream)))
          (read-line (sb-ext:process-output proc) nil "")))