Mahe

1 files changed, 22 insertions, 3 deletions

@@ -33,7 +33,9 @@
             (defun scratch@immortal ()
               (if (equal (buffer-name) "*scratch*")
                   (progn (bury-buffer) nil)
-                t))))
+                t)))
+  (setf (alist-get "\\*Compile-Log\\*" display-buffer-alist nil nil #'equal)
+        '(display-buffer-no-window)))
 
 (use-package faces
   :config
@@ -104,6 +106,8 @@
             (defun prog@indent-tabs-maybe ()
               (indent-tabs-mode
                (if (derived-mode-p 'emacs-lisp-mode
+                                   'lisp-mode
+                                   'scheme-mode
                                    'python-mode
                                    'haskell-mode)
                    -1 1)))))
@@ -857,7 +861,7 @@ With PREFIX, prompt to change the current dictionary."
   :ensure t)
 
 (use-package gauche-mode
-  :vc (:url "https://github.com/duckwork/gauche-mode")
+  :load-path "~/src/emacs/gauche-mode/"
   :mode "\\.scm\\'"
   :config
   (setopt gauche-mode-info-language 'en
@@ -869,7 +873,22 @@ With PREFIX, prompt to change the current dictionary."
            display-buffer-pop-up-window)
           (inhibit-same-window . t)))
   (add-hook 'gauche-mode-hook #'enable-gauche-paredit-mode)
-  (add-hook 'inferior-scheme-mode-hook #'enable-gauche-paredit-mode))
+  (add-hook 'inferior-scheme-mode-hook #'enable-gauche-paredit-mode)
+  ;; Extras
+  (define-key gauche-mode-map (kbd "C-c C-k")
+              (defun +gauche-mode-send-buffer ()
+                (interactive)
+                (save-mark-and-excursion
+                  (let ((start (point-min))
+                        (end (point-max)))
+                    (goto-char start)
+                    (while (or (looking-at "#!") ; Shebang
+                               (looking-at ":;") ; "shell trampoline"
+                               )
+                      (forward-line 1)
+                      (beginning-of-line)
+                      (setq start (point)))
+                    (scheme-send-region-and-go start end))))))
 
 (use-package treesit-auto
   ;; XXX: I don't really get the utility of this package, but I spent a ton of