97 lines
2.6 KiB
EmacsLisp
97 lines
2.6 KiB
EmacsLisp
(require 'package)
|
|
(add-to-list 'package-archives
|
|
'("melpa" . "https://melpa.org/packages/") t)
|
|
(package-initialize)
|
|
(package-refresh-contents)
|
|
|
|
(defvar my-packages '(
|
|
; TODO
|
|
lispy
|
|
|
|
; TODO
|
|
smartparens
|
|
|
|
; TODO
|
|
which-key
|
|
|
|
; TODO
|
|
git-gutter
|
|
|
|
rainbow-delimiters
|
|
|
|
auto-complete-distel
|
|
|
|
auto-complete
|
|
|
|
evil
|
|
|
|
magit
|
|
|
|
evil-magit
|
|
))
|
|
|
|
(dolist (p my-packages)
|
|
(when (not (package-installed-p p))
|
|
(package-install p)))
|
|
|
|
(custom-set-variables
|
|
;; custom-set-variables was added by Custom.
|
|
;; If you edit it by hand, you could mess it up, so be careful.
|
|
;; Your init file should contain only one such instance.
|
|
;; If there is more than one, they won't work right.
|
|
'(package-selected-packages
|
|
(quote
|
|
(lispy smartparens which-key git-gutter rainbow-delimiters auto-complete-distel auto-complete evil magit evil-magit)) t))
|
|
(custom-set-faces
|
|
;; custom-set-faces was added by Custom.
|
|
;; If you edit it by hand, you could mess it up, so be careful.
|
|
;; Your init file should contain only one such instance.
|
|
;; If there is more than one, they won't work right.
|
|
)
|
|
|
|
;; Autocomplete
|
|
(require 'auto-complete)
|
|
(global-auto-complete-mode t)
|
|
|
|
;; EVIL
|
|
(require 'evil)
|
|
(define-key evil-normal-state-map (kbd "C-k") 'evil-scroll-up)
|
|
(define-key evil-normal-state-map (kbd "C-j") 'evil-scroll-down)
|
|
(evil-mode 1)
|
|
(require 'evil-magit)
|
|
|
|
;; Rainbow Delims
|
|
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode)
|
|
|
|
;; Git gutter
|
|
(global-git-gutter-mode +1)
|
|
|
|
;; smartparens
|
|
(require 'smartparens-config)
|
|
(add-hook 'prog-mode-hook #'smartparens-mode )
|
|
|
|
|
|
(setq cider-font-lock-dynamically '(macro core function var))
|
|
;; These don't work yet?
|
|
;; (define-key evil-insert-state-map (kbd "C-\\") 'cider-eval-defun-up-to-point)
|
|
;; (define-key evil-normal-state-map (kbd "C-\\") 'cider-eval-defun-up-to-point)
|
|
|
|
;; Extra things
|
|
; (global-whitespace-mode 1)
|
|
|
|
; (progn
|
|
;; Make whitespace-mode with very basic background coloring for whitespaces.
|
|
;; http://ergoemacs.org/emacs/whitespace-mode.html
|
|
; (setq whitespace-style (quote (face spaces tabs newline space-mark tab-mark newline-mark )))
|
|
|
|
;; Make whitespace-mode and whitespace-newline-mode use “¶” for end of line char and “▷” for tab.
|
|
; (setq whitespace-display-mappings
|
|
;; all numbers are unicode codepoint in decimal. e.g. (insert-char 182 1)
|
|
; (quote (
|
|
; (space-mark 32 [183] [46]) ; SPACE 32 「 」, 183 MIDDLE DOT 「·」, 46 FULL STOP 「.」
|
|
; (newline-mark 10 [182 10]) ; LINE FEED,
|
|
; (tab-mark 9 [8614]) ; tab
|
|
; )
|
|
; )
|
|
; )
|
|
; )
|