Emacs: cperl-mode, and kill-current-buffer
This commit is contained in:
parent
9951eaf188
commit
971dae3da8
1 changed files with 8 additions and 3 deletions
11
emacs/.emacs
11
emacs/.emacs
|
@ -44,8 +44,10 @@
|
|||
'(blink-cursor-mode nil)
|
||||
'(cperl-close-paren-offset -2)
|
||||
'(cperl-electric-parens nil)
|
||||
'(cperl-electric-parens-mark nil)
|
||||
'(cperl-indent-level 2)
|
||||
'(cperl-indent-parens-as-block t)
|
||||
'(cperl-under-as-char t)
|
||||
'(custom-enabled-themes (quote (heroku)))
|
||||
'(custom-safe-themes
|
||||
(quote
|
||||
|
@ -151,6 +153,10 @@
|
|||
(interactive)
|
||||
(evil--jump-forward 1))
|
||||
|
||||
(defun my/kill-current-buffer ()
|
||||
(interactive)
|
||||
(kill-buffer (current-buffer)))
|
||||
|
||||
(use-package evil
|
||||
:ensure t
|
||||
:demand t
|
||||
|
@ -158,7 +164,7 @@
|
|||
(evil-mode 1)
|
||||
(setq evil-ex-substitute-global t)
|
||||
(define-key evil-normal-state-map "/" 'swiper)
|
||||
(evil-ex-define-cmd "q" 'kill-buffer)
|
||||
(evil-ex-define-cmd "q" 'my/kill-current-buffer)
|
||||
(define-key evil-normal-state-map "gb" 'my/evil-go-back)
|
||||
(define-key evil-normal-state-map "gn" 'my/evil-go-forward)
|
||||
(define-key evil-motion-state-map [down-mouse-1] 'silence)
|
||||
|
@ -386,8 +392,7 @@
|
|||
(defun treat-underscore ()
|
||||
(modify-syntax-entry ?_ "w"))
|
||||
|
||||
(add-hook 'cperl-mode-hook 'treat-underscore)
|
||||
(add-hook 'c-mode-hook 'treat-underscore)
|
||||
(add-hook 'prog-mode-hook 'treat-underscore)
|
||||
|
||||
;; Split windows horizontally preferred
|
||||
(setq split-height-threshold 6)
|
||||
|
|
Loading…
Reference in a new issue