technomancy / mire

Mire is a simple MUD written in Clojure

This URL has Read+Write access

mire / mire.el
100644 24 lines (17 sloc) 0.668 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

;; For launching Mire from SLIME
 
(require 'clojure-mode)
 
(setq mire-dir (file-name-directory
                (or (buffer-file-name) load-file-name))
      swank-clojure-jar-path (concat mire-dir "jars/clojure.jar")
      swank-clojure-extra-classpaths (list (concat mire-dir "jars/clojure-contrib.jar")
                                           (concat mire-dir "src/")))
 
(slime)
 
(find-file (concat mire-dir "src/mire/server.clj"))
 
(defun mire (arg)
  (interactive "P")
  (if (and (get-buffer "*mire*")
           (not arg))
      (switch-to-buffer "*mire*")
    (telnet "localhost" 3333)
    (rename-buffer "*mire*")))
 
(global-set-key (kbd "C-c m") 'mire)