Sorry, the elisp got scrambled in the post.

Get it from here:
http://georgejahad.com/clojure/swank-cdt-helper.el



On Jan 27, 7:15 pm, George Jahad <cloj...@blackbirdsystems.net> wrote:
> Not sure why that is happening.  Can't reproduce it.  What is supposed
> to happen is that when swank-cdt is loaded, it should invoke the emacs
> lisp to define those keystrokes.
>
> Until I figure it out, try adding the following to your .emacs.  Let
> me know if that fixes it.
>
> g
>
> (progn (defun sldb-line-bp (&optional _) "Set breakpoint on current
> buffer line." (interactive) (slime-eval-async (list (quote swank:sldb-
> line-bp) (buffer-file-name) (line-number-at-pos)))) (defun slime-force-
> continue (&optional _) "force swank server to continue" (interactive)
> (slime-dispatch-event (quote (:emacs-interrupt :cdt)))) (defun slime-
> get-thing-at-point (&optional _) (interactive) (let ((thing (thing-at-
> point (quote sexp)))) (set-text-properties 0 (length thing) nil thing)
> thing)) (defun slime-eval-last-frame (&optional _) "Eval thing at
> point in the context of the last frame viewed" (interactive) (slime-
> eval-with-transcript (list (quote swank:eval-last-frame) (slime-get-
> thing-at-point)))) (define-prefix-command (quote cdt-map)) (define-key
> cdt-map (kbd "C-b") (quote sldb-line-bp)) (define-key cdt-map (kbd "C-
> g") (quote slime-force-continue)) (define-key cdt-map (kbd "C-p")
> (quote slime-eval-last-frame)) (eval-after-load (quote slime) (quote
> (progn (define-key slime-mode-map (kbd "C-c C-x") (quote cdt-map))
> (define-key sldb-mode-map (kbd "C-c C-x") (quote cdt-map))))) (eval-
> after-load (quote slime-repl) (quote (define-key slime-repl-mode-map
> (kbd "C-c C-x") (quote cdt-map)))) (eval-after-load (quote cc-mode)
> (quote (define-key java-mode-map (kbd "C-c C-x") (quote cdt-map)))))
>
> On Jan 26, 10:06 pm, Gregg Williams <greg...@innerpaths.net> wrote:
>
> > Hi--After several attempts, I've gotten CDB working...sort of, and I'm
> > stuck.
>
> > Following the example onhttp://georgejahad.com/clojure/swank-cdt.html,
> > I execute the following:
>
> > (use 'clojure.set)
> > (use 'swank.cdt)
> > (set-bp clojure.set/difference)
>
> > which execute OK. When I execute:
>
> > user> (difference #{1 2} #{2 3})
> > CDT location is clojure/set.clj:53:0:/Users/gw/tech/clojurestuff/
> > cljprojects/infwb/lib/clojure-1.3.jar
>
> > the *sldb clojure/3* buffer appears, as does the source code for the
> > function `difference`, within the source file `set.clj`.
>
> > Using the `e` command, I can print the value of `s1` in the Emacs
> > minibuffer.
>
> > Here's my problem: when I attempt to use any of the C-c C-x commands
> > (e.g., C-c C-x C-p), the minibuffer complains that the command is not
> > defined.
>
> > Following George Jahad's suggestions 
> > onhttp://groups.google.com/group/clojure/browse_thread/thread/2295f4550...,
> > I find that `sldb-line-bp` is defined, but I can't find `cdt-map`.
>
> > Also, his suggestion of executing (swank.core.cdt-utils/init-emacs-
> > helper-functions) from the REPL doesn't make any difference--I still
> > get the same behavior reported above.
>
> > I'm using Emacs 24; could that be causing any problems?
>
> > I'm using Leiningen 1.6.2, I have lein-midje-1.0.8 loaded in `~/.lein/
> > plugins`, and my project.clj file is below.
>
> > Thanks for any suggestions you might have.
>
> > --- project.clj ---
>
> > (defproject infwb "1.0.0-SNAPSHOT"
> >   :description "an evolving, experimental workspace for manipulating
> > infocards"
> >   :main infwb.core
>
> >   :dependencies [[org.clojure/clojure "1.3"]
> >                  [org.clojure/clojure-contrib "[1.2.0,1.2.1]"]
> >                  [seesaw "1.2.0"]
> >                  [org.clojars.gw666/sxqj "beta2"]
> >                  [org.clojars.gw666/piccolo2dcore "1.3"]
> >                  [org.clojars.gw666/piccolo2dextras "1.3"]
> >                  [com.miglayout/miglayout "3.7.4"]
> >                  ]
> >   :dev-dependencies [[midje "1.3.1"]
> >                      [clojure-source "1.3.0"]
> >                      [swank-clojure "1.4.0-SNAPSHOT"]]
> >   :jvm-opts ["-agentlib:jdwp=transport=dt_socket,server=y,suspend=n"])
>
> > --- end ---

-- 
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your 
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en

Reply via email to