Emacs - Correct execute path of racket

[dotfiles.git] / emacs.d / config.org

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 1347079..e6a3710 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -58,7 +58,8 @@ Set system PATH and emacs exec path
   (setq scroll-step 1)
   (setq scroll-margin 5)
 
-  (fringe-mode '(0 . 0))
+  (when (display-graphic-p)
+    (fringe-mode '(0 . 0)))
 #+END_SRC
 
 *** Custom file 
@@ -1262,7 +1263,9 @@ and Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github
       (define-key map "n" nil)
       (define-key map "p" nil)
       (define-key map "v" 'recenter-top-bottom)
-      (define-key map "i" 'magit-section-toggle)))
+      (define-key map "i" 'magit-section-toggle))
+    (define-key magit-mode-map "q" (lambda () (interactive)
+                                     (magit-mode-bury-buffer t))))
 #+END_SRC
 
 * Eshell
@@ -2402,10 +2405,10 @@ Install =guile=, =guile= is an implementation of =Scheme= programming language.
 
   ;; set racket path
   (setenv "PATH" (concat (getenv "PATH")
-                         ":" "/Applications/Racket v6.6/bin"))
+                         ":" "/Applications/Racket v6.10.1/bin"))
   (setenv "MANPATH" (concat (getenv "MANPATH")
-                            ":" "/Applications/Racket v6.6/man"))
-  (setq exec-path (append exec-path '("/Applications/Racket v6.6/bin")))
+                            ":" "/Applications/Racket v6.10.1/man"))
+  (setq exec-path (append exec-path '("/Applications/Racket v6.10.1/bin")))
 
   (add-to-list 'auto-mode-alist '("\\.rkt\\'" . racket-mode))
 #+END_SRC
@@ -2428,6 +2431,7 @@ Set the environments vairables in compilation mode
     (define-key compilation-mode-map (kbd "C-o") nil)
     (define-key compilation-mode-map (kbd "n") 'compilation-next-error)
     (define-key compilation-mode-map (kbd "p") 'compilation-previous-error)
+    (define-key compilation-mode-map (kbd "q") (lambda () (interactive) (quit-window t)))
     (define-key compilation-mode-map (kbd "r") #'recompile))