Split pip and pypi customization options from code

README.org

@@ -4491,11 +4491,19 @@ EOF
 #+name: lst:quicklisp-sbclrc-file
 #+begin_src lisp -n :eval never-export :tangle ~/.sbclrc
 ;;; Hey Emacs, this is my -*- lisp -*- .sbclrc file.
+
+;;; The following lines added by ql:add-to-init-file:
 #-quicklisp
 (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
                                        (user-homedir-pathname))))
   (when (probe-file quicklisp-init)
     (load quicklisp-init)))
+
+;;; Load cs325.lisp to create the cs325 package.
+
+;; (eval-when (:compile-toplevel :load-toplevel :execute)
+;;   (ql:quickload "cs325")
+;;   (setq *package* (find-package :cs325-user)))
 #+end_src
 
 ** [[info:eintr#Top][Emacs Lisp Programming (info)]]
@@ -5106,6 +5114,27 @@ circular-buffer (0.2.0)
 Available versions: 0.2.0, 0.1.1, 0.1.0
 #+end_src
 
+#+caption[Emacs client "Package Installer for Python" and "PyPI" options]:
+#+caption: Emacs client "Package Installer for Python" and "PyPI" options.
+#+name: lst:pip-pypi-options
+#+begin_src emacs-lisp -n :results silent
+(defgroup pip nil
+  "Client for accessing the \"Package Installer for Python\" and \"PyPI\"."
+  :group 'applications)
+
+(defcustom pip-frozen-packages nil
+  "Frozen Python packages."
+  :group 'pip
+  :type '(repeat string))
+
+;; Frozen until the release of jupyterlab-4.0.0.
+(setopt pip-frozen-packages '("aiofiles"
+                              "jupyter-server-ydoc"
+                              "jupyter-ydoc"
+                              "y-py"
+                              "ypy-websocket"))
+#+end_src
+
 #+caption[Emacs interface to list outdated Python packages]:
 #+caption: Emacs interface to list outdated Python packages.
 #+name: lst:pip-list-outdated
@@ -5147,23 +5176,7 @@ This invokes an asynchonous process and finishes with a message."
 #+caption[Emacs interface to upgrade outdated unfrozen Python packages]:
 #+caption: Emacs interface to upgrade outdated unfrozen Python packages.
 #+name: lst:pip-upgrade-maybe
-#+begin_src emacs-lisp -n :results silent
-(defgroup pip nil
-  "Client for accessing the \"Package Installer for Python\" and \"PyPI\"."
-  :group 'applications)
-
-(defcustom pip-frozen-packages nil
-  "Frozen Python packages."
-  :group 'pip
-  :type '(repeat string))
-
-;; Frozen until the release of jupyterlab-4.0.0.
-(setopt pip-frozen-packages '("aiofiles"
-                              "jupyter-server-ydoc"
-                              "jupyter-ydoc"
-                              "y-py"
-                              "ypy-websocket"))
-
+#+begin_src emacs-lisp :results silent
 (defun pip--upgrade-maybe-sentinel (process event)
   (when (and (eq (process-status process) 'exit)
              (buffer-live-p (process-buffer process)))