From 0b26db33af68a4837f9f92889d00c3fa14d90d2e Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Tue, 1 Feb 2011 16:43:33 -0500 Subject: [PATCH] New function to add to filesets menu --- fileset-whole.el | 24 +++++++++++++++++++----- 1 file changed, 19 insertions(+), 5 deletions(-) diff --git a/fileset-whole.el b/fileset-whole.el index 7f2b507..8006b5e 100644 --- a/fileset-whole.el +++ b/fileset-whole.el @@ -101,11 +101,25 @@ Then the command is applied to the list of args." (defun fileset-whole-setup-menu () "Add the commands in fileset-whole-commands to fileset menu." ;;When is this triggered? - ;;And see `filesets-get-cmd-menu' - (let* - () - - )) + ;;And see `filesets-get-cmd-menu'. Either add to it or add another + ;;menu. + + ;;$$IMPROVE ME Replace "Save Filesets" with something that calls + ;;`filesets-save-config' and our own saving. + + (easy-menu-add-item + nil ;;Should this be `filesets-menu-in-menu'? + (append filesets-menu-path (list filesets-menu-name "# Filesets")) + ["Edit Filesets' Data" fileset-whole-edit] + "Save Filesets")) + +;;;_ . fileset-whole-edit +(defun fileset-whole-edit () + "Customize `fileset-whole-alist'." + (interactive) + ;;$$IMPROVE ME Populate it first from fileset-data + (customize-variable 'fileset-whole-alist)) + ;;;_ . fileset-whole-add-buffer ;;Add a "created" buffer such as gdb, eshell, or magit make to the -- 2.11.4.GIT