swank/commands/import.clj @@ -148,4 +148,32 @@ will be used over paths too.)" (define-key slime-repl-mode-map "{" 'paredit-open-curly) (define-key slime-repl-mode-map "}" 'paredit-close-curly)))) +;; Importer + +(defun swank-clojure-pick-import (classes) + (swank-clojure-insert-import + (list (if (and (boundp 'ido-mode) ido-mode) + (ido-completing-read "Insert import: " classes) + (completing-read "Insert import: " classes))))) + +(defun swank-clojure-insert-import (classes) + "Insert an :import directive in the ns macro to import full-class." + (if (= 1 (length classes)) + (save-excursion + (goto-char (point-min)) + (search-forward "(ns ") + (end-of-defun) + (backward-char 2) + (let* ((segments (split-string (first classes) "\\.")) + (package (mapconcat 'identity (butlast segments 1) ".")) + (class-name (car (last segments)))) + (insert (format "\n(:import [%s %s])" package class-name))) + (indent-for-tab-command)) + (swank-clojure-pick-import classes))) + +(defun swank-clojure-import (class) + (interactive (list (read-from-minibuffer "Class: " (slime-symbol-at-point)))) + (slime-eval-async `(swank:classes-for ,class) + #'swank-clojure-insert-import)) + (provide 'swank-clojure) swank-clojure.el @@ -14,7 +14,7 @@ (swank.util.concurrent thread)) (:require (swank.util.concurrent [mbox :as mb]) (swank commands) - (swank.commands basic indent contrib inspector))) + (swank.commands basic indent contrib inspector import))) (defn ignore-protocol-version [version] (dosync (ref-set *protocol-version* version))) swank/swank.clj b34f88993591b19561b0d2d8131dd50058de2c66 Phil Hagelberg technomancy@gmail.com http://github.com/jochu/swank-clojure/commit/d1617c2686483ad3cfdb5e444c77a2742796d234 d1617c2686483ad3cfdb5e444c77a2742796d234 2009-07-07T14:47:46-07:00 2009-07-07T14:35:33-07:00 Add swank-clojure-import command to add import lines. 133fee511410d205d914815acd06fee2befef688 Phil Hagelberg technomancy@gmail.com