From 579282c1cc46c95a9f21a4fc222ecd19d9c4551b Mon Sep 17 00:00:00 2001
From: Gerard Vermeulen <gerard.vermeulen@posteo.net>
Date: Tue, 18 Jun 2024 15:59:47 +0200
Subject: [PATCH] Reduce PDF output real estate

---
 README.org | 52 ++++++++++++++++++++++++----------------------------
 1 file changed, 24 insertions(+), 28 deletions(-)

diff --git a/README.org b/README.org
index e005d99..5b793b6 100644
--- a/README.org
+++ b/README.org
@@ -1248,10 +1248,8 @@ based on the default completion system and behaves therefore correctly under all
 circumstances.  [[https://cestlaz.github.io/post/using-emacs-80-vertico/][Using Vertico, Marginalia, Consult, and Embark]] links to a video
 demonstration.  This setup completes Vertico with:
 1. [[info:marginalia#Top][Marginalia (info)]] for rich annotations in the minibuffer.
-2. [[info:consult#Top][Consult (info)]] for useful search and navigation commands.
-
-Finally, [[https://company-mode.github.io/][Company: a modular complete-anything framework for Emacs]] can provide
-completion in any buffer.
+2. [[info:company#Top][Company (info)]] to complete anything anywhere in Emacs.
+3. [[info:consult#Top][Consult (info)]] for useful search and navigation commands.
 
 ** [[info:vertico#Top][Vertico (info)]]
 :PROPERTIES:
@@ -1343,6 +1341,28 @@ Listing [[lst:enable-marginalia-mode]] enables =marginalia-mode=.
   (marginalia-mode +1))
 #+end_src
 
+** [[https://company-mode.github.io/][Company: a modular in-buffer completion framework for Emacs]]
+:PROPERTIES:
+:CUSTOM_ID: sec:company-setup
+:END:
+
+[[info:company#Top][Company (info)]] completes anything anywhere in Emacs.  Listing [[lst:setup-company]]
+sets it up after ensuring its installation.
+
+#+caption[Setup =company=]:
+#+caption: Setup =company=.
+#+name: lst:setup-company
+#+begin_src emacs-lisp -n :results silent
+(when (ensure-package-installation 'company)
+  ;; GAV: `desktop' may enable `company-mode' for files it remembers.
+  (add-hook 'emacs-lisp-mode-hook #'company-mode)
+  (add-hook 'lisp-interaction-mode-hook #'company-mode)
+  (add-hook 'lisp-mode-hook #'company-mode)
+  (add-hook 'python-mode-hook #'company-mode) ; works with `eglot'.
+  (add-hook 'ielm-mode-hook #'company-mode)
+  (add-hook 'sly-mrepl-mode-hook #'company-mode))
+#+end_src
+
 ** [[info:consult#Top][Consult (info)]]
 :PROPERTIES:
 :CUSTOM_ID: sec:consult-setup
@@ -1441,28 +1461,6 @@ Consult usage tips are:
 | org-store-link              | global-map           | {{{kbd(C-c l)}}}   |
 |-----------------------------+----------------------+--------------------|
 
-** [[https://company-mode.github.io/][Company (info)]]
-:PROPERTIES:
-:CUSTOM_ID: sec:company-setup
-:END:
-
-[[info:company#Top][Company (info)]] is a modular completion framework and listing [[lst:setup-company]]
-configures =company= after ensuring the =company= installation.
-
-#+caption[Setup =company=]:
-#+caption: Setup =company=.
-#+name: lst:setup-company
-#+begin_src emacs-lisp -n :results silent
-(when (ensure-package-installation 'company)
-  ;; GAV: `desktop' may enable `company-mode' for files it remembers.
-  (add-hook 'emacs-lisp-mode-hook #'company-mode)
-  (add-hook 'lisp-interaction-mode-hook #'company-mode)
-  (add-hook 'lisp-mode-hook #'company-mode)
-  (add-hook 'python-mode-hook #'company-mode) ; works with `eglot'.
-  (add-hook 'ielm-mode-hook #'company-mode)
-  (add-hook 'sly-mrepl-mode-hook #'company-mode))
-#+end_src
-
 * [[info:emacs#Search][Search and replace (info)]]
 :PROPERTIES:
 :CUSTOM_ID: sec:search-replace
@@ -2813,11 +2811,9 @@ See `org-link-parameters' for details about PATH, DESC and FORMAT."
   (setq org-info-other-documents
         (cl-union
          '(("consult" . "https://github.com/minad/consult")
-           ("embark" . "https://github.com/oantolin/embark")
            ("magit" . "https://magit.vc/manual/magit.html")
            ("marginalia" . "https://github.com/minad/marginalia")
            ("org" . "https://orgmode.org/org.html")
-           ("orderless" . "https://github.com/oantolin/orderless")
            ("sly" . "https://joaotavora.github.io/sly/")
            ("vertico" . "https://github.com/minad/vertico"))
          org-info-other-documents :test #'equal)))