                   (concat "lsof -n -i4TCP:" (number-to-string (cdr server)) " | grep LISTEN")))
               (> (length server-running) 0)))
         (progn
-          (message "reusing server")
+          (message (concat "reusing server"  (prin1-to-string (funcall path-name-fixer file-name (substring file-name (length (car server)))))))
           (call-process-shell-command
             (concat "open "
               (shell-quote-argument

          "$p = `git -C $d rev-parse --show-prefix`; "
          "chomp($o, $p); "
          "if ($o) { print \"$o/blob/master/$p$b\"; } else { print \"file://$f\" }' "
          (shell-quote-argument (buffer-file-name)) ")#L"
          (if (region-active-p)
            (concat
              (number-to-string (line-number-at-pos (region-beginning))) "-"
              (number-to-string (line-number-at-pos (region-end))))
            (number-to-string (line-number-at-pos)))
          "\"")
        nil 0))))


;;; Code:

(require 'cl-lib)

(autoload 'rvm-use-default "rvm" nil t)

(defvar github-markdown-servers '() "The servers we have running.")
(defvar github-markdown-server-port 7494 "The next available server port.")
