Minor, general refactor

This commit is contained in:
Henrik Lissner 2018-06-07 02:49:32 +02:00
parent 37946080e2
commit b207c4040b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
4 changed files with 9 additions and 9 deletions

View file

@ -119,7 +119,6 @@ Doom was setup, which can cause problems.")
quelpa-verbose doom-debug-mode quelpa-verbose doom-debug-mode
quelpa-dir (expand-file-name "quelpa" doom-packages-dir) quelpa-dir (expand-file-name "quelpa" doom-packages-dir)
byte-compile-dynamic nil
byte-compile-verbose doom-debug-mode byte-compile-verbose doom-debug-mode
byte-compile-warnings '(not free-vars unresolved noruntime lexical make-local)) byte-compile-warnings '(not free-vars unresolved noruntime lexical make-local))

View file

@ -25,11 +25,11 @@
"node_modules" "flow-typed")) "node_modules" "flow-typed"))
projectile-other-file-alist projectile-other-file-alist
(append projectile-other-file-alist (append projectile-other-file-alist
'(("css" . ("scss" "sass" "less" "styl")) '(("css" "scss" "sass" "less" "styl")
("scss" . ("css")) ("scss" "css")
("sass" . ("css")) ("sass" "css")
("less" . ("css")) ("less" "css")
("styl" . ("css"))))) ("styl" "css"))))
;; Projectile root-searching functions can cause an infinite loop on TRAMP ;; Projectile root-searching functions can cause an infinite loop on TRAMP
;; connections, so disable them. ;; connections, so disable them.

View file

@ -677,7 +677,7 @@ confirmation."
(setq mode-name (setq mode-name
(cond ((functionp name) (funcall name)) (cond ((functionp name) (funcall name))
((stringp name) name) ((stringp name) name)
(t (error "'%s' isn't a valid name for %s" name major-mode)))))) ((error "'%s' isn't a valid name for %s" name major-mode))))))
(defun doom|protect-visible-buffers () (defun doom|protect-visible-buffers ()
"Don't kill the current buffer if it is visible in another window (bury it "Don't kill the current buffer if it is visible in another window (bury it

View file

@ -98,8 +98,9 @@ customized by changing `+default-repeat-forward-key' and
(let ((fn-sym (intern (format "+evil*repeat-%s" (doom-unquote command))))) (let ((fn-sym (intern (format "+evil*repeat-%s" (doom-unquote command)))))
`(progn `(progn
(defun ,fn-sym (&rest _) (defun ,fn-sym (&rest _)
(define-key evil-motion-state-map +default-repeat-forward-key #',next-func) (define-key! evil-motion-state-map
(define-key evil-motion-state-map +default-repeat-backward-key #',prev-func)) +default-repeat-forward-key #',next-func
+default-repeat-backward-key #',prev-func))
(advice-add #',command :before #',fn-sym))))) (advice-add #',command :before #',fn-sym)))))
;; n/N ;; n/N