From e1f5c33a32a39825c73623448b20e987d68a57e0 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Sat, 13 Mar 2021 19:07:56 +0200 Subject: [PATCH] Tweak a bit the new modules --- modules/prelude-lua.el | 3 ++- modules/prelude-racket.el | 12 ++++++------ 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/modules/prelude-lua.el b/modules/prelude-lua.el index ad74abe..93c11a5 100644 --- a/modules/prelude-lua.el +++ b/modules/prelude-lua.el @@ -39,6 +39,7 @@ (setq lua-indent-nested-block-content-align nil) (setq lua-indent-close-paren-align nil) (setq lua-indent-string-contents t) + (define-key lua-mode-map (kbd "C-c C-b") 'lua-send-buffer) (define-key lua-mode-map (kbd "C-c C-l") 'lua-send-current-line) (define-key lua-mode-map (kbd "C-c C-f") 'lua-send-defun) @@ -46,7 +47,7 @@ (define-key lua-mode-map (kbd "C-c C-z") 'lua-show-process-buffer)) (autoload 'lua-mode "lua-mode" "Lua editing mode." t) -(add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode)) +(add-to-list 'auto-mode-alist '("\\.lua\\'" . lua-mode)) (add-to-list 'interpreter-mode-alist '("lua" . lua-mode)) (provide 'prelude-lua) diff --git a/modules/prelude-racket.el b/modules/prelude-racket.el index 44a1299..c2d953b 100644 --- a/modules/prelude-racket.el +++ b/modules/prelude-racket.el @@ -31,19 +31,19 @@ ;;; Code: (prelude-require-packages '(racket-mode)) + (require 'prelude-lisp) (with-eval-after-load 'racket-mode (define-key racket-mode-map (kbd "M-RET") 'racket-run) - (define-key racket-mode-map (kbd "M-.") 'racket-repl-visit-definition)) + (define-key racket-mode-map (kbd "M-.") 'racket-repl-visit-definition) -(add-hook 'racket-mode-hook #'racket-unicode-input-method-enable) -(add-hook 'racket-repl-mode-hook #'racket-unicode-input-method-enable) + ;; Enable the common Lisp coding hook + (add-hook 'racket-mode-hook (lambda () (run-hooks 'prelude-lisp-coding-hook))) -(add-hook 'racket-mode-hook (lambda () (run-hooks 'prelude-lisp-coding-hook))) -(add-hook 'racket-mode-hook (lambda () (setq-local whitespace-line-column 102))) + (add-hook 'racket-mode-hook #'racket-unicode-input-method-enable) + (add-hook 'racket-repl-mode-hook #'racket-unicode-input-method-enable)) -(add-to-list 'auto-mode-alist '("\\.rkt$" . racket-mode)) (add-to-list 'auto-mode-alist '("\\.rkt?\\'" . racket-mode)) (add-to-list 'auto-mode-alist '("\\.rkt\\'" . racket-mode))