Remove make-(frame|terminal) hooks
This commit is contained in:
parent
e8c29fe99c
commit
27dba8ede1
3 changed files with 3 additions and 23 deletions
|
@ -11,7 +11,7 @@
|
|||
mac-option-modifier 'alt)
|
||||
|
||||
;; fix emacs PATH on OSX (GUI only)
|
||||
(add-hook! 'after-make-window-system-frame-hooks
|
||||
(when window-system
|
||||
(setenv "SHELL" "/usr/local/bin/zsh")
|
||||
(setenv "EMACS" "1") ; make sure the world knows
|
||||
|
||||
|
|
|
@ -1,14 +1,8 @@
|
|||
;;; core-ui.el --- interface settings
|
||||
;; see lib/ui-defuns.el
|
||||
|
||||
;; This is kept separate so it can jumpstart emacs; this prevents the unstyled
|
||||
;; flash of emacs pre-makeover.
|
||||
(add-hook! 'after-make-console-frame-hooks
|
||||
(load-theme narf-term-theme t)
|
||||
(menu-bar-mode -1)) ; no menubar
|
||||
|
||||
(add-hook! 'after-make-window-system-frame-hooks
|
||||
(load-theme narf-default-theme t)
|
||||
(load-theme (if window-system narf-default-theme narf-term-theme) t)
|
||||
(when window-system
|
||||
(set-frame-font (apply #'font-spec narf-default-font))
|
||||
(scroll-bar-mode -1) ; no scrollbar
|
||||
(tool-bar-mode -1) ; no toolbar
|
||||
|
|
14
core/core.el
14
core/core.el
|
@ -78,20 +78,6 @@
|
|||
(unless (file-exists-p path)
|
||||
(make-directory path t)))))
|
||||
|
||||
(defvar after-make-console-frame-hooks '()
|
||||
"Hooks to run after creating a new TTY frame")
|
||||
(defvar after-make-window-system-frame-hooks '()
|
||||
"Hooks to run after creating a new window-system frame")
|
||||
(defun run-after-make-frame-hooks (frame)
|
||||
"Selectively run either `after-make-console-frame-hooks' or
|
||||
`after-make-window-system-frame-hooks'"
|
||||
(select-frame frame)
|
||||
(run-hooks (if window-system
|
||||
'after-make-window-system-frame-hooks
|
||||
'after-make-console-frame-hooks)))
|
||||
(add-hook 'after-make-frame-functions 'run-after-make-frame-hooks)
|
||||
(add-hook! after-init (run-after-make-frame-hooks (selected-frame)))
|
||||
|
||||
;; Emacs configuration ;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;; UTF-8 please
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue