145 lines
6.1 KiB
EmacsLisp
145 lines
6.1 KiB
EmacsLisp
;;; Lisp
|
|
|
|
(with-eval-after-load 'lispyville
|
|
;; REVIEW: lispy-occur: helm-occur does not restrict to region. Check latest helm.
|
|
(lispyville-set-key-theme
|
|
'(operators ; Add equivalent for lispy-delete?
|
|
c-w ; Bind M-backspace to lispyville-delete-backward-word?
|
|
(escape insert)
|
|
slurp/barf-cp
|
|
;; (mark insert)
|
|
mark-toggle ; TODO: Check out readme.
|
|
))
|
|
(lispyville--define-key '(motion normal visual)
|
|
(kbd "^") #'lispy-left
|
|
(kbd "M-h") #'lispyville-previous-opening
|
|
(kbd "M-l") #'lispyville-next-opening
|
|
(kbd "M-j") #'lispy-down
|
|
(kbd "M-k") #'lispy-up
|
|
(kbd "M-H") #'lispy-up-slurp ; lispy-down-slurp?
|
|
(kbd "M-J") #'lispyville-drag-forward
|
|
(kbd "M-K") #'lispyville-drag-backward
|
|
(kbd "M-L") #'lispy-move-right ; lispy-up-slurp?
|
|
(kbd "C-x C-e") #'lispy-eval
|
|
(kbd "C-j") #'lispy-split
|
|
(kbd "S-C-j") #'lispy-join
|
|
(kbd "C-1") #'lispy-describe-inline
|
|
(kbd "C-2") #'lispy-arglist-inline
|
|
(kbd "C-4") #'lispy-x
|
|
(kbd "gd") #'lispy-goto-symbol
|
|
;; (kbd "/") #'lispy-occur
|
|
;; (kbd "M-;") #'lispy-comment ; This conflicts with `iedit-toggle-selection' default binding.
|
|
;; TODO: lispy-eval-and-replace
|
|
")" #'lispy-right
|
|
"=" #'lispyville-prettify)
|
|
(lispyville--define-key 'insert
|
|
(kbd "<backspace>") 'lispy-delete-backward
|
|
";" 'lispy-comment
|
|
;; ":" 'lispy-colon ; The colon is not always used to delimit keys.
|
|
"'" 'lispy-tick
|
|
"`" 'lispy-backtick
|
|
"\"" 'lispy-quotes
|
|
"(" 'lispy-parens
|
|
")" 'lispy-right-nostring)
|
|
(lispyville--define-key '(motion normal)
|
|
;; "q" 'lispy-ace-paren ; REVIEW: Conflicts with magit-blame's quit. Fixed?
|
|
"Q" 'special-lispy-teleport ; TODO: Go to closest parenthesis if not on one.
|
|
"q" 'lispy-ace-paren
|
|
;; "f" 'lispy-ace-paren
|
|
;; "Q" 'lispy-ace-symbol
|
|
;; "t" 'lispy-ace-char
|
|
"Y" 'lispy-new-copy
|
|
(kbd "S-<return>") 'lispy-eval-other-window
|
|
;; "p" 'lispy-paste
|
|
(kbd "M-C") 'lispy-clone ; TODO: Go to closest parenthesis if not on one. forward-char + lispyville-backward-up-list?
|
|
"D" 'lispy-kill)
|
|
|
|
(lispy-define-key lispy-mode-map-special "C" 'lispy-clone))
|
|
|
|
(defun ambrevar/init-lispy ()
|
|
(when (require 'lispy nil t)
|
|
(set-face-foreground 'lispy-face-hint "#FF00FF")
|
|
(when (require 'lispyville nil t)
|
|
(add-hook 'lispy-mode-hook 'lispyville-mode))
|
|
(lispyville-mode)))
|
|
|
|
(dolist (hook '(lisp-mode-hook
|
|
common-lisp-mode-hook
|
|
emacs-lisp-mode-hook
|
|
scheme-mode-hook))
|
|
(add-hook hook 'ambrevar/turn-on-prettify-before-save)
|
|
(add-hook hook 'ambrevar/turn-on-complete-filename)
|
|
(add-hook hook 'ambrevar/turn-on-tab-width-to-8) ; Because some existing code uses tabs.
|
|
(add-hook hook 'ambrevar/turn-off-indent-tabs) ; Should not use tabs.
|
|
(add-hook hook 'ambrevar/init-lispy)
|
|
(when (fboundp 'rainbow-delimiters-mode)
|
|
(add-hook hook #'rainbow-delimiters-mode)))
|
|
|
|
(when (require 'rainbow-delimiters nil t)
|
|
;; See https://yoo2080.wordpress.com/2013/09/08/living-with-rainbow-delimiters-mode/.
|
|
;; TODO: The color saturation metioned in the URL fails when running in daemon mode.
|
|
;; https://github.com/Fanael/rainbow-delimiters/issues/36
|
|
(set-face-foreground 'rainbow-delimiters-depth-1-face "#fe1717")
|
|
(set-face-foreground 'rainbow-delimiters-depth-2-face "#589cff")
|
|
(set-face-foreground 'rainbow-delimiters-depth-3-face "#f1fe52")
|
|
(set-face-foreground 'rainbow-delimiters-depth-4-face "#44ff4c")
|
|
(set-face-foreground 'rainbow-delimiters-depth-5-face "#83b2ff")
|
|
(set-face-foreground 'rainbow-delimiters-depth-6-face "#6161ff")
|
|
(set-face-foreground 'rainbow-delimiters-depth-7-face "#35ff35")
|
|
(set-face-foreground 'rainbow-delimiters-depth-8-face "#7ca8ff")
|
|
(set-face-foreground 'rainbow-delimiters-depth-9-face "#50fec1")
|
|
(set-face-attribute 'rainbow-delimiters-unmatched-face nil
|
|
:foreground 'unspecified
|
|
:inherit 'error
|
|
:strike-through t))
|
|
|
|
;; Emacs Lisp
|
|
(ambrevar/define-keys emacs-lisp-mode-map
|
|
"<f5>" 'package-lint-current-buffer
|
|
;; Do not use `recompile' since we want to change the compilation folder for the current buffer.
|
|
"<f6>" (lambda () (interactive) (async-byte-recompile-directory (file-name-directory (buffer-file-name)))))
|
|
|
|
;;; Common LISP.
|
|
(setq inferior-lisp-program "sbcl --noinform")
|
|
(with-eval-after-load 'slime
|
|
(let ((slime-extra '(slime-fancy slime-asdf slime-indentation)))
|
|
;; slime-company should not be required, see
|
|
;; https://github.com/anwyn/slime-company/issues/11.
|
|
(when (ignore-errors (find-library-name "slime-company"))
|
|
(add-to-list 'slime-extra 'slime-company))
|
|
(slime-setup slime-extra)))
|
|
|
|
;; Save SLIME history (only for inferior-lisp).
|
|
(defvar ambrevar/slime-comint-input-ring nil)
|
|
(with-eval-after-load 'desktop
|
|
(add-to-list 'desktop-globals-to-save 'ambrevar/slime-comint-input-ring))
|
|
(defun ambrevar/slime-use-global-input-ring ()
|
|
(add-hook 'kill-buffer-hook #'ambrevar/slime-comint-input-ring nil t)
|
|
(when ambrevar/slime-comint-input-ring
|
|
(setq comint-input-ring ambrevar/slime-comint-input-ring)))
|
|
(defun ambrevar/slime-comint-input-ring ()
|
|
(setq ambrevar/slime-comint-input-ring comint-input-ring))
|
|
(add-hook 'slime-connected-hook #'ambrevar/slime-use-global-input-ring)
|
|
|
|
;;; Scheme.
|
|
;; (setq geiser-repl-skip-version-check-p t
|
|
;; geiser-mode-start-repl-p t)
|
|
(with-eval-after-load 'scheme
|
|
(when (require 'patch-scheme nil t)
|
|
(setq scheme-imenu-generic-expression
|
|
al/scheme-imenu-generic-expression)
|
|
(advice-add 'scheme-indent-function
|
|
:override 'al/scheme-indent-function)
|
|
(add-hook 'scheme-mode-hook 'al/scheme-fix-docstring-font-lock)))
|
|
|
|
(with-eval-after-load 'geiser-impl
|
|
(setq geiser-active-implementations
|
|
(delq 'chicken geiser-active-implementations)
|
|
geiser-default-implementation 'guile
|
|
;; geiser-repl-save-debugging-history-p t
|
|
geiser-repl-history-size 5000)
|
|
(add-hook 'geiser-repl-mode-hook 'lispyville-mode)
|
|
(add-hook 'geiser-repl-mode-hook 'rainbow-delimiters-mode))
|
|
|
|
(provide 'init-lisp)
|