jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweak a bit the new modules

Browse source
This commit is contained in:
Bozhidar Batsov 2021-03-13 19:07:56 +02:00
parent 7bc6068083
commit e1f5c33a32
2 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
modules/prelude-lua.el
View file

@ -39,6 +39,7 @@
(setq lua-indent-nested-block-content-align nil) (setq lua-indent-nested-block-content-align nil)
(setq lua-indent-close-paren-align nil) (setq lua-indent-close-paren-align nil)
(setq lua-indent-string-contents t) (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-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-l") 'lua-send-current-line)
(define-key lua-mode-map (kbd "C-c C-f") 'lua-send-defun) (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)) (define-key lua-mode-map (kbd "C-c C-z") 'lua-show-process-buffer))
(autoload 'lua-mode "lua-mode" "Lua editing mode." t) (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)) (add-to-list 'interpreter-mode-alist '("lua" . lua-mode))
(provide 'prelude-lua) (provide 'prelude-lua)

12
modules/prelude-racket.el
View file

@ -31,19 +31,19 @@
;;; Code: ;;; Code:
(prelude-require-packages '(racket-mode)) (prelude-require-packages '(racket-mode))
(require 'prelude-lisp) (require 'prelude-lisp)
(with-eval-after-load 'racket-mode (with-eval-after-load 'racket-mode
(define-key racket-mode-map (kbd "M-RET") 'racket-run) (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)
;; Enable the common Lisp coding hook
(add-hook 'racket-mode-hook (lambda () (run-hooks 'prelude-lisp-coding-hook)))
(add-hook 'racket-mode-hook #'racket-unicode-input-method-enable) (add-hook 'racket-mode-hook #'racket-unicode-input-method-enable)
(add-hook 'racket-repl-mode-hook #'racket-unicode-input-method-enable) (add-hook 'racket-repl-mode-hook #'racket-unicode-input-method-enable))
(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-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))
(add-to-list 'auto-mode-alist '("\\.rkt\\'" . racket-mode)) (add-to-list 'auto-mode-alist '("\\.rkt\\'" . racket-mode))