Title: Message
(require 'jde-package)
(defun jde-buffer-package-name ()
"Copy the buffer's package name to `kill-ring."
(interactive)
(let (
(package-name (jde-package-convert-directory-to-package
(jde-package-best-package-candidate
(jde-package-seach-package-directories))))
)
(kill-new package-name)
(message package-name)
)
)
(defun jde-buffer-class-name ()
"Copy the buffer's class name to `kill-ring."
(interactive)
(let (
(package-name (jde-package-convert-directory-to-package
(jde-package-best-package-candidate
(jde-package-seach-package-directories))))
(class-name (file-name-sans-extension (file-name-nondirectory (buffer-file-name))))
)
(cond
((eq package-name jde-package-unknown-package-name) (progn (kill-new class-name) (message class-name)))
((= 0 (length package-name)) (progn (kill-new class-name) (message class-name)))
(t (progn (kill-new (concat package-name "." class-name)) (message (concat package-name "." class-name))))
)
)
)
Do people find this useful ? Are they worth integrating into JDEE ?
sandip
