diff --git a/init.el b/init.el index aa7f070..ab4a40e 100755 --- a/init.el +++ b/init.el @@ -1,18 +1,29 @@ ;;;; Appearance -(defun apply-appearance () +(defun apply-appearance-first-frame () + (message "Set first frame appearance") ;; Set theme - (load-theme 'my-theme +1) - ;; Use JBMono - (set-frame-font "-JB-JetBrainsMonoNL Nerd Font-normal-normal-normal-*-18-*-*-*-m-0-iso10646-1" nil t) - ;; Hide GTK scroll bar - (toggle-scroll-bar -1)) + (load-theme 'my-theme +1)) -(apply-appearance) +(defun apply-appearance-per-frame () + (message "Set per frame appearance") + ;; Hide scroll bar + (toggle-scroll-bar -1) + ;; Use JBMono + (set-frame-font "-JB-JetBrainsMonoNL Nerd Font-normal-normal-normal-*-18-*-*-*-m-0-iso10646-1" nil t)) + +(apply-appearance-first-frame) +(apply-appearance-per-frame) + +(setq seen-first-frame nil) (add-hook 'after-make-frame-functions (lambda (frame) (with-selected-frame frame - (apply-appearance)))) + (apply-appearance-per-frame) + (if (not seen-first-frame) + (progn + (setq seen-first-frame 1) + (apply-appearance-first-frame)))))) ;; Hide ribbon, menu bar (menu-bar-mode -1) diff --git a/my-theme-theme.el b/my-theme-theme.el index 24f4be4..8895096 100755 --- a/my-theme-theme.el +++ b/my-theme-theme.el @@ -10,8 +10,12 @@ `(:background ,(nth type (plist-get args :bg))))) (if (plist-member args :italic) '(:slant italic)))))) `(,face - ,`(,(funcall build-face '((min-colors 256)) 0 args) - ,(funcall build-face '((min-colors 8)) 1 args)))))) + ,`( + ,(funcall build-face '((min-colors 0)) 0 args) + ;;,(funcall build-face '((min-colors 256)) 0 args) + ;;,(funcall build-face '((min-colors 8)) 1 args) + ) + )))) (color-join (lambda (list) (format "#%02x%02x%02x" (ash (nth 0 list) -8)