• (find-definitions-for-emacs name)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source swank/commands/basic.clj:387 top

(defslimefn find-definitions-for-emacs [name]
  (let [sym-name (read-string name)
        sym-var (ns-resolve (maybe-ns *current-package*) sym-name)]
    (when-let [meta (and sym-var (meta sym-var))]
      (if-let [path (slime-find-file (:file meta))]
        `((~(str "(defn " (:name meta) ")")
            (:line ~(:line meta))
        `((~(str (:name meta))
           (:error "Source definition not found.")))))))
Vars in swank.commands.basic/find-definitions-for-emacs: if-let let meta str when-let concat list seq
Used in 0 other vars

Comments top

No comments for find-definitions-for-emacs. Log in to add a comment.