I think this is really cool as well, however I noticed one thing. When JDE asks me for the name of the package there is no suggested package, however if I run jde-gen-class after I've opened a buffer, without these hooks, I get the proper package name suggested. Can this be fixed? > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, April 18, 2001 7:33 AM > To: Sonu Luthra > Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED] > Subject: Re: jde > > > Hello Sonu, > > > David, I have been searching the internet looking for one specific > > cuztomization, and I am unable to find it. I was wondering if you > > could help me out? When I create a new .java file, I would like for > > jde-gen-class to run automatically, how do I add this to my .emacs > > file? Any help would be greatly appreciated. Thanks! > > I thought about your problem and found it an interesting idea :-) > Following is a possible implementation which seems to work well on my > NT Emacs 20.7, 21.0.102 and NT XEmacs 21.1.13. > > ------------------------- cut here ---------------------------------- > (defvar jde-new-file-p nil > "Non-nil if can initialize this new file with a Java skeleton.") > ;; This is a buffer local variable. > (make-variable-buffer-local 'jde-new-file-p) > ;; Avoid `kill-all-local-variables' to kill it! > (put 'jde-new-file-p 'permanent-local t) > > (defun jde-new-file-hook () > "Hook run on nonexistent file. > It set the `jde-new-file-p' flag to non-nil if the new file can be > initialized with a Java skeleton. > It seems better to append this hook to `find-file-not-found-hooks'." > (let ((last-cmd (car (car command-history)))) > ;; Allow insertion of a Java skeleton only when the new file > ;; resulted of a direct invocation of `find-file'. This prevent > ;; insertion of multiple skeletons when the new file resulted of > ;; execution of a `jde-gen-...' command! > (setq jde-new-file-p (eq last-cmd 'find-file))) > nil) > > (defun jde-new-file-setup-hook () > "Hook run after `jde-mode' is setup. > It inserts a Java skeleton in the current buffer if editing a new Java > file in `jde-mode'. > It seems better to append this hook to `jde-mode-hook'." > (and jde-new-file-p > (eq major-mode 'jde-mode) > (= (point-min) (point-max)) > (progn > (jde-gen-class) > (beginning-of-buffer) > (search-forward "{") > (backward-char 1) > (c-indent-exp) > (tempo-forward-mark)))) > > (add-hook 'find-file-not-found-hooks #'jde-new-file-hook t) > (add-hook 'jde-mode-hook #'jde-new-file-setup-hook t) > ---------------------- end cut here --------------------------------- > > Hope this will help. > > Sincerely, > David > > __________________________________________________________________ > Get your own FREE, personal Netscape Webmail account today at > http://webmail.netscape.com/ >
