82 lines
3.1 KiB
EmacsLisp
82 lines
3.1 KiB
EmacsLisp
|
;; Lisp
|
||
|
|
|
||
|
|
(with-eval-after-load 'lispyville
|
||
|
|
;; TODO: lispy-occur: helm-occur does not restrict to region.
|
||
|
|
(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 "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 "=") #'lispyville-prettify
|
||
|
|
;; (kbd "M-;") #'lispy-comment ; This conflicts with `iedit-toggle-selection' default binding.
|
||
|
|
)
|
||
|
|
(lispyville--define-key '(motion normal)
|
||
|
|
"q" 'lispy-ace-paren ; TODO: Conflicts with magit-blame's quit.
|
||
|
|
"Q" 'lispy-ace-symbol
|
||
|
|
"Y" 'lispy-new-copy
|
||
|
|
"D" 'lispy-kill))
|
||
|
|
|
||
|
|
(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))
|
||
|
|
(lispy-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)))
|
||
|
|
|
||
|
|
;; Color parentheses.
|
||
|
|
(when (require 'rainbow-delimiters nil t)
|
||
|
|
;; https://yoo2080.wordpress.com/2013/09/08/living-with-rainbow-delimiters-mode/
|
||
|
|
(defvar my-paren-dual-colors
|
||
|
|
'("hot pink" "dodger blue"))
|
||
|
|
(setq rainbow-delimiters-outermost-only-face-count 0)
|
||
|
|
(setq rainbow-delimiters-max-face-count 2)
|
||
|
|
(set-face-foreground 'rainbow-delimiters-depth-1-face
|
||
|
|
(elt my-paren-dual-colors 1))
|
||
|
|
(set-face-foreground 'rainbow-delimiters-depth-2-face
|
||
|
|
(elt my-paren-dual-colors 0))
|
||
|
|
|
||
|
|
;; TODO: The following fails when running in daemon mode.
|
||
|
|
;; https://github.com/Fanael/rainbow-delimiters/issues/36
|
||
|
|
;; (require 'cl-lib)
|
||
|
|
;; (require 'color)
|
||
|
|
;; (cl-loop
|
||
|
|
;; for index from 1 to rainbow-delimiters-max-face-count
|
||
|
|
;; do
|
||
|
|
;; (let ((face (intern (format "rainbow-delimiters-depth-%d-face" index))))
|
||
|
|
;; (cl-callf color-saturate-name (face-foreground face) 30)))
|
||
|
|
|
||
|
|
(set-face-attribute 'rainbow-delimiters-unmatched-face nil
|
||
|
|
:foreground 'unspecified
|
||
|
|
:inherit 'error
|
||
|
|
:strike-through t))
|
||
|
|
|
||
|
|
;;; Common LISP.
|
||
|
|
(setq inferior-lisp-program "clisp") ; TODO: Use sbcl instead?
|
||
|
|
|
||
|
|
(provide 'init-lisp)
|