README.org

@@ -244,7 +244,7 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
                  (embark . "gnu-devel")
                  (embark-consult . "gnu-devel")
                  (engrave-faces . "gnu")
-                 (hyperbole . "gnu-devel")
+                 (hyperbole . "gnu")
                  (marginalia . "gnu-devel")
                  (org . "gnu-devel")
                  ,(when (version< emacs-version "28.9.9")
@@ -266,7 +266,7 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
                  auctex             ; Aalborg University Center TeX
                  company            ; complete anything
                  engrave-faces      ; convert font-lock to ANSI/HTML/LaTeX
-                 ; hyperbole          ; text pattern hyperbuttons
+                 hyperbole          ; text pattern hyperbuttons
                  magit              ; Git Text-based User Interface
                  no-littering       ; keep `user-emacs-directory' clean
                  org                ; thought organizer
@@ -320,15 +320,9 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
 #+name: lst:customize-emacs-tree-sitter
 #+begin_src emacs-lisp
 (when (require 'treesit nil t)
-  ;; https://lists.gnu.org/archive/html/emacs-devel/2022-11/msg01372.html
   (let ((tselp (expand-file-name "~/VCS/tree-sitter-module/dist/")))
     (when (file-exists-p tselp)
-      (add-to-list 'treesit-extra-load-path tselp)
-      ;; Does not play nicely with eglot:
-      ;; (setq major-mode-remap-alist '((python-mode . python-ts-mode)))
-      ;; Plays nicely with eglot:
-      (add-to-list 'auto-mode-alist `(,(rx ".py" (opt "[iw]") eos) . python-ts-mode))
-      )))
+      (add-to-list 'treesit-extra-load-path tselp))))
 #+end_src
 
 * [[info:emacs#Package Installation][Install the selected packages (info)]]
@@ -1249,8 +1243,7 @@ file.
 #+name: lst:enable-vertico-mode
 #+begin_src emacs-lisp
 (when (fboundp 'savehist-mode)
-  (savehist-mode +1))
-(with-eval-after-load 'savehist-mode
+  (savehist-mode +1)
   (custom-set-variables
    '(savehist-additional-variables
      '(eww-history
@@ -4227,9 +4220,9 @@ and listing [[lst:setting-python-shell-virtualenv-root]] to set
         ("ipython"
          (custom-set-variables
           `(python-shell-interpreter
-            ,(or (executable-find "ipython3") (executable-find "ipython"))))
-         (setq python-shell-interpreter-args
-               "--simple-prompt --HistoryAccessor.enabled=False")))
+            ,(or (executable-find "ipython3") (executable-find "ipython")))
+          '(python-shell-interpreter-args
+            "--simple-prompt --HistoryAccessor.enabled=False"))))
       (message "Now `python-shell-interpreter' equals %S"
                python-shell-interpreter))))
 #+end_src
@@ -4991,12 +4984,19 @@ Listing [[lst:configure-browse-url]] configures =browse-url=.
             (seq (+? nonl) (or ".mp4" ".webm") eos)))
     "Match hyperlinks to browse with mpv.")
 
+  (if (version< emacs-version "28.0")
+      (custom-set-variables
+       '(browse-url-browser-function
+         `((,browse-url-mpv-regexp . browse-url-mpv)
+           ("." . eww-browse-url))))
+    (custom-set-variables
+     '(browse-url-handlers
+       `((,browse-url-mpv-regexp . browse-url-mpv)
+         ("." . eww-browse-url)))))
+
   (custom-set-variables
    `(browse-url-generic-program ,(or (when (eq system-type 'darwin) "open")
-                                     (executable-find "firefox")))
-   '(browse-url-handlers
-     `((,browse-url-mpv-regexp . browse-url-mpv)
-       ("." . eww-browse-url)))))
+                                     (executable-find "firefox")))))
 #+end_src
 
 *** [[https://en.wikipedia.org/wiki/Eww_(web_browser)][Emacs Web Wowser]]
@@ -5089,10 +5089,8 @@ initializes a list of =webjump-sites=.
          ("Git: NonGNU ELPA" . "git.savannah.gnu.org/cgit/emacs/nongnu.git")
          ("Git: Org Mode" . "git.savannah.gnu.org/cgit/emacs/org-mode.git")
          ("List: Org Mode" . "list.orgmode.org")
-         ("List: Emacs Developer Archives" .
+         ("List: Emacs-Devel Archives" .
           "lists.gnu.org/archive/html/emacs-devel/")
-         ("List: Help GNU Emacs Archives" .
-          "lists.gnu.org/archive/html/help-gnu-emacs/")
          ("Asian Pacific Journal Japan Focus" . "apjjf.org")
          ("Counterpunch" . "www.counterpunch.org")
          ("Dictionary FR" . [simple-query "www.cnrtl.fr"
@@ -5144,21 +5142,19 @@ initializes a list of =webjump-sites=.
 #+begin_src emacs-lisp
 (with-eval-after-load 'gnus
   (custom-set-variables
-   '(gnus-select-method '(nntp "news.gmane.io"))))
-
-(with-eval-after-load 'gnus-start
-  (custom-set-variables
-   '(gnus-check-bogus-newsgroups nil)
-   '(gnus-check-new-newsgroups 'ask-server)
-   '(gnus-read-newsrc-file t)
-   '(gnus-read-active-file 'some)
-   '(gnus-save-killed-list t)
-   '(gnus-save-newsrc-file t)
-   '(gnus-use-dribble-file t)))
-
-(with-eval-after-load 'gnus-sum
-  (custom-set-variables
-   '(gnus-thread-hide-subtree t)))
+   '(gnus-select-method '(nntp "news.gmane.io"))
+   (with-eval-after-load 'gnus-start
+     (custom-set-variables
+      '(gnus-check-bogus-newsgroups nil)
+      '(gnus-check-new-newsgroups 'ask-server)
+      '(gnus-read-newsrc-file t)
+      '(gnus-read-active-file 'some)
+      '(gnus-save-killed-list t)
+      '(gnus-save-newsrc-file t)
+      '(gnus-use-dribble-file t)))
+   (with-eval-after-load 'gnus-sum
+     (custom-set-variables
+      '(gnus-thread-hide-subtree t)))))
 #+end_src
 
 ** [[info:emacs#Sending Mail][Sending Mail (info)]]