From: Artur Malabarba <bruce.connor.am@gmail.com>
To: Stefan Monnier <monnier@iro.umontreal.ca>
Cc: emacs-devel <emacs-devel@gnu.org>
Subject: Re: Calling (package-initialize) sooner during initialization
Date: Tue, 31 Mar 2015 11:52:34 +0100 [thread overview]
Message-ID: <CAAdUY-K5cBaguZJKSgiMHf6Er1PTZpMDH4opS=OBqTYcXCYbvw@mail.gmail.com> (raw)
In-Reply-To: <jwvlhienrtk.fsf-monnier+emacs@gnu.org>
Something like this?
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 526c0b4..cf92557 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1628,6 +1628,28 @@ PACKAGES are satisfied, i.e. that PACKAGES is computed
using `package-compute-transaction'."
(mapc #'package-install-from-archive packages))
+(defun package--ensure-init-file ()
+ "Ensure that the user's init file calls `package-initialize'."
+ (let ((buffer (find-buffer-visiting user-init-file)))
+ (with-current-buffer (or buffer (find-file-noselect user-init-file))
+ (save-excursion
+ (save-restriction
+ (widen)
+ (goto-char (point-min))
+ (unless (search-forward "(package-initialize)" nil 'noerror)
+ (goto-char (point-min))
+ (insert
+ ";; Added by Package.el. This must come before
configurations of\n"
+ ";; installed packages. Don't delete this line. If you
don't want it,\n"
+ ";; just comment it out by adding a semicolon to the
start of the line.\n"
+ "(package-initialize)\n")
+ (unless (looking-at-p "$")
+ (insert "\n"))
+ (let ((file-precious-flag t))
+ (save-buffer)))
+ (unless buffer
+ (kill-buffer (current-buffer))))))))
+
;;;###autoload
(defun package-install (pkg &optional dont-select)
"Install the package PKG.
@@ -1656,6 +1678,7 @@ to install it but still mark it as selected."
package-archive-contents))
nil t))
nil)))
+ (package--ensure-init-file)
(let ((name (if (package-desc-p pkg)
(package-desc-name pkg)
pkg)))
@@ -1699,6 +1722,7 @@ is derived from the main .el file in the directory.
Downloads and installs required packages as needed."
(interactive)
+ (package--ensure-init-file)
(let* ((pkg-desc
(cond
((derived-mode-p 'dired-mode)
next prev parent reply other threads:[~2015-03-31 10:52 UTC|newest]
Thread overview: 104+ messages / expand[flat|nested] mbox.gz Atom feed top
2015-03-30 19:01 Calling (package-initialize) sooner during initialization Artur Malabarba
2015-03-30 20:44 ` Stefan Monnier
2015-03-31 10:52 ` Artur Malabarba [this message]
2015-03-31 12:34 ` Stefan Monnier
2015-04-18 10:46 ` Ted Zlatanov
2015-03-31 8:53 ` Thierry Volpiatto
2015-03-31 10:55 ` Artur Malabarba
2015-03-31 12:29 ` Stefan Monnier
2015-03-31 12:48 ` Dmitry Gutov
2015-03-31 13:19 ` Thierry Volpiatto
2015-03-31 13:47 ` Thierry Volpiatto
2015-03-31 14:03 ` Thierry Volpiatto
2015-03-31 14:56 ` Artur Malabarba
2015-04-01 6:04 ` Thierry Volpiatto
2015-03-31 14:51 ` Sebastian Wiesner
2015-03-31 15:40 ` Artur Malabarba
2015-03-31 20:46 ` Stefan Monnier
-- strict thread matches above, loose matches on Subject: below --
2015-04-11 23:10 Vasilij Schneidermann
2015-04-12 1:00 ` Artur Malabarba
2015-04-12 16:46 ` Mark Oteiza
2015-04-12 19:43 ` Artur Malabarba
2015-04-12 20:05 ` Mark Oteiza
2015-04-12 20:28 ` Artur Malabarba
2015-04-12 3:56 ` Stefan Monnier
2015-04-12 9:58 ` Artur Malabarba
2015-04-12 12:02 ` Stefan Monnier
[not found] ` <20150412082125.GA490@odonien>
2015-04-12 10:07 ` Vasilij Schneidermann
2015-04-12 10:28 ` Artur Malabarba
2015-04-12 12:09 Jorgen Schäfer
2015-04-12 14:26 ` Artur Malabarba
2015-04-12 14:45 ` Jorgen Schäfer
2015-04-12 20:46 ` Stefan Monnier
2015-04-12 14:40 ` Aneesh Kumar K.V
2015-04-12 16:23 ` Artur Malabarba
2015-04-12 20:44 ` Stefan Monnier
2015-04-12 21:02 ` Jorgen Schäfer
2015-04-12 23:22 ` Stefan Monnier
2015-04-13 22:52 ` Artur Malabarba
2015-04-13 22:49 ` Artur Malabarba
2015-04-18 12:25 Taylan Ulrich Bayırlı/Kammer
2015-04-18 13:32 ` Artur Malabarba
2015-04-18 14:24 ` Nic Ferrier
2015-04-18 15:16 ` Taylan Ulrich Bayırlı/Kammer
2015-04-18 17:35 ` Artur Malabarba
2015-04-18 18:25 ` Nic Ferrier
2015-04-18 18:48 ` Artur Malabarba
2015-04-18 15:11 ` Taylan Ulrich Bayırlı/Kammer
2015-04-18 17:16 ` Stefan Monnier
2015-04-18 17:56 ` Dmitry Gutov
2015-04-18 18:16 ` Taylan Ulrich Bayırlı/Kammer
2015-04-18 18:32 ` Artur Malabarba
2015-04-19 0:24 ` Drew Adams
2015-04-19 0:38 ` Artur Malabarba
2015-04-18 18:24 ` Artur Malabarba
2015-04-18 18:32 ` Dmitry Gutov
2015-04-19 8:19 ` Artur Malabarba
2015-04-18 18:04 ` Taylan Ulrich Bayırlı/Kammer
2015-04-18 18:23 ` Artur Malabarba
2015-04-19 3:07 ` Stefan Monnier
2015-04-19 6:44 ` Philipp Stephani
2015-04-19 8:11 ` Artur Malabarba
2015-04-18 22:37 ` chad
2015-04-19 6:40 ` Philipp Stephani
2015-04-19 8:04 ` Artur Malabarba
2015-04-20 0:43 ` Stefan Monnier
2015-04-20 7:54 ` Taylan Ulrich Bayırlı/Kammer
2015-04-20 12:42 ` Stefan Monnier
2015-04-20 14:31 ` Taylan Ulrich Bayırlı/Kammer
2015-04-20 16:01 ` Artur Malabarba
2015-04-20 17:29 ` chad
2015-04-20 18:38 ` Artur Malabarba
2015-04-20 19:40 ` chad
2015-04-20 19:07 ` Stefan Monnier
2015-04-20 15:19 ` Mark Oteiza
2015-04-27 9:52 ` Thierry Volpiatto
2015-04-27 11:03 ` Taylan Ulrich Bayırlı/Kammer
2015-04-27 14:01 ` Drew Adams
2015-04-27 12:32 ` Artur Malabarba
2015-04-27 14:10 ` Drew Adams
2015-04-27 14:15 ` Artur Malabarba
2015-04-27 14:36 ` Thierry Volpiatto
2015-04-27 12:46 ` Stefan Monnier
2015-04-27 13:43 ` Andy Moreton
2015-04-27 15:46 ` Stefan Monnier
2015-04-28 10:11 ` Artur Malabarba
2015-04-28 7:25 ` Oleh Krehel
2015-04-28 7:39 ` Artur Malabarba
2015-04-28 7:42 ` Oleh Krehel
2015-04-28 14:54 ` Wolfgang Jenkner
2015-04-28 16:46 ` Drew Adams
2015-04-28 17:29 ` Wolfgang Jenkner
2015-04-28 18:52 ` Artur Malabarba
2015-04-29 1:20 ` Stefan Monnier
2015-04-28 15:32 ` raman
2015-04-29 8:25 ` Thierry Volpiatto
2015-04-28 15:26 ` raman
2015-04-27 14:13 ` Drew Adams
2015-04-27 14:46 ` Thierry Volpiatto
2015-04-27 15:15 ` Artur Malabarba
2015-04-27 15:52 ` Stefan Monnier
2015-04-28 0:30 ` Stephen J. Turnbull
2015-04-29 8:01 ` Thierry Volpiatto
2015-04-29 13:09 ` Stefan Monnier
2015-04-28 0:25 ` Stephen J. Turnbull
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='CAAdUY-K5cBaguZJKSgiMHf6Er1PTZpMDH4opS=OBqTYcXCYbvw@mail.gmail.com' \
--to=bruce.connor.am@gmail.com \
--cc=emacs-devel@gnu.org \
--cc=monnier@iro.umontreal.ca \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.