From 3bd627e0958d83272c44c49af322b506ebcbf70e Mon Sep 17 00:00:00 2001
From: Gerard Vermeulen <gerard.vermeulen@posteo.net>
Date: Mon, 15 May 2023 14:07:59 +0200
Subject: [PATCH] Factor out a "Lisp font locking" section and tidy

---
 README.org | 410 ++++++++++++++++++++++++++++++++---------------------
 1 file changed, 248 insertions(+), 162 deletions(-)

diff --git a/README.org b/README.org
index 0138b00..d974951 100644
--- a/README.org
+++ b/README.org
@@ -2124,11 +2124,9 @@ list detailing and motivating each listing:
                              "\\end{document}\n")))
 
 (with-eval-after-load 'ob-lisp
-  ;; (with-eval-after-load 'slime
-  ;;   (setopt org-babel-lisp-eval-fn #'slime-eval))
-  (with-eval-after-load 'sly
-    (setopt org-babel-lisp-eval-fn #'sly-eval))
-  )
+  ;; Default to `sly-eval' whenever feasible:
+  (when (package-installed-p 'sly)
+    (setopt org-babel-lisp-eval-fn #'sly-eval)))
 
 (with-eval-after-load 'emacs
   (defun set-org-babel-language-activity (lang active)
@@ -4005,22 +4003,16 @@ that do not visit a file.
 :CUSTOM_ID: sec:common-lisp-programming
 :END:
 
-Listing [[lst:configure-sly]] configures the [[info:sly#Top][Sly (info)]] Common Lisp IDE for Emacs
-for use with [[http://www.sbcl.org/][Steel Bank Common Lisp (sbcl)]]:
-1. It configures =sly-default-lisp= and =sly-lisp-implementations= as in the
-   ~sly~ documentation string instead of in the [[info:sly#Multiple Lisps][multiple lisps (info)]] manual.
-2. It ensures the [[info:sly#Auto-SLY][automatic connection to the lisp server (info)]] when opening a
-   Common Lisp file.
-3. It configures searching documentation in the [[http://www.lispworks.com/documentation/HyperSpec/Front/][Common Lisp HyperSpec]] according
-   to the [[info:sly#Basic customization][basic customization (info)]] manual.
-Finally, listing [[lst:configure-sly]] uses a technique to [[info:sly#Loading Slynk faster][load Slynk faster (info)]]
-by means of a custom core file in src_emacs-lisp{no-littering-var-directory}.
-Listing [[lst:sbcl-core-for-sly]] tangles to a script to dump such a [[http://www.sbcl.org/][SBCL]] core.
+*** [[https://slime.common-lisp.dev/doc/html/index.html][Slime]]                                                          :noexport:
+:PROPERTIES:
+:CUSTOM_ID: sec:slime
+:header-args:emacs-lisp: :exports code :tangle no
+:END:
 
 #+caption[Configure =slime=]:
 #+caption: Configure =slime=.
 #+name: lst:configure-slime
-#+begin_src emacs-lisp -n :results silent :tangle no
+#+begin_src emacs-lisp -n :results silent
 (when (ensure-package-installation 'slime)
   (with-eval-after-load 'slime
     (setq slime-default-lisp 'sbcl
@@ -4048,6 +4040,24 @@ Listing [[lst:sbcl-core-for-sly]] tangles to a script to dump such a [[http://ww
     (keymap-set slime-prefix-map "M-h" #'slime-documentation-lookup)))
 #+end_src
 
+*** [[https://joaotavora.github.io/sly/][Sly]]
+:PROPERTIES:
+:CUSTOM_ID: sec:sly
+:END:
+
+Listing [[lst:configure-sly]] configures the [[info:sly#Top][Sly (info)]] Common Lisp IDE for Emacs
+for use with [[http://www.sbcl.org/][Steel Bank Common Lisp (sbcl)]]:
+1. It configures =sly-default-lisp= and =sly-lisp-implementations= as in the
+   ~sly~ documentation string instead of in the [[info:sly#Multiple Lisps][multiple lisps (info)]] manual.
+2. It does not ensure the [[info:sly#Auto-SLY][automatic connection to the lisp server (info)]] when
+   opening a Common Lisp file because it does not play well with =ob-lisp=.
+3. It configures searching documentation in the [[http://www.lispworks.com/documentation/HyperSpec/Front/][Common Lisp HyperSpec]] according
+   to the [[info:sly#Basic customization][basic customization (info)]] manual.
+Listing [[lst:slink-sel]] allows to set or get the Sly string elision length.
+Finally, listing [[lst:configure-sly]] uses a technique to [[info:sly#Loading Slynk faster][load Slynk faster (info)]]
+by means of a custom core file in src_emacs-lisp{no-littering-var-directory}.
+Listing [[lst:sbcl-core-for-sly]] tangles to a script to dump such a [[http://www.sbcl.org/][SBCL]] core.
+
 #+caption[Configure =sly=]:
 #+caption: Configure =sly=.
 #+name: lst:configure-sly
@@ -4086,6 +4096,51 @@ Listing [[lst:sbcl-core-for-sly]] tangles to a script to dump such a [[http://ww
     (keymap-set sly-prefix-map "M-h" #'sly-documentation-lookup)))
 #+end_src
 
+#+caption[Get/set Sly ~slynk:*string-elision-length*~ functionality]:
+#+caption: Get/set Sly ~slynk:*string-elision-length*~ functionality.
+#+name: lst:slink-sel
+#+begin_src emacs-lisp -n :results silent
+(with-eval-after-load 'sly
+  (defconst slynk-command-get-sel
+    "(cdr (assoc 'slynk:*string-elision-length* slynk:*slynk-pprint-bindings*))"
+    "Slynk \"string elision length\" getter command.")
+
+  (defun slynk-command-set-sel (sel)
+    "Slynk SEL \"string elision length\" setter command.
+SEL values must be positive integers to enable or `nil' to disable elision."
+    (format "(setf %s %s)" slynk-command-get-sel sel))
+
+  (defun slynk-get-sel ()
+    "Get the Slynk \"string-elision-length\"."
+    (cadr (sly-eval `(slynk:eval-and-grab-output ,slynk-command-get-sel))))
+
+  (defun slynk-set-sel (sel)
+    "Set the Slynk \"string-elision-length\" SEL.
+SEL values must be positive integers to enable or `nil' to disable elision."
+    (cadr (sly-eval `(slynk:eval-and-grab-output ,(slynk-command-set-sel sel)))))
+
+  (defun slynk-eval-sel-command (string)
+    "Evaluate the Slynk \"string-elision-length\" command STRING."
+    (unless (sly-connected-p)
+      (user-error "Slynk connection is not open: \"M-x sly\"?"))
+    (message "Slynk string elision length is %S"
+             (read (cadr (sly-eval `(slynk:eval-and-grab-output ,string))))))
+
+  (defun slynk-get-string-elision-length ()
+    "Get the Slynk \"string-elision-length\"."
+    (interactive)
+    (slynk-eval-sel-command slynk-command-get-sel))
+
+  (defun slynk-set-string-elision-length (&optional sel)
+    "Set the Slynk \"string-elision-length\" by evaluting SEL.
+Valid SEL values are positive integers to enable or `nil' to disable elision."
+    (interactive "XSlynk string-elision-length (nil or sel > 0): ")
+    (unless (or (null sel) (and (integerp sel) (> sel 0)))
+      (user-error
+       "Slynk `sel' must evaluate to `nil' or a positive integer (got `%S')" sel))
+    (slynk-eval-sel-command (slynk-command-set-sel sel))))
+#+end_src
+
 #+caption[Script to dump a SBCL core for the Sly Common Lisp IDE]:
 #+caption: Script to dump a SBCL core for the Sly Common Lisp IDE.
 #+header: :tangle-mode (identity #o755)
@@ -4105,9 +4160,152 @@ EOF
 # End:
 #+end_src
 
-*** [[https://www.n16f.net/blog/custom-font-lock-configuration-in-emacs/][Common Lisp custom font locking]]
+*** [[https://courses.cs.northwestern.edu/325/][CS 325 AI Programming]]
 :PROPERTIES:
-:CUSTOM_ID: sec:cl-custom-font-locking
+:CUSTOM_ID: sec:cs-325-ai-programming
+:END:
+
+The [[https://courses.cs.northwestern.edu/325/][CS 325 AI Programming]] course allows to learn Common Lisp by self-study and
+the page [[https://courses.cs.northwestern.edu/325/admin/lisp-setup.php][CS 325: Setting up Lisp]] gives instructions how to:
+1. [[https://courses.cs.northwestern.edu/325/admin/lisp-setup.php#lisp][Download and install common lisp]].
+2. [[https://courses.cs.northwestern.edu/325/admin/lisp-setup.php#quicklisp][Install Quicklisp]].
+3. [[https://courses.cs.northwestern.edu/325/admin/lisp-setup.php#install-325][Install the CS325 library]].
+
+*** [[https://www.quicklisp.org/][Quicklisp]]
+:PROPERTIES:
+:CUSTOM_ID: sec:quicklisp
+:END:
+
+[[https://www.quicklisp.org/][Quicklisp]] is a library manager for Common Lisp.  Listing
+[[lst:download+verify-quicklisp]] downloads the [[https://www.quicklisp.org/][Quicklisp]] installation file and
+verifies its signature to prevent tampering.  Listing [[lst:bootstrap-quicklisp]]
+tangles to a shell script allowing to bootstrap [[https://www.quicklisp.org/][Quicklisp]] with [[http://www.sbcl.org/][SBCL]].  Listing
+[[lst:quicklisp-sbclrc-file]] tangles to the a [[http://www.sbcl.org/][SBCL]] resource file with [[https://www.quicklisp.org/][Quicklisp]]
+support. Listing [[lst:clone-local-projects]] shows how to make local projects out
+of unpackaged projects and listing [[lst:register-load-local-projects]] shows how to
+register local projects in order to load those unpackaged projects in the same
+way as packaged projects.
+
+#+caption[Download and verify =quicklisp=]:
+#+caption: Download and verify =quicklisp=.
+#+name: lst:download+verify-quicklisp
+#+begin_src shell -n :dir ~ :results none :tangle no
+curl -sS -O https://beta.quicklisp.org/quicklisp.lisp
+curl -sS -O https://beta.quicklisp.org/quicklisp.lisp.asc
+curl -sS -O https://beta.quicklisp.org/release-key.txt
+gpg --import release-key.txt
+gpg --verify quicklisp.lisp.asc quicklisp.lisp
+#+end_src
+
+#+caption[Bootstrap =quicklisp=]:
+#+caption: Bootstrap =quicklisp=.
+#+header: :tangle-mode (identity #o755)
+#+name: lst:bootstrap-quicklisp
+#+begin_src shell -n :noeval :tangle ~/bin/quicklisp-sbcl-bootstrap
+#!/bin/sh
+
+sbcl --load ~/quicklisp.lisp <<EOF
+(quicklisp-quickstart:install)
+(quit)
+EOF
+
+# Local Variables:
+# mode: shell-script
+# sh-indentation: 2
+# sh-basic-offset: 2
+# End:
+#+end_src
+
+#+caption[Clone local =quicklisp= projects]:
+#+caption: Clone local =quicklisp= projects.
+#+name: lst:clone-local-projects
+#+begin_src shell -n :dir ~/quicklisp/local-projects :results none :tangle no
+git clone https://gitlab.com/criesbeck/cs325.git
+git clone git@github.com:ageldama/cl-state-machine.git
+#+end_src
+
+#+caption[Register and load local =quicklisp= projects with dependencies]:
+#+caption: Register and load local =quicklisp= projects with dependencies.
+#+name: lst:register-load-local-projects
+#+begin_src lisp -n :eval never-export :results none :tangle no
+;; SBCL on Darwin fails to run cl-cffi-gtk:
+;; https://lisp-journey.gitlab.io/blog/gui-programming-in-common-lisp-part-3-of-5-gtk3/
+;; https://www.crategus.com/books/cl-cffi-gtk/
+;; https://www.crategus.com/books/cl-gtk/gtk-tutorial.html
+(defun probe--local-project-directory (name)
+  (some #'identity (mapcar (lambda (x)
+                             (let ((*default-pathname-defaults* x))
+                               (probe-file name)))
+                           ql:*local-project-directories*)))
+
+(when (probe--local-project-directory "cs325")
+  (ql:register-local-projects)
+  (ql:quickload "cs325")
+  (ql:quickload "meta")
+  (ql:quickload '("named-readtables" "try")) ;; testing requires "try".
+  #-:clozure
+  (ql:quickload "nodgui") ;; requires https://www.tcl.tk/software/tklib/
+  (ql:quickload '("rutils" "rutilsx"))
+  (ql:quickload "ucons"))
+
+(when (probe--local-project-directory "cl-state-machine")
+  (ql:quickload '("cl-state-machine" "cl-state-machine-examples"
+                  "cl-state-machine-graphing" "cl-state-machine-test")))
+#+end_src
+
+#+caption: A =quicklisp= sbclrc file.
+#+name: lst:quicklisp-sbclrc-file
+#+begin_src lisp -n :eval never :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
+
+*** [[https://github.com/hellerve/sbcli][Better REPL for SBCL]]
+:PROPERTIES:
+:CUSTOM_ID: sec:sbcli
+:END:
+
+#+caption[Install =sbcli=]:
+#+caption: Install =sbcli=.
+#+name: lst:install-sbcli
+#+begin_src emacs-lisp -n :eval never-export :lexical t :tangle no
+(let ((url "https://raw.githubusercontent.com/hellerve/sbcli/master/repl.lisp")
+      (file "~/bin/sbcli"))
+  (url-copy-file url file 'ok-if-already-exists)
+  (set-file-modes file #o700))
+#+end_src
+
+#+caption[Tangle a =sbcli= resource file]:
+#+caption: Tangle a =sbcli= resource file.
+#+name: lst:write-sbslirc
+#+begin_src lisp -n :eval never :tangle ~/.sbclirc
+(setf *repl-name* "Gerard's custom REPL for SBCLI")
+;; The style option fails:
+;; (setf *pygmentize* (merge-pathnames ".pyenv/shims/pygmentize"
+;;                                     (user-homedir-pathname)))
+;; (defvar *pygmentize-options* (list "-s" "-l" "lisp" "-O" "style=zenburn"))
+#+end_src
+
+** [[https://www.n16f.net/blog/custom-font-lock-configuration-in-emacs/][Lisp mode custom font locking for Common Lisp]]
+:PROPERTIES:
+:CUSTOM_ID: sec:lisp-custom-font-locking
+:END:
+
+*** [[https://www.n16f.net/blog/custom-font-lock-configuration-in-emacs/][Initialize Common Lisp custom font locking]]
+:PROPERTIES:
+:CUSTOM_ID: sec:cl-custom-font-locking-start
 :END:
 
 #+caption[Define faces for =Common Lisp= custom font locking]:
@@ -4130,15 +4328,6 @@ EOF
   "The face used to highlight standard Common Lisp value symbols.")
 #+end_src
 
-#+caption[Setup =SLY= printing]:
-#+caption: Setup =SLY= printing.
-#+name: lst:setup-sly-printing
-#+begin_src lisp -n :eval never-export :results silent :tangle no
-;; Works in case of sly, but fails in case of slime.
-(rplacd (assoc 'slynk:*string-elision-length* slynk:*slynk-pprint-bindings*)
-        (ash 1 14))
-#+end_src
-
 #+caption[Define a =Common Lisp= function to find standard symbol names]:
 #+caption: Define a =Common Lisp= function to find standard symbol names.
 #+name: lst:standard-symbol-names
@@ -4151,6 +4340,28 @@ EOF
     (sort symbols #'string<)))
 #+end_src
 
+#+caption[Set Sly ~slynk:*string-elision-length*~]:
+#+caption: Set Sly ~slynk:*string-elision-length*~.
+#+name: lst:set-sly-sel
+#+header: :wrap "src text -n"
+#+begin_src emacs-lisp -n :eval never-export :exports both :tangle no
+(when (and (fboundp 'sly-connected-p) (sly-connected-p))
+  (and (fboundp 'slynk-set-sel) (slynk-set-sel (ash 1 14))))
+#+end_src
+
+#+caption[Set Sly ~slynk:*string-elision-length*~ result]:
+#+caption: Set Sly ~slynk:*string-elision-length*~ result.
+#+name: lst:set-sly-sel-result
+#+RESULTS: lst:set-sly-sel
+#+begin_src text -n
+16384 (15 bits, #x4000)
+#+end_src
+
+*** [[https://www.n16f.net/blog/custom-font-lock-configuration-in-emacs/][Collect standard symbol function names]]
+:PROPERTIES:
+:CUSTOM_ID: sec:cl-function-names
+:END:
+
 #+caption[Define the =cl-function-names= variable in an =Emacs Lisp= block]:
 #+caption: Use =Common Lisp= to define the =cl-function-names= variable in
 #+caption: an =Emacs Lisp= source block for tangling into =user-init-file=.
@@ -4317,7 +4528,10 @@ EOF
     "yes-or-no-p" "zerop"))
 #+end_src
 
-\newpage
+*** [[https://www.n16f.net/blog/custom-font-lock-configuration-in-emacs/][Collect standard symbol value names]]
+:PROPERTIES:
+:CUSTOM_ID: sec:cl-value-names
+:END:
 
 #+caption[Define the =cl-variable-names= variable in an =Emacs Lisp= block]:
 #+caption: Use =Common Lisp= to define the =cl-variable-names= variable in
@@ -4373,6 +4587,11 @@ EOF
     "single-float-negative-epsilon" "t"))
 #+end_src
 
+*** [[https://www.n16f.net/blog/custom-font-lock-configuration-in-emacs/][Finalize Common Lisp custom font locking]]
+:PROPERTIES:
+:CUSTOM_ID: sec:cl-custom-font-locking-final
+:END:
+
 #+caption[Finalize =Common Lisp= custom font locking]:
 #+caption: Finalize =Common Lisp= custom font locking.
 #+name: lst:finalize-cl-custom-font-locking
@@ -4402,139 +4621,6 @@ EOF
 (add-hook 'lisp-mode-hook 'cl-init-lisp-font-lock)
 #+end_src
 
-*** [[https://courses.cs.northwestern.edu/325/][CS 325 AI Programming]]
-:PROPERTIES:
-:CUSTOM_ID: sec:cs-325-ai-programming
-:END:
-
-The [[https://courses.cs.northwestern.edu/325/][CS 325 AI Programming]] course allows to learn Common Lisp by self-study and
-the page [[https://courses.cs.northwestern.edu/325/admin/lisp-setup.php][CS 325: Setting up Lisp]] gives instructions how to:
-1. [[https://courses.cs.northwestern.edu/325/admin/lisp-setup.php#lisp][Download and install common lisp]].
-2. [[https://courses.cs.northwestern.edu/325/admin/lisp-setup.php#quicklisp][Install Quicklisp]].
-3. [[https://courses.cs.northwestern.edu/325/admin/lisp-setup.php#install-325][Install the CS325 library]].
-
-*** [[https://www.quicklisp.org/][Quicklisp]]
-:PROPERTIES:
-:CUSTOM_ID: sec:quicklisp
-:END:
-
-[[https://www.quicklisp.org/][Quicklisp]] is a library manager for Common Lisp.  Listing
-[[lst:download+verify-quicklisp]] downloads the [[https://www.quicklisp.org/][Quicklisp]] installation file and
-verifies its signature to prevent tampering.  Listing [[lst:bootstrap-quicklisp]]
-tangles to a shell script allowing to bootstrap [[https://www.quicklisp.org/][Quicklisp]] with [[http://www.sbcl.org/][SBCL]].  Listing
-[[lst:quicklisp-sbclrc-file]] tangles to the a [[http://www.sbcl.org/][SBCL]] resource file with [[https://www.quicklisp.org/][Quicklisp]]
-support. Listing [[lst:clone-local-projects]] shows how to make local projects out
-of unpackaged projects and listing [[lst:register-load-local-projects]] shows how to
-register local projects in order to load those unpackaged projects in the same
-way as packaged projects.
-
-#+caption[Download and verify =quicklisp=]:
-#+caption: Download and verify =quicklisp=.
-#+name: lst:download+verify-quicklisp
-#+begin_src shell -n :dir ~ :results none :tangle no
-curl -sS -O https://beta.quicklisp.org/quicklisp.lisp
-curl -sS -O https://beta.quicklisp.org/quicklisp.lisp.asc
-curl -sS -O https://beta.quicklisp.org/release-key.txt
-gpg --import release-key.txt
-gpg --verify quicklisp.lisp.asc quicklisp.lisp
-#+end_src
-
-#+caption[Bootstrap =quicklisp=]:
-#+caption: Bootstrap =quicklisp=.
-#+header: :tangle-mode (identity #o755)
-#+name: lst:bootstrap-quicklisp
-#+begin_src shell -n :noeval :tangle ~/bin/quicklisp-sbcl-bootstrap
-#!/bin/sh
-
-sbcl --load ~/quicklisp.lisp <<EOF
-(quicklisp-quickstart:install)
-(quit)
-EOF
-
-# Local Variables:
-# mode: shell-script
-# sh-indentation: 2
-# sh-basic-offset: 2
-# End:
-#+end_src
-
-#+caption[Clone local =quicklisp= projects]:
-#+caption: Clone local =quicklisp= projects.
-#+name: lst:clone-local-projects
-#+begin_src shell -n :dir ~/quicklisp/local-projects :results none :tangle no
-git clone https://gitlab.com/criesbeck/cs325.git
-git clone git@github.com:ageldama/cl-state-machine.git
-#+end_src
-
-#+caption[Register and load local =quicklisp= projects with dependencies]:
-#+caption: Register and load local =quicklisp= projects with dependencies.
-#+name: lst:register-load-local-projects
-#+begin_src lisp -n :eval never-export :results none :tangle no
-;; SBCL on Darwin fails to run cl-cffi-gtk:
-;; https://lisp-journey.gitlab.io/blog/gui-programming-in-common-lisp-part-3-of-5-gtk3/
-;; https://www.crategus.com/books/cl-cffi-gtk/
-;; https://www.crategus.com/books/cl-gtk/gtk-tutorial.html
-(defun probe--local-project-directory (name)
-  (some #'identity (mapcar (lambda (x)
-                             (let ((*default-pathname-defaults* x))
-                               (probe-file name)))
-                           ql:*local-project-directories*)))
-
-(when (probe--local-project-directory "cs325")
-  (ql:register-local-projects)
-  (ql:quickload "cs325")
-  (ql:quickload "meta")
-  (ql:quickload '("named-readtables" "try")) ;; testing requires "try".
-  #-:clozure
-  (ql:quickload "nodgui") ;; requires https://www.tcl.tk/software/tklib/
-  (ql:quickload '("rutils" "rutilsx"))
-  (ql:quickload "ucons"))
-
-(when (probe--local-project-directory "cl-state-machine")
-  (ql:quickload '("cl-state-machine" "cl-state-machine-examples"
-                  "cl-state-machine-graphing" "cl-state-machine-test")))
-#+end_src
-
-#+caption: A =quicklisp= sbclrc file.
-#+name: lst:quicklisp-sbclrc-file
-#+begin_src lisp -n :eval never :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
-
-#+caption[Install =sbcli=]:
-#+caption: Install =sbcli=.
-#+name: lst:install-sbcli
-#+begin_src emacs-lisp -n :eval never-export :lexical t :tangle no
-(let ((url "https://raw.githubusercontent.com/hellerve/sbcli/master/repl.lisp")
-      (file "~/bin/sbcli"))
-  (url-copy-file url file 'ok-if-already-exists)
-  (set-file-modes file #o700))
-#+end_src
-
-#+caption[Tangle a =sbcli= resource file]:
-#+caption: Tangle a =sbcli= resource file.
-#+name: lst:write-sbslirc
-#+begin_src lisp -n :eval never :tangle ~/.sbclirc
-(setf *repl-name* "Gerard's custom REPL for SBCLI")
-;; The style option fails:
-;; (setf *pygmentize* (merge-pathnames ".pyenv/shims/pygmentize"
-;;                                     (user-homedir-pathname)))
-;; (defvar *pygmentize-options* (list "-s" "-l" "lisp" "-O" "style=zenburn"))
-#+end_src
-
 ** [[info:eintr#Top][Emacs Lisp Programming (info)]]
 :PROPERTIES:
 :CUSTOM_ID: sec:emacs-lisp-programming