1 ;;; ede/dired.el --- EDE extensions to dired.
3 ;; Copyright (C) 1998-2000, 2003, 2009-2014 Free Software Foundation, Inc.
5 ;; Author: Eric M. Ludlam <zappo@gnu.org>
7 ;; Keywords: project, make
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
26 ;; This provides a dired interface to EDE, allowing users to modify
27 ;; their project file by adding files (or whatever) directly from a
29 (eval-when-compile (require 'cl
))
35 (defvar ede-dired-keymap
36 (let ((map (make-sparse-keymap)))
37 (define-key map
".a" 'ede-dired-add-to-target
)
38 (define-key map
".t" 'ede-new-target
)
39 (define-key map
".s" 'ede-speedbar
)
40 (define-key map
".C" 'ede-compile-project
)
41 (define-key map
".d" 'ede-make-dist
)
44 ede-dired-menu map
"EDE Dired Minor Mode Menu"
46 [ "Add files to target" ede-dired-add-to-target
(ede-current-project) ]
47 ( "Build" :filter ede-build-forms-menu
)
49 [ "Create Project" ede-new
(not (ede-current-project)) ]
50 [ "Create Target" ede-new-target
(ede-current-project) ]
52 ( "Customize Project" :filter ede-customize-forms-menu
)
53 [ "View Project Tree" ede-speedbar
(ede-current-project) ]
56 "Keymap used for ede dired minor mode.")
59 (define-minor-mode ede-dired-minor-mode
60 "A minor mode that should only be activated in DIRED buffers.
61 If ARG is nil or a positive number, force on, if
63 :lighter
" EDE" :keymap ede-dired-keymap
64 (unless (derived-mode-p 'dired-mode
)
65 (setq ede-dired-minor-mode nil
)
66 (error "Not in DIRED mode"))
67 (unless (or (ede-directory-project-p default-directory
)
68 (called-interactively-p 'any
))
69 (setq ede-dired-minor-mode nil
)))
71 (defun ede-dired-add-to-target (target)
72 "Add a file, or all marked files into a TARGET."
74 (let ((ede-object (ede-current-project)))
75 (ede-invoke-method 'project-interactive-select-target
76 "Add files to Target: "))))
77 (dolist (file (dired-get-marked-files t
))
78 (project-add-file target file
)
79 ;; Find the buffer for this files, and set its ede-object
80 (if (get-file-buffer file
)
81 (with-current-buffer (get-file-buffer file
)
83 (setq ede-object
(ede-buffer-object (current-buffer)))))))
88 ;; generated-autoload-file: "loaddefs.el"
89 ;; generated-autoload-load-name: "ede/dired"
92 ;;; ede/dired.el ends here