(tool-bar-mode -1)
(menu-bar-mode -1)
(set-background-color "linen")
(iswitchb-mode 1)

(setq explicit-shell-file-name "bash.exe")
(setq shell-file-name explicit-shell-file-name)

(add-to-list 'load-path "~/local/share/emacs/site-lisp")

(add-to-list 'load-path "/cygdrive/c/work/slime")
(setq slime-lisp-implementations
      '((abcl ("/cygdrive/c/work/abcl/abcl.bat"))))
(require 'slime)
(slime-setup '(slime-repl slime-asdf slime-fancy slime-banner))

(defun slime-to-lisp-translation (filename)
  (replace-regexp-in-string 
   "\n" "" (shell-command-to-string
	    (format "cygpath.exe --windows %s" filename))))

(defun lisp-to-slime-translation (filename)
  (replace-regexp-in-string 
   "\n" "" (shell-command-to-string 
	    (format "cygpath.exe --unix %s filename"))))

(setq slime-to-lisp-filename-function #'slime-to-lisp-translation)
(setq lisp-to-slime-filename-function #'lisp-to-slime-translation)

(display-time)

