From: Dan Nicolaescu <dann@ics.uci.edu>
To: Phil Hagelberg <phil@hagelb.org>
Cc: rms@gnu.org, Chong Yidong <cyd@stupidchicken.com>,
emacs-devel@gnu.org, elpa@tromey.com,
Stefan Monnier <monnier@iro.umontreal.ca>,
"Stephen J. Turnbull" <stephen@xemacs.org>,
tzz@lifelogs.com
Subject: Re: Integrating package.el
Date: Tue, 19 Jan 2010 09:17:07 -0800 (PST) [thread overview]
Message-ID: <201001191717.o0JHH7WF012628@godzilla.ics.uci.edu> (raw)
In-Reply-To: <87r5pmwcf8.fsf@hagelb.org> (Phil Hagelberg's message of "Tue, 19 Jan 2010 03:40:11 -0800")
Please add a menu to package.el.
This patch vs an older version of package.el does that. It should still apply.
--- package.el 2009-09-19 11:33:11.000000000 -0700
+++ package.el.with-menu 2009-09-19 11:31:00.000000000 -0700
@@ -1129,28 +1129,71 @@
;;;; Package menu mode.
-(defvar package-menu-mode-map nil
+(defvar package-menu-mode-map
+ (let ((map (make-keymap))
+ (menu-map (make-sparse-keymap "Package")))
+ (suppress-keymap map)
+ (define-key map "q" 'quit-window)
+ (define-key map "n" 'next-line)
+ (define-key map "p" 'previous-line)
+ (define-key map "u" 'package-menu-mark-unmark)
+ (define-key map "\177" 'package-menu-backup-unmark)
+ (define-key map "d" 'package-menu-mark-delete)
+ (define-key map "i" 'package-menu-mark-install)
+ (define-key map "g" 'package-menu-revert)
+ (define-key map "r" 'package-menu-refresh)
+ (define-key map "~" 'package-menu-mark-obsolete-for-deletion)
+ (define-key map "x" 'package-menu-execute)
+ (define-key map "h" 'package-menu-quick-help)
+ (define-key map "?" 'package-menu-view-commentary)
+ (define-key map [menu-bar package-menu] (cons "Package" menu-map))
+ (define-key menu-map [mq]
+ '(menu-item "Quit" quit-window
+ :help "Quit package selection"))
+ (define-key menu-map [s1] '("--"))
+ (define-key menu-map [mn]
+ '(menu-item "Next" next-line
+ :help "Next Line"))
+ (define-key menu-map [mp]
+ '(menu-item "Previous" previous-line
+ :help "Previous Line"))
+ (define-key menu-map [s2] '("--"))
+ (define-key menu-map [mu]
+ '(menu-item "Unmark" package-menu-mark-unmark
+ :help "Clear any marks on a package and move to the next line"))
+ (define-key menu-map [munm]
+ '(menu-item "Unmark backwards" package-menu-backup-unmark
+ :help "Back up one line and clear any marks on that package"))
+ (define-key menu-map [md]
+ '(menu-item "Mark for deletion" package-menu-mark-delete
+ :help "Mark a package for deletion and move to the next line"))
+ (define-key menu-map [mi]
+ '(menu-item "Mark for install" package-menu-mark-install
+ :help "Mark a package for installation and move to the next line"))
+ (define-key menu-map [s3] '("--"))
+ (define-key menu-map [mg]
+ '(menu-item "Update package list" package-menu-revert
+ :help "Update the list of packages"))
+ (define-key menu-map [mr]
+ '(menu-item "Refresh package list" package-menu-refresh
+ :help "Download the ELPA archive"))
+ (define-key menu-map [s4] '("--"))
+ (define-key menu-map [mt]
+ '(menu-item "Mark obsolete packages" package-menu-mark-obsolete-for-deletion
+ :help "Mark all obsolete packages for deletion"))
+ (define-key menu-map [mx]
+ '(menu-item "Execute actions" package-menu-execute
+ :help "Perform all the marked actions"))
+ (define-key menu-map [s5] '("--"))
+ (define-key menu-map [mh]
+ '(menu-item "Help" package-menu-quick-help
+ :help "Show short key binding help for package-menu-mode"))
+ (define-key menu-map [mc]
+ '(menu-item "View Commentary" package-menu-view-commentary
+ :help "Display information about this package"))
+ map)
"Local keymap for `package-menu-mode' buffers.")
-(unless package-menu-mode-map
- (setq package-menu-mode-map (make-keymap))
- (suppress-keymap package-menu-mode-map)
- (define-key package-menu-mode-map "q" 'quit-window)
- (define-key package-menu-mode-map "n" 'next-line)
- (define-key package-menu-mode-map "p" 'previous-line)
- (define-key package-menu-mode-map "u" 'package-menu-mark-unmark)
- (define-key package-menu-mode-map "\177" 'package-menu-backup-unmark)
- (define-key package-menu-mode-map "d" 'package-menu-mark-delete)
- (define-key package-menu-mode-map "i" 'package-menu-mark-install)
- (define-key package-menu-mode-map "g" 'package-menu-revert)
- (define-key package-menu-mode-map "r" 'package-menu-refresh)
- (define-key package-menu-mode-map "~"
- 'package-menu-mark-obsolete-for-deletion)
- (define-key package-menu-mode-map "x" 'package-menu-execute)
- (define-key package-menu-mode-map "h" 'package-menu-quick-help)
- (define-key package-menu-mode-map "?" 'package-menu-view-commentary)
- )
-
(defvar package-menu-sort-button-map
(let ((map (make-sparse-keymap)))
(define-key map [header-line mouse-1] 'package-menu-sort-by-column)
next prev parent reply other threads:[~2010-01-19 17:17 UTC|newest]
Thread overview: 130+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-12-26 2:55 Autoload from a web page? Lennart Borgman
2009-12-27 3:13 ` Richard Stallman
2009-12-27 3:24 ` Lennart Borgman
2009-12-28 18:48 ` Richard Stallman
2009-12-28 18:55 ` Lennart Borgman
2009-12-29 1:32 ` Stephen J. Turnbull
2009-12-29 1:39 ` Lennart Borgman
2009-12-29 2:45 ` joakim
2009-12-29 2:54 ` Lennart Borgman
2009-12-29 4:52 ` Tom Tromey
2009-12-29 22:25 ` Lennart Borgman
2009-12-30 6:13 ` Richard Stallman
2009-12-30 18:06 ` Jonas Bernoulli
2009-12-30 18:30 ` Stefan Monnier
2009-12-30 19:10 ` Jonas Bernoulli
2010-01-01 0:40 ` Phil Hagelberg
2010-01-01 19:27 ` Tom Tromey
2010-01-01 19:26 ` Tom Tromey
2010-01-04 18:12 ` Ted Zlatanov
2009-12-29 15:11 ` Ted Zlatanov
2009-12-29 18:46 ` Richard Stallman
2009-12-29 21:14 ` unsupported packages area in the Emacs repo (was: Autoload from a web page?) Ted Zlatanov
2009-12-29 21:21 ` Deniz Dogan
2009-12-29 21:38 ` unsupported packages area in the Emacs repo Ted Zlatanov
2009-12-29 21:36 ` Tom Tromey
2009-12-30 16:15 ` Ted Zlatanov
2009-12-31 5:32 ` Phil Hagelberg
2010-01-01 19:18 ` Tom Tromey
2010-01-03 5:38 ` Integrating package.el (was Re: unsupported packages area in the Emacs repo) Phil Hagelberg
2010-01-04 17:55 ` Integrating package.el Ted Zlatanov
2010-01-04 19:51 ` Tom Tromey
2010-01-05 5:02 ` Phil Hagelberg
2010-01-05 5:37 ` Lennart Borgman
2010-01-05 15:06 ` Stefan Monnier
2010-01-05 16:03 ` Ted Zlatanov
2010-01-05 16:47 ` Stefan Monnier
2010-01-05 20:18 ` Ted Zlatanov
2010-01-05 23:50 ` Jonas Bernoulli
2010-01-06 20:45 ` Richard Stallman
2010-01-06 21:49 ` Ted Zlatanov
2010-01-09 5:40 ` Phil Hagelberg
2010-01-09 14:32 ` Richard Stallman
2010-01-09 17:47 ` Phil Hagelberg
2010-01-10 10:41 ` Richard Stallman
2010-01-10 11:33 ` Stephen J. Turnbull
2010-01-10 14:04 ` Chong Yidong
2010-01-10 16:00 ` joakim
2010-01-10 20:43 ` Phil Hagelberg
2010-01-10 20:07 ` Phil Hagelberg
2010-01-10 21:24 ` Stefan Monnier
2010-01-10 23:02 ` Phil Hagelberg
2010-01-11 3:28 ` Stefan Monnier
2010-01-14 3:12 ` Phil Hagelberg
2010-01-19 11:40 ` Phil Hagelberg
2010-01-19 17:17 ` Dan Nicolaescu [this message]
2010-02-22 19:22 ` Ted Zlatanov
2010-02-22 20:36 ` joakim
2010-02-23 22:25 ` Stefan Monnier
2010-02-24 21:20 ` Ted Zlatanov
2010-02-25 20:05 ` Stefan Monnier
2010-03-01 14:59 ` Ted Zlatanov
2010-03-01 16:32 ` Jonas Bernoulli
2010-03-01 17:14 ` Ted Zlatanov
2010-03-01 20:59 ` Jonas Bernoulli
2010-03-02 17:39 ` Richard Stallman
2010-03-02 18:46 ` Ted Zlatanov
2010-03-01 21:19 ` Stefan Monnier
2010-03-02 13:34 ` Ted Zlatanov
2010-03-01 21:37 ` Jonas Bernoulli
2010-03-01 22:18 ` Štěpán Němec
2010-03-01 22:30 ` Štěpán Němec
2010-03-01 23:00 ` Jonas Bernoulli
2010-03-02 13:38 ` Ted Zlatanov
2010-03-03 20:13 ` Tom Tromey
2010-03-04 5:42 ` Phil Hagelberg
2010-03-02 19:03 ` Davis Herring
2010-02-25 22:56 ` David De La Harpe Golden
2010-03-04 5:39 ` Phil Hagelberg
2010-03-04 7:29 ` Stephen J. Turnbull
2010-03-04 18:27 ` Stefan Monnier
2010-03-05 4:41 ` Stephen J. Turnbull
2010-03-04 13:54 ` Ted Zlatanov
2010-03-04 18:29 ` Stefan Monnier
2010-03-04 18:33 ` Tom Tromey
2010-03-07 22:58 ` Phil Hagelberg
2010-03-04 20:39 ` Ted Zlatanov
2010-03-07 23:16 ` Phil Hagelberg
2010-03-08 3:17 ` Tom Tromey
2010-03-08 14:55 ` Ted Zlatanov
2010-03-08 17:01 ` Stefan Monnier
2010-03-08 17:53 ` Ted Zlatanov
2010-03-04 18:30 ` Tom Tromey
2010-03-05 0:22 ` Stefan Monnier
2010-03-01 14:43 ` Ted Zlatanov
2010-03-01 16:26 ` Jonas Bernoulli
2010-03-01 17:28 ` Ted Zlatanov
2010-03-01 18:06 ` Tom Tromey
2010-03-01 21:22 ` Jonas Bernoulli
2010-03-03 20:15 ` Tom Tromey
2010-03-03 20:22 ` Ted Zlatanov
2010-03-03 22:21 ` Tom Tromey
2010-03-02 13:31 ` Ted Zlatanov
2010-03-01 21:09 ` Jonas Bernoulli
2010-01-11 3:09 ` Stephen J. Turnbull
2010-01-12 20:06 ` Ted Zlatanov
2010-01-12 21:37 ` Phil Hagelberg
2010-01-05 15:50 ` Ted Zlatanov
2010-01-05 16:42 ` Stefan Monnier
2010-01-05 17:51 ` Installation, activation and setup of packages (e.g. Gnus) (was: Integrating package.el) Ted Zlatanov
2010-01-05 19:43 ` Installation, activation and setup of packages (e.g. Gnus) Stefan Monnier
2010-01-05 22:28 ` Gnus encouragement of GMail (was: Installation, activation and setup of packages (e.g. Gnus)) Ted Zlatanov
2010-01-05 17:27 ` Installation, activation and setup of packages (e.g. Gnus) (was: Integrating package.el) Reiner Steib
2010-01-05 18:03 ` Integrating package.el Phil Hagelberg
2010-01-05 18:40 ` Ted Zlatanov
2010-01-05 19:14 ` Tom Tromey
2010-01-05 20:04 ` Ted Zlatanov
2010-01-05 23:19 ` Tom Tromey
2010-01-06 15:42 ` Ted Zlatanov
2009-12-30 17:16 ` unsupported packages area in the Emacs repo Jonas Bernoulli
2010-01-01 19:21 ` Tom Tromey
2009-12-29 5:22 ` Autoload from a web page? Richard Stallman
2009-12-29 5:29 ` Lennart Borgman
2010-01-02 15:45 ` Richard Stallman
2010-01-04 2:26 ` Lennart Borgman
2010-01-04 16:23 ` Richard Stallman
2009-12-29 17:05 ` Stefan Monnier
2009-12-30 16:30 ` Ted Zlatanov
2009-12-30 16:58 ` Stefan Monnier
2009-12-30 17:08 ` Lennart Borgman
-- strict thread matches above, loose matches on Subject: below --
2010-01-10 22:06 Integrating package.el MON KEY
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
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=201001191717.o0JHH7WF012628@godzilla.ics.uci.edu \
--to=dann@ics.uci.edu \
--cc=cyd@stupidchicken.com \
--cc=elpa@tromey.com \
--cc=emacs-devel@gnu.org \
--cc=monnier@iro.umontreal.ca \
--cc=phil@hagelb.org \
--cc=rms@gnu.org \
--cc=stephen@xemacs.org \
--cc=tzz@lifelogs.com \
/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 public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).