Re: [PATCH] Package Installation in Tutorial

[Daniel Fleischer <danflscr@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 167 bytes --]

Stefan Kangas [2021-12-05 Sun 12:44] wrote:

> How about just
>
>     "Explore, install and remove Emacs packages (requires Internet connection)"

Sure, see attached.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Patch parenthesis --]
[-- Type: text/x-patch, Size: 2395 bytes --]

From 7c3167ebf2cabfd7423e97427c8c80c54169e422 Mon Sep 17 00:00:00 2001
From: Daniel Fleischer <danflscr@gmail.com>
Date: Wed, 1 Dec 2021 19:15:27 +0200
Subject: [PATCH] Exposing package management to users

* etc/tutorials/TUTORIAL: section about package installation

* lisp/startup.el (fancy-startup-tail): package-list button
---
 etc/tutorials/TUTORIAL | 14 ++++++++++++++
 lisp/startup.el        | 10 +++++++---
 2 files changed, 21 insertions(+), 3 deletions(-)

diff --git a/etc/tutorials/TUTORIAL b/etc/tutorials/TUTORIAL
index dcdb61f23e..a1b03a711b 100644
--- a/etc/tutorials/TUTORIAL
+++ b/etc/tutorials/TUTORIAL
@@ -1099,6 +1099,20 @@ manual in the node called "Dired".
 The manual also describes many other Emacs features.
 
 
+* INSTALLING PACKAGES
+---------------------
+
+Emacs has a rich set of packages written by the community, which
+extends Emacs' capabilities.  These features include support for new
+languages, additional themes, plugins for integrating with external
+applications and much much more.
+
+To see a list of all available packages, type M-x list-packages.  In
+this mode, you can install or uninstall packages, as well as read
+packages' descriptions.  For more information about package
+management, consult the maunal.
+
+
 * CONCLUSION
 ------------
 
diff --git a/lisp/startup.el b/lisp/startup.el
index d4bb338fc0..6ed5d5b0f4 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1835,18 +1835,22 @@ fancy-startup-tail
   (unless concise
     (fancy-splash-insert
      :face 'variable-pitch
-     "\nTo start...     "
+     "\nTo start...\t"
      :link `("Open a File"
 	     ,(lambda (_button) (call-interactively 'find-file))
 	     "Specify a new file's name, to edit the file")
-     "     "
+     "\t\t"
      :link `("Open Home Directory"
 	     ,(lambda (_button) (dired "~"))
 	     "Open your home directory, to operate on its files")
-     "     "
+     "\n\t"
      :link `("Customize Startup"
 	     ,(lambda (_button) (customize-group 'initialization))
 	     "Change initialization settings including this screen")
+     "\t"
+     :link `("Explore Packages"
+	     ,(lambda (_button) (call-interactively 'package-list-packages))
+	     "Explore, install and remove Emacs packages (requires Internet connection)")
      "\n"))
   (fancy-splash-insert
    :face 'variable-pitch "To quit a partially entered command, type "
-- 
2.33.1


[-- Attachment #3: Type: text/plain, Size: 22 bytes --]

-- 

Daniel Fleischer