emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add modules/private/hlissner

Browse source
This commit is contained in:
Henrik Lissner 2017-02-20 00:18:54 -05:00
parent 7a72a019ea
commit 5c0b8af9d5
6 changed files with 577 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

63
modules/private/hlissner/config.el Normal file
View file

@ -0,0 +1,63 @@
;;; private/hlissner/config.el
(@load +bindings) ; my key bindings
(when (featurep 'evil)
(@load +commands)) ; my custom ex commands
(defvar +hlissner-snippets-dir
(expand-file-name "snippets/" (file-name-directory load-file-name)))
;; On Arch, bspwm is my window manager. When I open GUI Emacs there's a gap on
;; the right side of the frame (which causes display glitches). I fix this by
;; simply cycling fullscreen:
(when (and (display-graphic-p) IS-LINUX)
(@add-hook 'after-init-hook
(set-frame-parameter nil 'fullscreen 'fullboth)
(set-frame-parameter nil 'fullscreen nil)))
;; Don't use default snippets, use mine.
(@after yasnippet
(setq yas-snippet-dirs (append (list '+hlissner-snippets-dir)
(delete 'yas-installed-snippets-dir yas-snippet-dirs))))
;; Repeat all sorts of motion and searches with SPC & C-SPC
(defmacro +my@repeat-with-spc (command next-func prev-func)
"Repeat motions with SPC/S-SPC"
(let ((fn-sym (intern (format "+evil*repeat-%s" command))))
`(progn
(defun ,fn-sym (&rest _)
(define-key evil-motion-state-map (kbd "SPC") ',next-func)
(define-key evil-motion-state-map (kbd "S-SPC") ',prev-func))
(advice-add ',command :before ',fn-sym))))
(@after evil
;; n/N
(+my@repeat-with-spc evil-ex-search-next evil-ex-search-next evil-ex-search-previous)
(+my@repeat-with-spc evil-ex-search-previous evil-ex-search-next evil-ex-search-previous)
(+my@repeat-with-spc evil-ex-search-forward evil-ex-search-next evil-ex-search-previous)
(+my@repeat-with-spc evil-ex-search-backward evil-ex-search-next evil-ex-search-previous)
;; f/F/t/T/s/S
(@after evil-snipe
(setq evil-snipe-repeat-keys nil
evil-snipe-override-evil-repeat-keys nil) ; causes problems with remapped ;
(+my@repeat-with-spc evil-snipe-f evil-snipe-repeat evil-snipe-repeat-reverse)
(+my@repeat-with-spc evil-snipe-F evil-snipe-repeat evil-snipe-repeat-reverse)
(+my@repeat-with-spc evil-snipe-t evil-snipe-repeat evil-snipe-repeat-reverse)
(+my@repeat-with-spc evil-snipe-T evil-snipe-repeat evil-snipe-repeat-reverse)
(+my@repeat-with-spc evil-snipe-s evil-snipe-repeat evil-snipe-repeat-reverse)
(+my@repeat-with-spc evil-snipe-S evil-snipe-repeat evil-snipe-repeat-reverse)
(+my@repeat-with-spc evil-snipe-x evil-snipe-repeat evil-snipe-repeat-reverse)
(+my@repeat-with-spc evil-snipe-X evil-snipe-repeat evil-snipe-repeat-reverse))
;; */#
(@after evil-visualstar
(+my@repeat-with-spc evil-visualstar/begin-search-forward
evil-ex-search-next evil-ex-search-previous)
(+my@repeat-with-spc evil-visualstar/begin-search-backward
evil-ex-search-previous evil-ex-search-next)))