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)
|
2015-11-24 21:45:45 +00:00
|
|
|
(require 'slime-autoloads)
|
|
|
|
(global-set-key (kbd "<f5> s") 'slime)
|
2016-06-13 21:18:54 +00:00
|
|
|
(with-eval-after-load 'slime
|
|
|
|
(slime-setup)
|
2017-05-30 15:43:15 +00:00
|
|
|
(setq inferior-lisp-program
|
|
|
|
;; "/usr/bin/sbcl"
|
|
|
|
"/usr/bin/ecl"
|
|
|
|
)
|
2016-06-13 21:18:54 +00:00
|
|
|
(cp-set-keys
|
|
|
|
:keymap slime-mode-map
|
|
|
|
:bindings
|
|
|
|
`((,(kbd "M-n") next-line)
|
2017-05-30 15:43:15 +00:00
|
|
|
(,(kbd "M-p") previous-line)
|
|
|
|
(,(kbd "SPC") self-insert-command))))
|
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
|
|
|
|
:bind (:map emacs-lisp-mode-map
|
|
|
|
("<tab>" . completion-at-point)))
|
|
|
|
|
|
|
|
(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
|
|
|
|
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)
|
|
|
|
|
2018-09-04 06:06:48 +00:00
|
|
|
(update-file-autoloads "~/.emacs.d/elisp-git/clojure-mode/clojure-mode.el"
|
|
|
|
t
|
|
|
|
"~/.emacs.d/elisp-git/clojure-mode/clojure-autoloads.el")
|
|
|
|
(load "clojure-autoloads")
|
|
|
|
;; (autoload 'clojure-mode "clojure-mode" nil t)
|
|
|
|
(with-eval-after-load "clojure-mode"
|
|
|
|
(require 'cider))
|