edit-server config

gistfile1.el

(when (require 'edit-server nil 'noerror)
  (setq edit-server-new-frame nil)
  (edit-server-start)
  (setq my-edit-server-mode-alist '(("github.com" . markdown-mode) ("blogger.com" . html-mode)))
  (add-hook 'edit-server-start-hook
            (lambda ()
              (let ((lst my-edit-server-mode-alist))
                (while lst
                  (if (string-match (caar lst) (buffer-name))
                      (progn
                        (funcall (cdar lst))
                        (setq lst nil))
                    (setq lst (cdr lst)))))))
  ;; bring Emacs to the front
  (when (eq window-system 'ns)
    (add-hook 'edit-server-start-hook
              (lambda () (ns-do-applescript "tell application \"Emacs\" to activate")))))