Freeze urllib3 too

README.org

@@ -2413,14 +2413,14 @@ else:
 |  -2 | [NO-PACKAGES]         |
 |  -3 | [NO-EXTRA]            |
 
-*** Debug setting =org-babel-load-languages= options
+*** Org introspection
 :PROPERTIES:
-:CUSTOM_ID: sec:setopt-org-babel-load-languages
+:CUSTOM_ID: sec:org-introspection
 :header-args:emacs-lisp: :exports code :tangle no
 :END:
 
-#+caption[Find valid entries for  =org-babel-load-languages=]:
-#+caption: Find valid entries for  =org-babel-load-languages=.
+#+caption[Find valid entries for =org-babel-load-languages=]:
+#+caption: Find valid entries for =org-babel-load-languages=.
 #+name: lst:valid-org-babel-load-languages-entries
 #+header: :wrap "src emacs-lisp :results silent :tangle no"
 #+begin_src emacs-lisp :exports both :results value pp
@@ -2499,6 +2499,55 @@ Return a list of items where the filename is the `car' of each item and the
  ("ob-sqlite" "sqlite"))
 #+end_src
 
+#+caption[Find active Org Babel languages]:
+#+caption: Find active Org Babel languages.
+#+name: lst:org-babel-active-languages
+#+header: :wrap "src emacs-lisp :results silent :tangle no"
+#+begin_src emacs-lisp :exports both :results value pp
+(defun org-babel-active-languages ()
+  (let ((result '("conf" "latex-extra-header" "latex-header" "text" "toml")))
+    (mapatoms
+     (lambda (x)
+       (when (and
+              (string-prefix-p "org-babel-execute:" (symbol-name x))
+              (not (eq 'org-babel-shell-initialize (get x 'definition-name))))
+         (when (symbol-file x)
+           (push (string-remove-prefix "org-babel-execute:" (symbol-name x))
+                 result)))))
+    result))
+
+(mapcar #'list (org-babel-active-languages))
+#+end_src
+
+#+caption[Active Org Babel languages]:
+#+caption: Active Org Babel languages.
+#+RESULTS: lst:org-babel-active-languages
+#+begin_src emacs-lisp :results silent :tangle no
+(("calc")
+ ("perl")
+ ("lisp")
+ ("eshell")
+ ("maxima")
+ ("fortran")
+ ("D")
+ ("C")
+ ("C++")
+ ("latex-header")
+ ("org")
+ ("cpp")
+ ("js")
+ ("shell")
+ ("elisp")
+ ("latex-extra-header")
+ ("latex")
+ ("emacs-lisp")
+ ("conf")
+ ("latex-extra-header")
+ ("latex-header")
+ ("text")
+ ("toml"))
+#+end_src
+
 *** [[https://github.com/bdarcus/citar][Citar: citing bibliography]] with [[https://orgmode.org/][Org Mode]]
 :PROPERTIES:
 :CUSTOM_ID: sec:citing-bibliography
@@ -4735,47 +4784,12 @@ byte code:
 13      return
 #+end_src
 
-** [[https://en.wikibooks.org/wiki/Scheme_Programming][Scheme Programming]]
+** [[https://go.dev/][Go Programming]]
 :PROPERTIES:
-:CUSTOM_ID: sec:scheme-programming
+:CUSTOM_ID: sec:go-programming
 :END:
 
-- [[https://wiki.call-cc.org/emacs#using-chicken-with-emacs][Using Chicken Scheme with Emacs]]
-
-#+begin_src shell -n
-# https://gitlab.com/emacs-geiser/chicken
-# Install the necessary support eggs:
-chicken-install -s apropos chicken-doc srfi-18 srfi-1
-# Update the Chicken documentation database:
-cd $(csi -R chicken.platform -p '(chicken-home)')
-curl https://3e8.org/pub/chicken-doc/chicken-doc-repo-5.tgz | sudo tar zx
-#+end_src
-
-#+begin_src emacs-lisp -n
-(when (ensure-package-installation 'geiser 'geiser-chez 'geiser-chicken
-                                   'geiser-mit)
-  (setopt geiser-chez-binary (executable-find "chez")))
-#+end_src
-
-** [[https://www.lua.org/][Lua Programming]]
-:PROPERTIES:
-:CUSTOM_ID: sec:lua-programming
-:END:
-
-#+caption[Install =lua-mode= in case of =Lua=]:
-#+caption: Install =lua-mode= in case of =Lua=.
-#+name: lst:install-lua-mode
-#+begin_src emacs-lisp -n :results silent
-(when (and (executable-find "lua")
-           (ensure-package-installation 'company-lua 'lua-mode)))
-#+end_src
-
-#+caption[Lua example]:
-#+caption: Lua example.
-#+name: lst:lua-example
-#+begin_src lua -n :results silent :var x=10 y=20
-return (x+y)
-#+end_src
+1. [[https://gobyexample.com/][Go by example]]
 
 ** [[info:maxima#Top][Maxima Programming (info)]]
 :PROPERTIES:
@@ -5222,6 +5236,7 @@ Available versions: 0.2.0, 0.1.1, 0.1.0
 (setopt pip-frozen-packages '("aiofiles"
                               "jupyter-server-ydoc"
                               "jupyter-ydoc"
+                              "urllib3"
                               "y-py"
                               "ypy-websocket"))
 #+end_src
@@ -5596,6 +5611,28 @@ configures =code-cells=.
       (keymap-set map "C-c C-c" #'code-cells-eval))))
 #+end_src
 
+** [[https://en.wikibooks.org/wiki/Scheme_Programming][Scheme Programming]]
+:PROPERTIES:
+:CUSTOM_ID: sec:scheme-programming
+:END:
+
+- [[https://wiki.call-cc.org/emacs#using-chicken-with-emacs][Using Chicken Scheme with Emacs]]
+
+#+begin_src shell -n
+# https://gitlab.com/emacs-geiser/chicken
+# Install the necessary support eggs:
+chicken-install -s apropos chicken-doc srfi-18 srfi-1
+# Update the Chicken documentation database:
+cd $(csi -R chicken.platform -p '(chicken-home)')
+curl https://3e8.org/pub/chicken-doc/chicken-doc-repo-5.tgz | sudo tar zx
+#+end_src
+
+#+begin_src emacs-lisp -n
+(when (ensure-package-installation 'geiser 'geiser-chez 'geiser-chicken
+                                   'geiser-mit)
+  (setopt geiser-chez-binary (executable-find "chez")))
+#+end_src
+
 *** TODO Look into: editing facilities
 1. [[https://github.com/douglasdavis/numpydoc.el/blob/main/numpydoc.el][Emacs extension to insert numpy style docstrings in function definitions]]
 
@@ -5735,6 +5772,7 @@ contrary to for instance [[https://github.com/Fanael/rainbow-delimiters#readme][
 
   (dolist (hook '(emacs-lisp-mode-hook
                   geiser-repl-startup-hook
+                  ;; go-mode-ts-hook is not operational in Emacs-29!
                   ielm-mode-hook
                   lisp-data-mode-hook
                   lisp-mode-hook
@@ -5743,6 +5781,16 @@ contrary to for instance [[https://github.com/Fanael/rainbow-delimiters#readme][
                   sly-mrepl-mode-hook))
     (add-hook hook #'smartparens-strict-mode))
 
+  (when (fboundp 'go-ts-mode)
+    ;; Stolen from `smartparens-go':
+    (sp-with-modes 'go-ts-mode
+      (sp-local-pair "{" nil :post-handlers '(("||\n[i]" "RET")))
+      (sp-local-pair "/*" "*/" :post-handlers '(("| " "SPC")
+                                                ("* ||\n[i]" "RET"))))
+    ;; Go has no sexp suffices.  This fixes slurping:
+    ;; (|foo).bar -> (foo.bar)
+    (add-to-list 'sp-sexp-suffix (list #'go-mode 'regexp "")))
+
   ;; https://xenodium.com/emacs-smartparens-auto-indent/index.html
   (defun indent-between-pair (&rest _ignored)
     (newline)