General/minor refactor

This commit is contained in:
Henrik Lissner 2017-09-24 20:49:36 +02:00
parent 2ea01a5b66
commit 52be654cc4
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 5 additions and 9 deletions

View file

@ -179,12 +179,9 @@ local value, whether or not it's permanent-local. Therefore, we cycle
"Set the major mode's `mode-name', as dictated by `doom-major-mode-names'." "Set the major mode's `mode-name', as dictated by `doom-major-mode-names'."
(when-let (name (cdr (assq major-mode doom-major-mode-names))) (when-let (name (cdr (assq major-mode doom-major-mode-names)))
(setq mode-name (setq mode-name
(cond ((functionp name) (cond ((functionp name) (funcall name))
(funcall name)) ((stringp name) name)
((stringp name) (t (error "'%s' isn't a valid name for %s" name major-mode))))))
name)
(t
(error "'%s' isn't a valid name for %s" name major-mode))))))
(add-hook 'after-change-major-mode-hook #'doom|set-mode-name) (add-hook 'after-change-major-mode-hook #'doom|set-mode-name)
@ -237,7 +234,7 @@ local value, whether or not it's permanent-local. Therefore, we cycle
;; prompts the user for confirmation when deleting a non-empty frame ;; prompts the user for confirmation when deleting a non-empty frame
(define-key global-map [remap delete-frame] #'doom/delete-frame) (define-key global-map [remap delete-frame] #'doom/delete-frame)
;; buffer name in frame title ;; simple name in frame title
(setq-default frame-title-format '("DOOM Emacs")) (setq-default frame-title-format '("DOOM Emacs"))
;; auto-enabled in Emacs 25+; I'll do it myself ;; auto-enabled in Emacs 25+; I'll do it myself
(global-eldoc-mode -1) (global-eldoc-mode -1)

View file

@ -29,8 +29,7 @@
"Refresh git-gutter on ESC. Return nil to prevent shadowing other "Refresh git-gutter on ESC. Return nil to prevent shadowing other
`+evil-esc-hook' hooks." `+evil-esc-hook' hooks."
(when git-gutter-mode (when git-gutter-mode
(git-gutter) (ignore (git-gutter))))
nil))
(add-hook '+evil-esc-hook #'+version-control|update-git-gutter t)) (add-hook '+evil-esc-hook #'+version-control|update-git-gutter t))
(def-hydra! +version-control@git-gutter (def-hydra! +version-control@git-gutter