Hello Nick,
This is great. I use to wonder about "why it was necessary to save *every*
jde
variable in the project file." too.
I have written a function to support nested projects. Here it is.
(defun jde-load-parent-project ()
"Load the parent project if one exists."
(let ((prj-file (jde-find-project-file (file-name-directory
(directory-file-name
(file-name-directory
(expand-file-name prj-file)
)
)
)
)
)
)
(if prj-file
(load-file prj-file)
(message "No parent project found.")
)
)
)
One simply has to call this function in their prj.el to get the desired
effect.
If called at the beginning it lets the inner (lower) project override
the outer (upper) projects settings.
If called at the end it lets the outer (upper) project override
the inner (lower) projects settings.
The possibilities are endless....
Anyways (IMHO) with your changes and the above function one should
have a powerful combination.... :)
Sandip V. Chitale
work: (408) 535 1791
email: [EMAIL PROTECTED]
web: http://www.brokat.com
> -----Original Message-----
> From: Nick Sieger [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, March 29, 2001 11:14 AM
> To: [EMAIL PROTECTED]
> Subject: PROPOSAL: Only save customized vars in project file
>
>
> My typical usage of the JDE is to have a custom-set-variables block in
> my .emacs that sets a bunch of defaults for the JDE, and then only
> override a couple of the jde variables in each of my projects
> (typically jde-global-classpath and a few others). I always wondered
> why it was necessary to save *every* jde variable in the project file.
> For example, I can't see a use case for wanting to vary the
> keybindings from project to project.
>
> The patch for jde.el below allows one to save only those variables
> that have been customized at the project level in the project file. I
> know in the past others have been clamoring for some sort of override
> feature. This solution does not solve the situation where one would
> like to nest several project files, with each deeper project file
> overriding any found above it in the directory hierarchy. But at
> least it enables users to customize the JDE on two levels - default
> and project - and make customizations at the default level without
> having to go update every project file if the change is orthogonal to
> customizations made in the project.
>
> I haven't been testing this code very long, but I wanted to get it out
> to others and see if it is viable. To update your project files, it
> should be sufficient to simply load and re-save them after you've
> applied the patch to jde.el. Comments?
>
> /Nick
>
> *** jde.el 2001/03/29 06:19:15 1.154
> --- jde.el 2001/03/29 19:05:27
> ***************
> *** 997,1003 ****
> (interactive)
> (let ((prj-file (jde-find-project-file default-directory)))
> (if prj-file
> ! (load-file prj-file)
> (jde-set-variables-init-value))))
>
>
> --- 997,1005 ----
> (interactive)
> (let ((prj-file (jde-find-project-file default-directory)))
> (if prj-file
> ! (progn
> ! (jde-set-variables-init-value t) ; don't display reset message
> ! (load-file prj-file))
> (jde-set-variables-init-value))))
>
>
> ***************
> *** 1061,1067 ****
>
>
> (defun jde-save-variables (buffer)
> ! "Save all JDE variables in project file."
> (jde-save-delete 'jde-set-variables buffer)
> (let ((standard-output buffer))
> (unless (bolp)
> --- 1063,1069 ----
>
>
> (defun jde-save-variables (buffer)
> ! "Save all *customized* JDE variables in project file."
> (jde-save-delete 'jde-set-variables buffer)
> (let ((standard-output buffer))
> (unless (bolp)
> ***************
> *** 1072,1091 ****
> (lambda (symbol)
> (when
> (and (string-match "jde-" (symbol-name symbol))
> ! (get symbol 'custom-type))
> (let ((value (symbol-value symbol)))
> (princ "\n '(")
> (princ symbol)
> (princ " ")
> (prin1 (custom-quote value))
> ! ;; Check whether the user has changed the value of this
> ! ;; variable in a customization buffer. If so, save flag
> ! ;; so that custom knows that this value differs from
> ! ;; standard value.
> ! (if (get symbol 'customized-value)
> ! (princ " t)")
> ! (princ ")"))
> ! )))
> (jde-symbol-list))
> (princ ")")
> (save-excursion
> --- 1074,1087 ----
> (lambda (symbol)
> (when
> (and (string-match "jde-" (symbol-name symbol))
> ! (get symbol 'custom-type)
> ! (get symbol 'customized-value))
> (let ((value (symbol-value symbol)))
> (princ "\n '(")
> (princ symbol)
> (princ " ")
> (prin1 (custom-quote value))
> ! (princ " t)"))))
> (jde-symbol-list))
> (princ ")")
> (save-excursion
> ***************
> *** 1120,1129 ****
> (funcall set symbol (eval value)))
> (setq args (cdr args)))))))
>
> ! (defun jde-set-variables-init-value ()
> "Set each JDE variable to the value it has at Emacs startup."
> (interactive)
> ! (message "Setting JDE variables to startup values...")
> (mapcar
> (lambda (symbol)
> (when
> --- 1116,1126 ----
> (funcall set symbol (eval value)))
> (setq args (cdr args)))))))
>
> ! (defun jde-set-variables-init-value (&optional no-msg)
> "Set each JDE variable to the value it has at Emacs startup."
> (interactive)
> ! (if (null no-msg)
> ! (message "Setting JDE variables to startup values..."))
> (mapcar
> (lambda (symbol)
> (when
>
>
>
