Tweak `webjump-sites'

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")
+                 (hyperbole . "gnu-devel")
                  (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,9 +320,15 @@ 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))))
+      (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))
+      )))
 #+end_src
 
 * [[info:emacs#Package Installation][Install the selected packages (info)]]
@@ -1243,7 +1249,8 @@ file.
 #+name: lst:enable-vertico-mode
 #+begin_src emacs-lisp
 (when (fboundp 'savehist-mode)
-  (savehist-mode +1)
+  (savehist-mode +1))
+(with-eval-after-load 'savehist-mode
   (custom-set-variables
    '(savehist-additional-variables
      '(eww-history
@@ -4220,9 +4227,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")))
+            ,(or (executable-find "ipython3") (executable-find "ipython"))))
-          '(python-shell-interpreter-args
+         (setq python-shell-interpreter-args
-            "--simple-prompt --HistoryAccessor.enabled=False"))))
+               "--simple-prompt --HistoryAccessor.enabled=False")))
       (message "Now `python-shell-interpreter' equals %S"
                python-shell-interpreter))))
 #+end_src
@@ -4984,19 +4991,12 @@ 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")))))
+                                     (executable-find "firefox")))
+   '(browse-url-handlers
+     `((,browse-url-mpv-regexp . browse-url-mpv)
+       ("." . eww-browse-url)))))
 #+end_src
 
 *** [[https://en.wikipedia.org/wiki/Eww_(web_browser)][Emacs Web Wowser]]
@@ -5089,8 +5089,10 @@ 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-Devel Archives" .
+         ("List: Emacs Developer 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"
@@ -5142,19 +5144,21 @@ 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"))
+   '(gnus-select-method '(nntp "news.gmane.io"))))
-   (with-eval-after-load 'gnus-start
+
-     (custom-set-variables
+(with-eval-after-load 'gnus-start
-      '(gnus-check-bogus-newsgroups nil)
+  (custom-set-variables
-      '(gnus-check-new-newsgroups 'ask-server)
+   '(gnus-check-bogus-newsgroups nil)
-      '(gnus-read-newsrc-file t)
+   '(gnus-check-new-newsgroups 'ask-server)
-      '(gnus-read-active-file 'some)
+   '(gnus-read-newsrc-file t)
-      '(gnus-save-killed-list t)
+   '(gnus-read-active-file 'some)
-      '(gnus-save-newsrc-file t)
+   '(gnus-save-killed-list t)
-      '(gnus-use-dribble-file t)))
+   '(gnus-save-newsrc-file t)
-   (with-eval-after-load 'gnus-sum
+   '(gnus-use-dribble-file t)))
-     (custom-set-variables
+
-      '(gnus-thread-hide-subtree t)))))
+(with-eval-after-load 'gnus-sum
+  (custom-set-variables
+   '(gnus-thread-hide-subtree t)))
 #+end_src
 
 ** [[info:emacs#Sending Mail][Sending Mail (info)]]