 
 ;; (require 'helm-xref)
 ;; (setq xref-show-xrefs-function 'helm-xref-show-xrefs)   ;; nefunguje spravne (TODO)
+
+(defun run-s7 ()
+  (interactive)
+  (require 'cmuscheme)
+  (setq scheme-program-name "s7")
+  (if (not (comint-check-proc "*scheme*"))
+      (let ((cmdlist (list '("localhost" . 5555))))
+	    (set-buffer (apply 'make-comint "scheme" (car cmdlist) nil nil))
+	    (inferior-scheme-mode)))
+  (setq scheme-buffer "*scheme*")
+  (pop-to-buffer-same-window "*scheme*"))
 
 (when (equal system-type 'gnu/linux)
   (progn

  (highlight-symbol-nav-mode)    ;; M-n, M-p
  (goto-address-prog-mode)
  (company-mode)
  (semantic-mode 1)
  (define-key prog-mode-map (kbd "<C-tab>") 'company-complete)
  (define-key prog-mode-map (kbd "C-.") 'my-imenu))


  (set-frame-font "mononoki-11"))

(when (and window-system (equal system-type 'gnu/linux))
  (set-frame-font "Inconsolata 13"))
  ;; (set-frame-font "mononoki-12")
  ;; (set-frame-font "DejaVu Sans Mono-11.5")
  ;; (setq x-alt-keysym 'meta)

(require 'smartparens-config)
(sp-use-smartparens-bindings)
