66 lines
2.0 KiB
EmacsLisp
66 lines
2.0 KiB
EmacsLisp
;; (require 'chicken)
|
|
|
|
(setq print-length nil
|
|
eval-expression-print-length nil)
|
|
|
|
;; (require 'slime)
|
|
(require 'slime-autoloads)
|
|
(global-set-key (kbd "<f5> s") 'slime)
|
|
(with-eval-after-load 'slime
|
|
(slime-setup)
|
|
(setq inferior-lisp-program
|
|
;; "/usr/bin/sbcl"
|
|
"/usr/bin/ecl"
|
|
)
|
|
(cp-set-keys
|
|
:keymap slime-mode-map
|
|
:bindings
|
|
`((,(kbd "M-n") next-line)
|
|
(,(kbd "M-p") previous-line)
|
|
(,(kbd "SPC") self-insert-command))))
|
|
|
|
(defun set-cl-repl-keys ()
|
|
(if (or (cp-buffer-name-match-p "^\*inferior-lisp\*\\(<[0-9]*>\\)?")
|
|
(eq major-mode 'lisp-mode))
|
|
(progn
|
|
(local-set-key (kbd "TAB") 'completion-at-point)
|
|
(local-set-key (kbd "M-q") 'sp-indent-defun))))
|
|
|
|
(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)
|
|
|
|
(setq scheme-program-name "csi -:c")
|
|
(setq comint-prompt-read-only t)
|
|
|
|
(add-to-list 'auto-mode-alist '("\\.scm\\'" . scheme-mode))
|
|
;; (add-to-list 'auto-mode-alist '("\\.scm\\'" . geiser-mode))
|
|
;; (require 'geiser)
|
|
|
|
;; ;; 2017-06-12T14:51:30+0530 - dropping geiser in favor of scheme-mode
|
|
;; (autoload 'run-chicken "geiser-mode" "geiser-mode." t)
|
|
;; (autoload 'run-guile "geiser-mode" "geiser-mode." t)
|
|
;; (autoload 'geiser-mode "geiser-mode" "geiser-mode." t)
|
|
;; (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-."))))
|
|
;; )
|
|
|
|
(define-key emacs-lisp-mode-map (kbd "<tab>") 'completion-at-point)
|
|
|
|
(add-hook 'emacs-lisp-mode-hook 'eldoc-mode)
|
|
(setq eldoc-idle-delay 0)
|
|
|
|
(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))
|