Zap aliases in `org-babel-active-languages' and sort the result

README.org

@@ -337,12 +337,13 @@ the contents of packages and allows to update packages to the latest version.
     ;; Install and require `no-littering'.
     (package-install 'no-littering)
     (require 'no-littering)
-    ;; https://emacs.stackexchange.com/a/45939 answers
-    ;; "How to shadow automatically a built-in package by installing it?"
+    ;; Stolen from (find-function-other-window 'eglot-upgrade-eglot):
     (defun shadow-builtin-by-install (pkg)
-      (when-let ((desc (cadr (assq pkg package-archive-contents))))
-        (package-install desc 'dont-select)))
+      (unless (bound-and-true-p package-archive-contents)
+        (package-refresh-contents))
+      (package-install (cadr (assoc pkg package-archive-contents))))
     ;; Shadow built-in `org' by installing `org'.
+    ;; Note (package-reinstall 'org) deletes the shadowing `org'.
     (shadow-builtin-by-install 'org)
     ;; Install the selected packages.
     (package-install-selected-packages)))
@@ -2096,6 +2097,8 @@ list detailing and motivating each listing:
      (perl . t)
      ;; Postpone Python activation to prevent calling still unbound functions.
      (python . nil)
+     ;; MIT/GNU Scheme breaks Babel contrary to Guile, Chez and Chicken Scheme.
+     (scheme . ,(fboundp 'geiser-mode))
      (shell . t))
    org-export-backends '(ascii beamer html icalendar latex odt texinfo)
    org-file-apps '((auto-mode . emacs)
@@ -2526,45 +2529,46 @@ Return a list of items where the filename is the `car' of each item and the
 #+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")))
+  (let ((result '("conf" "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))))
+              ;; Get rid of all sub-modes in `ob-shell':
+              (not (eq 'org-babel-shell-initialize (get x 'definition-name)))
+              ;; Get rid of aliases:
+              (not (eq 'symbol (type-of (symbol-function x)))))
          (when (symbol-file x)
            (push (string-remove-prefix "org-babel-execute:" (symbol-name x))
                  result)))))
     result))
 
-(mapcar #'list (org-babel-active-languages))
+(mapcar #'list (cl-sort (org-babel-active-languages) #'string<))
 #+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")
  ("C++")
- ("latex-header")
- ("org")
- ("cpp")
- ("js")
- ("shell")
- ("elisp")
- ("latex-extra-header")
- ("latex")
- ("emacs-lisp")
+ ("D")
+ ("calc")
  ("conf")
+ ("cpp")
+ ("emacs-lisp")
+ ("eshell")
+ ("fortran")
+ ("js")
+ ("latex")
  ("latex-extra-header")
  ("latex-header")
+ ("lisp")
+ ("maxima")
+ ("org")
+ ("perl")
+ ("scheme")
+ ("shell")
  ("text")
  ("toml"))
 #+end_src
@@ -5104,8 +5108,9 @@ Available versions: 0.2.0, 0.1.1, 0.1.0
   :group 'pip
   :type '(repeat string))
 
-;; Frozen until the release of jupyterlab-4.0.0.
+;; Frozen until the release of jupyterlab-4.0.0 or other packages.
 (setopt pip-frozen-packages '("aiofiles"
+                              "docutils"
                               "jupyter-server-ydoc"
                               "jupyter-ydoc"
                               "y-py"
@@ -5502,9 +5507,10 @@ 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")))
+(when (ensure-package-installation
+       'geiser 'geiser-chez 'geiser-chicken 'geiser-guile 'geiser-mit)
+  (setopt geiser-chez-binary (executable-find "chez")
+          geiser-scheme-implementation 'chez))
 #+end_src
 
 * [[https://github.com/emacs-tw/awesome-emacs#library][Libraries]]