Skip to content

Instantly share code, notes, and snippets.

@juergenhoetzel

juergenhoetzel/slime-cygwin.el

Created April 17, 2012 18:30
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save juergenhoetzel/2408024 to your computer and use it in GitHub Desktop.
Save juergenhoetzel/2408024 to your computer and use it in GitHub Desktop.
Download ZIP
Slime Windows-Unix-Path translation (Cygwin)
Raw
slime-cygwin.el
(require 'clojure-mode "clojure-mode" t)
(require 'slime t)
(when (eq system-type 'cygwin)
(add-hook 'slime-connected-hook (lambda ()
(setq slime-to-lisp-filename-function (lambda (filename)
(replace-regexp-in-string
"\n" "" (shell-command-to-string
(format "cygpath.exe --windows %s" filename))))
slime-from-lisp-filename-function (lambda (filename)
(replace-regexp-in-string
"\n" "" (shell-command-to-string
(format "cygpath.exe --unix %s" filename)))))) t))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment