Get rid of quelpa and org-menu

This commit is contained in:
Gerard Vermeulen 2022-06-30 18:07:06 +02:00
parent 5a8d673545
commit b610c2ea00
1 changed files with 6 additions and 22 deletions

View File

@ -86,8 +86,7 @@ Here follows a list of interesting Emacs configurations:
4. [[https://sachachua.com/dotemacs/][Sacha Chua's configuration]] is a practical example of producing the Emacs
initialization files by tangling an [[info:org#Top][org]] file. It gives me the impression
that she is a very practical person trying to achieve her goals by the most
efficient means. I have stolen her idea of using [[https://github.com/quelpa/quelpa][quelpa]] to install packages
from any source.
efficient means.
5. [[https://github.com/purcell/emacs.d][Steve Purcell's configuration]] is well organized, a showcase of readable code,
as well helpful commit and issue histories. See for instance the discussion
on [[https://github.com/purcell/emacs.d/issues/778][the correctness of order of company candidates in Emacs lisp mode]].
@ -237,9 +236,7 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
no-littering ; keep `user-emacs-directory' clean
orderless ; Emacs completion style
org ; thought organizer
org-menu ; transient menu for org-mode
python ; major mode to edit Python files
quelpa ; install Emacs packages from source
vertico ; VERTical Interactive Completion
wgrep ; open a writable grep buffer
xr))) ; undo rx to grok regular expressions
@ -288,20 +285,17 @@ archives:
1. The [[https://elpa.gnu.org/][GNU Emacs Lisp Package Archive]]
2. The [[https://elpa.nongnu.org/][NonGNU Emacs Lisp Package Archive]].
3. The [[https://melpa.org/#/][Milkypostman's Emacs Lisp Package Archive (MELPA)]].
In addition, the [[https://github.com/quelpa/quelpa][quelpa]] tool allows to fetch code from any source and build a
package on your computer before installation. The code in listing
[[lst:install-selected-packages]] assumes that the package system is in a *virgin*
state if the package [[https://github.com/emacscollective/no-littering][no-littering]] is not present:
The code in listing [[lst:install-selected-packages]] assumes that the package
system is in a *virgin* state if the package [[https://github.com/emacscollective/no-littering][no-littering]] is not present:
1. It installs and loads [[https://github.com/emacscollective/no-littering][no-littering]] after ensuring refreshing of the
contents of available packages.
2. It installs [[https://elpa.gnu.org/devel/org.html][Org (GNU-devel ELPA archive)]] early to shadow the built-in package
while preventing collisions between the snapshot and built-in packages.
3. It ensures installation of [[https://github.com/quelpa/quelpa][quelpa]] before ensuring installation of [[https://github.com/sheijk/org-menu#readme][org-menu]].
4. It calls src_emacs-lisp{(package-install-selected-packages)} to check the
3. It calls src_emacs-lisp{(package-install-selected-packages)} to check the
installation status of all packages in
src_emacs-lisp{package-selected-packages} and to install the missing packages
after the user has agreed to its prompt.
5. It defines a function to ensure the installation of packages in other source
4. It defines a function to ensure the installation of packages in other source
blocks. This allows skipping installation in sections with a =:noexport:=
tag by disallowing tangling.
In case of normal Emacs usage, src_emacs-lisp{(package-list-packages)} refreshes
@ -327,14 +321,6 @@ the contents of packages and allows to update packages to the latest version.
(shadow-builtin-by-install 'org)
;; Shadow built-in `python' by installing `python'.
(shadow-builtin-by-install 'python)
;; Install `quelpa'.
(unless (package-installed-p 'quelpa)
(package-install 'quelpa))
;; Install `org-menu'.
(when (fboundp 'quelpa)
(unless (package-installed-p 'org-menu)
;; Neither GNU ELPA, nor MELPA provide this package.
(quelpa '(org-menu :repo "sheijk/org-menu" :fetcher github))))
;; Install the selected packages.
(package-install-selected-packages)))
@ -1829,9 +1815,7 @@ v org-latex-classes)}}} for an explanation of the code in listing
(with-eval-after-load 'org
(define-key org-mode-map (kbd "$") #'org-electric-dollar)
(define-key org-mode-map (kbd "M-q") #'org-fill-paragraph)
(when (require 'org-menu nil 'noerror)
(define-key org-mode-map (kbd "C-c m") 'org-menu))))
(define-key org-mode-map (kbd "M-q") #'org-fill-paragraph)))
#+end_src
#+caption[Customize =org-link=]: