Emacs: Extract first-frame-hook
Alan Pearce alan@alanpearce.eu
Wed, 06 Sep 2017 19:26:28 +0200
1 files changed, 12 insertions(+), 8 deletions(-)
jump to
M emacs/.emacs.d/main.el ā emacs/.emacs.d/main.el
@@ -224,9 +224,9 @@ (set-fontset-font "fontset-default" 'unicode (font-spec :name "PT Mono" :size 14)) (ap/set-fonts "PT Mono" 14 "Noto Sans" 14 nil)) ((and (eq window-system 'x) (eq system-type 'gnu/linux/windows)) - (ap/set-fonts "Noto Mono" 12 "Sans" 12 nil)))) + (ap/set-fonts "Noto Mono" 12 "Sans" 12 nil))))) - (ap/set-fonts-according-to-system)) +(add-hook 'first-frame-hook #'ap/set-fonts-according-to-system) ;; #+END_SRC ;; Reduce font decoration. Iām trying to see whether this helps me focus @@ -1566,16 +1566,20 @@ (add-hook 'kill-emacs-hook 'pinentry-stop)) (add-to-list 'load-suffixes ".el.gpg") (load-gpg (expand-file-name (system-name) user-emacs-directory))))) -(defun first-frame-hook (frame) +(defvar first-frame-hook nil + "Hook for running code after first-frame is opened.") + +(defun first-frame-hook-handler (frame) "Hook run only after first frame is created." - (remove-hook 'after-make-frame-functions #'first-frame-hook) - (run-at-time nil nil #'load-private-data) - (run-at-time nil nil #'ap/set-fonts-according-to-system)) + (remove-hook 'after-make-frame-functions #'first-frame-hook-handler) + (run-at-time nil nil (lambda () (run-hooks 'first-frame-hook)))) (if (or (daemonp) (not (eq 1 (length (frame-list))))) - (add-hook 'after-make-frame-functions #'first-frame-hook) - (add-hook 'after-init-hook #'load-private-data)) + (add-hook 'after-make-frame-functions #'first-frame-hook-handler) + (run-at-time nil nil (lambda () (run-hooks 'first-frame-hook)))) + +(add-hook 'first-frame-hook #'load-private-data) ;; #+END_SRC ;; ** Minibuffer