From 4e97291632531647d874a2ff8213b93d4802778f Mon Sep 17 00:00:00 2001 From: tslil clingman Date: Tue, 15 Oct 2024 12:34:35 +0200 Subject: [emacs] fix startup screen and theme stuff for -nw use --- emacs/inits/01-basic.el | 49 +++++++++++++++++++++++++------------------------ 1 file changed, 25 insertions(+), 24 deletions(-) (limited to 'emacs/inits') diff --git a/emacs/inits/01-basic.el b/emacs/inits/01-basic.el index 6f0df8e..7f0ab22 100644 --- a/emacs/inits/01-basic.el +++ b/emacs/inits/01-basic.el @@ -1,4 +1,4 @@ -;; Time-stamp: <2024-07-13 14h57 CEST (471b3659)> +;; Time-stamp: <2024-10-15 12h13 CEST (anker)> ;; ----------------------------------------------------------------------------- ;; Interface @@ -29,28 +29,28 @@ (enlarge-window-horizontally (- (+ 1 fill-column) ww))))) (global-set-key (kbd "C-c 3") (lambda () - (interactive) - (split-window-horizontally) - (enlarge-to-fill))) - -(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/") - -(load-theme 'acme t) - -(defun my-disable-bold-fonts () - (interactive) - (mapc - (lambda (face) - (set-face-attribute face nil :weight 'normal)) - (face-list))) - -(progn - (setq my-font "PxPlus IBM VGA 9x16-24") - (setq my-font "Commit Mono-24") - (setq my-font "Sudo-22") - (setq my-font "Berkeley Mono-24") - (set-frame-font my-font) - (set-face-attribute 'font-lock-comment-face nil :slant 'italic)) + (interactive) + (split-window-horizontally) + (enlarge-to-fill))) + +(when (display-graphic-p) + (add-to-list 'custom-theme-load-path "~/.emacs.d/themes/") + (load-theme 'acme t) + + (defun my-disable-bold-fonts () + (interactive) + (mapc + (lambda (face) + (set-face-attribute face nil :weight 'normal)) + (face-list))) + + (progn + (setq my-font "PxPlus IBM VGA 9x16-24") + (setq my-font "Commit Mono-24") + (setq my-font "Sudo-22") + (setq my-font "Berkeley Mono-24") + (set-frame-font my-font) + (set-face-attribute 'font-lock-comment-face nil :slant 'italic))) (setq-default line-spacing nil) @@ -135,7 +135,8 @@ (defun display-startup-echo-area-message () nil) (setq initial-scratch-message nil - initial-buffer-choice t) + inhibit-startup-screen t + initial-buffer-choice nil) (add-hook 'after-init-hook (lambda () -- cgit v1.2.3