about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el25
1 files changed, 22 insertions, 3 deletions
diff --git a/init.el b/init.el index f3a19f0..264378c 100644 --- a/init.el +++ b/init.el
@@ -33,7 +33,9 @@
33 (defun scratch@immortal () 33 (defun scratch@immortal ()
34 (if (equal (buffer-name) "*scratch*") 34 (if (equal (buffer-name) "*scratch*")
35 (progn (bury-buffer) nil) 35 (progn (bury-buffer) nil)
36 t)))) 36 t)))
37 (setf (alist-get "\\*Compile-Log\\*" display-buffer-alist nil nil #'equal)
38 '(display-buffer-no-window)))
37 39
38(use-package faces 40(use-package faces
39 :config 41 :config
@@ -104,6 +106,8 @@
104 (defun prog@indent-tabs-maybe () 106 (defun prog@indent-tabs-maybe ()
105 (indent-tabs-mode 107 (indent-tabs-mode
106 (if (derived-mode-p 'emacs-lisp-mode 108 (if (derived-mode-p 'emacs-lisp-mode
109 'lisp-mode
110 'scheme-mode
107 'python-mode 111 'python-mode
108 'haskell-mode) 112 'haskell-mode)
109 -1 1))))) 113 -1 1)))))
@@ -857,7 +861,7 @@ With PREFIX, prompt to change the current dictionary."
857 :ensure t) 861 :ensure t)
858 862
859(use-package gauche-mode 863(use-package gauche-mode
860 :vc (:url "https://github.com/duckwork/gauche-mode") 864 :load-path "~/src/emacs/gauche-mode/"
861 :mode "\\.scm\\'" 865 :mode "\\.scm\\'"
862 :config 866 :config
863 (setopt gauche-mode-info-language 'en 867 (setopt gauche-mode-info-language 'en
@@ -869,7 +873,22 @@ With PREFIX, prompt to change the current dictionary."
869 display-buffer-pop-up-window) 873 display-buffer-pop-up-window)
870 (inhibit-same-window . t))) 874 (inhibit-same-window . t)))
871 (add-hook 'gauche-mode-hook #'enable-gauche-paredit-mode) 875 (add-hook 'gauche-mode-hook #'enable-gauche-paredit-mode)
872 (add-hook 'inferior-scheme-mode-hook #'enable-gauche-paredit-mode)) 876 (add-hook 'inferior-scheme-mode-hook #'enable-gauche-paredit-mode)
877 ;; Extras
878 (define-key gauche-mode-map (kbd "C-c C-k")
879 (defun +gauche-mode-send-buffer ()
880 (interactive)
881 (save-mark-and-excursion
882 (let ((start (point-min))
883 (end (point-max)))
884 (goto-char start)
885 (while (or (looking-at "#!") ; Shebang
886 (looking-at ":;") ; "shell trampoline"
887 )
888 (forward-line 1)
889 (beginning-of-line)
890 (setq start (point)))
891 (scheme-send-region-and-go start end))))))
873 892
874(use-package treesit-auto 893(use-package treesit-auto
875 ;; XXX: I don't really get the utility of this package, but I spent a ton of 894 ;; XXX: I don't really get the utility of this package, but I spent a ton of