;; sample .xemacs/init.lisp for cygwin

;; tell emacs where slime lives 

(push "~/lsw/trunk/slime-1.2.1" load-path)
(require 'slime)
(setq explicit-shell-file-name "bash")
;(dynamic-completion-mode)
(load "~/lsw/trunk/emacs/always-show-completion.el")
(load "~/lsw/trunk/emacs/completion-no-properties.el")

;; use lsw's version of armed bear common lisp
(setq inferior-lisp-program (expand-file-name "~/lsw/trunk/abcl"))

;; use iswitchb to switch buffers
(global-set-key "b" 'iswitchb-buffer)

;; cygwin's root is c:\cygwin. Slime needs to prepend that to the pathnames
;; it gets in order find the files it wants.

(defun slime-init-command ()
  "Return a string to initialize Lisp."
  (let ((swank (slime-to-lisp-filename (if (file-name-absolute-p slime-backend)
                                           slime-backend
                                         (concat slime-path slime-backend))))
        (mp (if slime-multiprocessing "(swank:startup-multiprocessing)\n" "")))
    (format "(load %S :verbose t)\n%s" (concat "c:/cygwin" swank) mp)))

(defun slime-swank-port-file ()
  "Filename where the SWANK server writes its TCP port number."
  (concat "c:/cygwin" (file-name-as-directory
           (cond ((fboundp 'temp-directory) (temp-directory))
                 ((boundp 'temporary-file-directory) temporary-file-directory)
                 (t "/tmp/")))
          (format "slime.%S" (emacs-pid))))

(slime-setup)