;;; early-init.el -*- lexical-binding: t; -*-

(defvar my/saved-file-name-handler-alist file-name-handler-alist)

(setq gc-cons-threshold most-positive-fixnum

gc-cons-percentage 0.6

file-name-handler-alist nil

load-prefer-newer noninteractive

garbage-collection-messages nil)

(add-hook 'emacs-startup-hook ; hook run after loading init files

#'(lambda ()

(setq gc-cons-threshold (* 16 1024 1024)

gc-cons-percentage 0.1

file-name-handler-alist my/saved-file-name-handler-alist)))

;; src: skangas

(when (>= emacs-major-version 27)

(defun gc-on-last-frame-out-of-focus ()

"GC if all frames are inactive."

(if (seq-every-p #'null (mapcar #'frame-focus-state (frame-list)))

(garbage-collect)))

(add-function :after after-focus-change-function

#'gc-on-last-frame-out-of-focus))

(setq-default default-frame-alist

'((menu-bar-lines . 0)

(tool-bar-lines . 0)

(vertical-scroll-bars)

(fullscreen . maximized))

fringe-indicator-alist

(assq-delete-all 'truncation fringe-indicator-alist)

cursor-in-non-selected-windows nil

bidi-display-reordering 'left-to-right

bidi-inhibit-bpa t

bidi-paragraph-direction 'left-to-right)

;; Android

(defconst is-android (eq system-type 'android))

(defconst is-mac (eq system-type 'darwin))

(when is-android

(let ((termuxpath "/data/data/com.termux/files/usr/"))

(setenv "PATH" (concat (getenv "PATH") ":" termuxpath "bin"))

(push (concat termuxpath "bin") exec-path))

(set-face-attribute 'default nil :height 170)

(unless (file-directory-p "~/fonts")

(copy-directory "~/.emacs.d/fonts/" "~/fonts")))

(if is-mac

(push '(font . "VictorMono Nerd Font Mono-16:weight=semi-bold") default-frame-alist)

(push '(font . "VictorMono Nerd Font Mono-13:weight=semi-bold") default-frame-alist))

(if is-android

(set-face-attribute

'variable-pitch nil :family "iA Writer Duo S" :weight 'regular :height 170)

(set-face-attribute

'variable-pitch nil :family "iA Writer Duospace" :weight 'regular :height (if is-mac

170

130)))

;; doom

(setq-default inhibit-redisplay t

inhibit-message t)

;(advice-add #'tool-bar-setup :override #'ignore)

(add-hook 'after-init-hook

(lambda nil

(setq-default inhibit-redisplay nil

inhibit-message nil)

(redraw-frame))

; (advice-remove #'tool-bar-setup #'ignore))

:depth -105)

;;

(fset 'display-startup-echo-area-message 'ignore)

(setf (cdr (assq 'continuation fringe-indicator-alist))

'(nil nil))

(when t

(defvar package-quickstart)

(setq package-quickstart t))

(setq package-enable-at-startup nil

inhibit-startup-screen t

redisplay-skip-fontification-on-input t

window-combination-resize t

frame-inhibit-implied-resize t

frame-resize-pixelwise t

initial-major-mode 'fundamental-mode

initial-scratch-message nil)

(defun ar/show-welcome-buffer () ;; xendoium (centering issues...)

"Show *Welcome* buffer."

(with-current-buffer (get-buffer-create "*Welcome*")

(setq truncate-lines t)

(let* ((buffer-read-only)

(image-path (fancy-splash-image-file))

(image (create-image image-path))

(size (image-size image))

(height (cdr size))

(width (and image (car size)))

(top-margin (floor (/ (- (window-height) height) 2)))

(left-margin (floor (/ (- (max (window-width) 195) width) 2)))

(prompt-title (format "%d packages loaded in %s"

(length package-activated-list)

(format "%.2f seconds"

(float-time

(time-subtract after-init-time before-init-time))))))

(erase-buffer)

(setq mode-line-format nil)

(goto-char (point-min))

(insert (make-string top-margin ?\n ))

(insert (make-string left-margin ?\ ))

(insert-image image)

(insert "\n\n\n")

(insert (make-string (floor (/ (- (max (window-width) 195)

(string-width prompt-title))

2))

?\ ))

(insert prompt-title))

(setq-local cursor-type nil)

(read-only-mode +1)

(switch-to-buffer (current-buffer))

(local-set-key (kbd "q") 'kill-current-buffer)

(local-set-key (kbd "RET") 'kill-current-buffer)))

(add-hook 'window-setup-hook

(lambda ()

(if (file-exists-p (locate-user-emacs-file ".emacs.desktop"))

(message (format "%d packages loaded in %s"

(length package-activated-list)

(format "%.2f seconds"

(float-time

(time-subtract after-init-time before-init-time)))))

(when (display-graphic-p)

(ar/show-welcome-buffer)))))

(when is-mac

(add-to-list 'default-frame-alist '(ns-transparent-titlebar . t))

(let ((home (getenv "HOME")))

(setenv "PATH" (concat (getenv "PATH")

":" home "/.nix-profile/bin:/usr/bin"))

(setq exec-path (append `(,(concat home "/.nix-profile/bin")

"/nix/var/nix/profiles/default/bin")

exec-path))))

(if is-mac

(setq mac-option-modifier 'meta)

(setq command-line-ns-option-alist nil))

(unless (eq system-type 'gnu/linux)

(setq command-line-x-option-alist nil))

;; native-comp

(if (and (featurep 'native-compile)

(fboundp 'native-comp-available-p)

(native-comp-available-p))

;; Activate `native-compile'

(setq native-comp-jit-compilation t

native-comp-enable-subr-trampolines t

native-comp-async-report-warnings-errors nil

package-native-compile t)

;; Deactivate the `native-compile' feature if it is not available

(setq features (delq 'native-compile features)))

(provide 'early-init)

;;; early-init.el ends here