2016-06-13 21:15:40 +00:00
|
|
|
;; (require 'chicken)
|
2015-11-24 21:45:45 +00:00
|
|
|
|
2016-10-19 09:51:25 +00:00
|
|
|
(setq print-length nil
|
|
|
|
eval-expression-print-length nil)
|
|
|
|
|
2016-06-13 21:18:54 +00:00
|
|
|
;; (require 'slime)
|
2020-06-15 14:47:30 +00:00
|
|
|
(use-package slime
|
|
|
|
:commands (slime-setup)
|
|
|
|
:init (slime-setup)
|
|
|
|
:bind
|
|
|
|
(:map slime-mode-map
|
|
|
|
("M-n" . next-line)
|
|
|
|
("M-p" . previous-line)
|
|
|
|
("SPC" . self-insert-command))
|
|
|
|
:config
|
2017-05-30 15:43:15 +00:00
|
|
|
(setq inferior-lisp-program
|
2020-06-15 14:47:30 +00:00
|
|
|
;; "/usr/bin/ecl"
|
|
|
|
"/usr/bin/sbcl"))
|
2016-06-12 05:25:57 +00:00
|
|
|
|
|
|
|
(defun set-cl-repl-keys ()
|
|
|
|
(if (or (cp-buffer-name-match-p "^\*inferior-lisp\*\\(<[0-9]*>\\)?")
|
|
|
|
(eq major-mode 'lisp-mode))
|
2017-05-30 15:43:15 +00:00
|
|
|
(progn
|
|
|
|
(local-set-key (kbd "TAB") 'completion-at-point)
|
|
|
|
(local-set-key (kbd "M-q") 'sp-indent-defun))))
|
2016-06-12 05:25:57 +00:00
|
|
|
|
|
|
|
(add-hook 'slime-connected-hook 'set-cl-repl-keys)
|
|
|
|
(add-hook 'comint-mode-hook 'set-cl-repl-keys)
|
|
|
|
(add-hook 'lisp-mode-hook 'set-cl-repl-keys)
|
2015-11-24 21:45:45 +00:00
|
|
|
|
|
|
|
(setq scheme-program-name "csi -:c")
|
|
|
|
(setq comint-prompt-read-only t)
|
2016-06-12 05:26:30 +00:00
|
|
|
|
2017-05-30 15:43:30 +00:00
|
|
|
(add-to-list 'auto-mode-alist '("\\.scm\\'" . scheme-mode))
|
|
|
|
;; (add-to-list 'auto-mode-alist '("\\.scm\\'" . geiser-mode))
|
2016-06-13 21:22:48 +00:00
|
|
|
;; (require 'geiser)
|
2017-12-31 05:55:53 +00:00
|
|
|
|
2019-11-30 04:11:38 +00:00
|
|
|
(use-package geiser
|
|
|
|
:commands (run-chicken run-guile geiser-mode))
|
2017-12-31 05:55:53 +00:00
|
|
|
;; (with-eval-after-load 'geiser-mode
|
|
|
|
;; (setq geiser-mode-smart-tab-p t)
|
|
|
|
;; (define-key geiser-mode-map (kbd "C-.") nil)
|
|
|
|
;; ;; (cp-set-keys
|
|
|
|
;; ;; :unset t
|
|
|
|
;; ;; :keymap geiser-mode-map
|
|
|
|
;; ;; :bindings
|
|
|
|
;; ;; `((,(kbd "C-."))))
|
|
|
|
;; )
|
2016-06-13 22:00:26 +00:00
|
|
|
|
2019-11-30 04:13:08 +00:00
|
|
|
(use-package scheme-mode
|
|
|
|
:defer t
|
|
|
|
:interpreter "csi")
|
|
|
|
|
2018-09-11 16:27:04 +00:00
|
|
|
(defun contrapunctus-lisp-copy (arg)
|
|
|
|
"Run `whole-line-or-region-copy-region-as-kill' if region is
|
|
|
|
active, else `sp-copy-sexp'."
|
|
|
|
(interactive "P")
|
|
|
|
(if (region-active-p)
|
|
|
|
(whole-line-or-region-copy-region-as-kill arg)
|
|
|
|
(sp-copy-sexp arg)))
|
2016-10-19 09:51:25 +00:00
|
|
|
|
2018-09-11 16:26:22 +00:00
|
|
|
(use-package elisp-mode
|
2020-04-23 07:11:05 +00:00
|
|
|
:diminish
|
2020-05-14 12:23:57 +00:00
|
|
|
:bind
|
|
|
|
(:map emacs-lisp-mode-map
|
2020-05-15 14:29:07 +00:00
|
|
|
("<tab>" . 'company-indent-or-complete-common)
|
|
|
|
("<C-tab>" . 'outline-toggle-children)
|
|
|
|
("M-n" . 'outline-next-heading)
|
2020-06-01 12:28:40 +00:00
|
|
|
("M-p" . 'outline-previous-heading))
|
|
|
|
:config
|
|
|
|
(put 'cl-loop 'lisp-indent-function 'defun))
|
2018-09-11 16:26:22 +00:00
|
|
|
|
|
|
|
(use-package eldoc
|
|
|
|
:diminish
|
|
|
|
:if (featurep 'elisp-mode)
|
|
|
|
:init (add-hook 'emacs-lisp-mode-hook 'eldoc-mode)
|
|
|
|
:config (setq eldoc-idle-delay 0))
|
2018-09-04 06:06:48 +00:00
|
|
|
|
2020-05-21 14:10:47 +00:00
|
|
|
(use-package emr
|
|
|
|
:ensure t
|
|
|
|
:bind (:map prog-mode-map
|
|
|
|
("M-S-<return>" . emr-show-refactor-menu)))
|
|
|
|
|
2020-05-21 14:15:52 +00:00
|
|
|
(use-package projectile
|
|
|
|
:hook
|
|
|
|
(emacs-lisp-mode . projectile-mode))
|
|
|
|
|
2019-08-09 01:47:20 +00:00
|
|
|
(defun colorize-compilation-buffer ()
|
|
|
|
(ansi-color-apply-on-region compilation-filter-start
|
|
|
|
(point)))
|
|
|
|
|
|
|
|
(add-hook 'compilation-filter-hook 'colorize-compilation-buffer)
|
|
|
|
|
2020-04-23 07:11:05 +00:00
|
|
|
(use-package nameless
|
|
|
|
:ensure t
|
|
|
|
:commands nameless-mode
|
|
|
|
:init
|
|
|
|
(add-hook 'emacs-lisp-mode-hook 'nameless-mode)
|
|
|
|
(add-hook 'ert-results-mode-hook 'nameless-mode)
|
|
|
|
:bind (:map emacs-lisp-mode-map
|
|
|
|
("C-c C-n" . nameless-mode)))
|
2020-05-14 12:23:57 +00:00
|
|
|
|
2020-06-07 09:35:51 +00:00
|
|
|
(use-package explain-pause-mode
|
2020-07-18 13:47:35 +00:00
|
|
|
:disabled
|
2020-06-12 16:15:25 +00:00
|
|
|
:diminish
|
2020-06-07 09:35:51 +00:00
|
|
|
:commands explain-pause-mode
|
|
|
|
:init (explain-pause-mode))
|
|
|
|
|
|
|
|
(use-package exec-path-from-shell
|
|
|
|
:commands exec-path-from-shell-initialize
|
|
|
|
:init (exec-path-from-shell-initialize))
|
|
|
|
|
2020-04-23 07:11:05 +00:00
|
|
|
(provide 'cp-lisp)
|