From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?ISO-8859-1?Q?R=FCdiger?= Sonderfeld Newsgroups: gmane.emacs.devel Subject: [PATCH 2/5] eww: Add menu for `eww-bookmark-mode'. Date: Fri, 20 Dec 2013 00:44:34 +0100 Message-ID: <2374402.LvHh1uQteE@descartes> References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7Bit X-Trace: ger.gmane.org 1387496693 13306 80.91.229.3 (19 Dec 2013 23:44:53 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 19 Dec 2013 23:44:53 +0000 (UTC) Cc: Lars Magne Ingebrigtsen , Ted Zlatanov To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Dec 20 00:44:58 2013 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1VtnGz-00022Z-AR for ged-emacs-devel@m.gmane.org; Fri, 20 Dec 2013 00:44:57 +0100 Original-Received: from localhost ([::1]:46906 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VtnGy-0001E7-Vd for ged-emacs-devel@m.gmane.org; Thu, 19 Dec 2013 18:44:56 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:54006) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VtnGp-00012I-Et for emacs-devel@gnu.org; Thu, 19 Dec 2013 18:44:53 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VtnGj-0002VD-J6 for emacs-devel@gnu.org; Thu, 19 Dec 2013 18:44:47 -0500 Original-Received: from ptmx.org ([178.63.28.110]:33839) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VtnGj-0002V1-CH for emacs-devel@gnu.org; Thu, 19 Dec 2013 18:44:41 -0500 Original-Received: from localhost (localhost [127.0.0.1]) by ptmx.org (Postfix) with ESMTP id CC86922ACB; Fri, 20 Dec 2013 00:44:40 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at ptmx.org Original-Received: from ptmx.org ([127.0.0.1]) by localhost (ptmx.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id WdNIu0ag8mxY; Fri, 20 Dec 2013 00:44:39 +0100 (CET) Original-Received: from descartes.localnet (chello080108246092.7.14.vie.surfer.at [80.108.246.92]) by ptmx.org (Postfix) with ESMTPSA id 3F63C2130B; Fri, 20 Dec 2013 00:44:39 +0100 (CET) User-Agent: KMail/4.11.2 (Linux/3.11.0-14-generic; KDE/4.11.2; x86_64; ; ) In-Reply-To: X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 178.63.28.110 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:166630 Archived-At: * lisp/net/eww.el (eww-bookmark-mode-map): Add menu. --- lisp/ChangeLog | 1 + lisp/net/eww.el | 11 +++++++++++ 2 files changed, 12 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index db57dbc..cf8553d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,6 +5,7 @@ (eww-bookmark-prepare, eww-bookmark-kill, eww-bookmark-yank) (eww-bookmark-browse, eww-next-bookmark, eww-previous-bookmark): Use `user-error'. + (eww-bookmark-mode-map): Add menu. 2013-12-19 Teodor Zlatanov diff --git a/lisp/net/eww.el b/lisp/net/eww.el index feec873..1da2bb2 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -1224,6 +1224,17 @@ (defvar eww-bookmark-mode-map (define-key map [(control k)] 'eww-bookmark-kill) (define-key map [(control y)] 'eww-bookmark-yank) (define-key map "\r" 'eww-bookmark-browse) + + (easy-menu-define nil map + "Menu for `eww-bookmark-mode-map'." + '("Eww Bookmark" + ["Exit" eww-bookmark-quit t] + ["Browse" eww-bookmark-browse + :active (get-text-property (line-beginning-position) 'eww-bookmark)] + ["Kill" eww-bookmark-kill + :active (get-text-property (line-beginning-position) 'eww-bookmark)] + ["Yank" eww-bookmark-yank + :active eww-bookmark-kill-ring])) map)) (define-derived-mode eww-bookmark-mode nil "eww bookmarks" -- 1.8.5